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 492, Fri Nov 26 09:00:50 1999 UTC revision 493, Mon Nov 29 07:13:22 1999 UTC
# Line 209  Line 209 
209                          (error (p1, p2) (General.exnMessage exn);                          (error (p1, p2) (General.exnMessage exn);
210                           CMSemant.emptyGroup group)                           CMSemant.emptyGroup group)
211    
212                      fun doMember (p, p1, p2, c) =                      fun doMember ({ name, mkpath }, p1, p2, c) =
213                          CMSemant.member (ginfo, recParse (p1, p2))                          CMSemant.member (ginfo, recParse (p1, p2))
214                                   { sourcepath = p, class = c,                            { name = name, mkpath = mkpath,
215                                     group = (group, (p1, p2)) }                              class = c, group = (group, (p1, p2)),
216                                context = context }
217    
218                      (* Build the argument for the lexer; the lexer's local                      (* Build the argument for the lexer; the lexer's local
219                       * state is encapsulated here to make sure the parser                       * state is encapsulated here to make sure the parser

Legend:
Removed from v.492  
changed lines
  Added in v.493

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