/[gcl]/gcl/o/read.d
ViewVC logotype

Diff of /gcl/o/read.d

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.17 by camm, Wed Jul 30 20:26:01 2003 UTC revision 1.18 by camm, Tue Aug 5 20:19:09 2003 UTC
# Line 663  Lleft_parenthesis_reader() Line 663  Lleft_parenthesis_reader()
663                                  c = read_char(in);                                  c = read_char(in);
664                          if (char_code(c) != ')')                          if (char_code(c) != ')')
665          FEerror("A dot appeared before a right parenthesis.", 0);          FEerror("A dot appeared before a right parenthesis.", 0);
666                            else if (PP0>P0) PP0--; /* should be the only other place
667                                                       outside of read_object where
668                                                       closing parens are read */
669                          goto ENDUP;                          goto ENDUP;
670                  }                  }
671                  vs_push(x);                  vs_push(x);

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26