Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /ml-lex/trunk/lexgen.sml
ViewVC logotype

Diff of /ml-lex/trunk/lexgen.sml

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

revision 2118, Thu Nov 2 16:06:07 2006 UTC revision 2404, Wed Apr 11 22:34:25 2007 UTC
# Line 683  Line 683 
683                  | LP => let val e = exp0() in                  | LP => let val e = exp0() in
684                   if !NextTok = RP then                   if !NextTok = RP then
685                    (AdvanceTok(); exp1(e))                    (AdvanceTok(); exp1(e))
686                   else (prSynErr "missing '('") end                   else (prSynErr "missing ')'") end
687                  | ID(name) => exp1(lookup' name)                  | ID(name) => exp1(lookup' name)
688                  | _ => raise SyntaxError                  | _ => raise SyntaxError
689    

Legend:
Removed from v.2118  
changed lines
  Added in v.2404

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0