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 /sml/trunk/src/cm/parse/parse.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/parse/parse.sml

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

revision 367, Sat Jul 3 04:59:01 1999 UTC revision 380, Fri Jul 9 05:22:18 1999 UTC
# Line 144  Line 144 
144                          EM.error source r EM.COMPLAIN m EM.nullErrorBody                          EM.error source r EM.COMPLAIN m EM.nullErrorBody
145    
146                      (* recParse returns a group (not an option).                      (* recParse returns a group (not an option).
147                       * This function is used to parse aliases and sub-groups.                       * This function is used to parse sub-groups.
148                       * Errors are propagated by explicitly setting the                       * Errors are propagated by explicitly setting the
149                       * "anyErrors" flag of the parent group. *)                       * "anyErrors" flag of the parent group. *)
150                      fun recParse (p1, p2) curlib p = let                      fun recParse (p1, p2) curlib p = let
# Line 256  Line 256 
256                      val (parseResult, _) =                      val (parseResult, _) =
257                          CMParse.parse (lookAhead, tokenStream,                          CMParse.parse (lookAhead, tokenStream,
258                                         fn (s,p1,p2) => error (p1, p2) s,                                         fn (s,p1,p2) => error (p1, p2) s,
259                                         (group, context, error, recParse,                                         (group, context, error,
260                                          doMember, curlib, ginfo))                                          doMember, curlib, ginfo))
261                  in                  in
262                      if !(#anyErrors source) then NONE                      if !(#anyErrors source) then NONE

Legend:
Removed from v.367  
changed lines
  Added in v.380

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