[WWcvs] pg: When a parentheses have been removed, mark the enclosed item so that we can tell later, if we need to know about the missing

[dpvc v. a. <we...@ma...>]

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) {