Log Message:
-----------
When a parentheses have been removed, mark the enclosed item so that
we can tell later, if we need to know about the missing parens.
Modified Files:
--------------
pg/lib:
Parser.pm
Revision Data
-------------
Index: Parser.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Parser.pm,v
retrieving revision 1.52
retrieving revision 1.53
diff -Llib/Parser.pm -Llib/Parser.pm -u -r1.52 -r1.53
--- lib/Parser.pm
+++ lib/Parser.pm
@@ -389,7 +389,9 @@
$self->Item("List")->new($self,[$top->makeList],$top->{isConstant},$paren,
($top->type eq 'Comma') ? $top->entryType : $top->typeRef,
($type ne 'start') ? ($self->top->{value},$type) : () )};
- }
+ } else {
+ $top->{value}{hadParens} = 1;
+ }
$self->pop; $self->push($top);
$self->CloseFn() if ($paren->{function} && $self->prev->{type} eq 'fn');
} elsif ($paren->{formInterval} eq $type && $self->top->{value}->length == 2) {
|
