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 487, Fri Nov 19 07:18:17 1999 UTC revision 493, Mon Nov 29 07:13:22 1999 UTC
# Line 131  Line 131 
131                              (sgc := SrcPathMap.insert (!sgc, gpath, g);                              (sgc := SrcPathMap.insert (!sgc, gpath, g);
132                               Say.vsay ["[library ", SrcPath.descr gpath,                               Say.vsay ["[library ", SrcPath.descr gpath,
133                                         " is stable]\n"];                                         " is stable]\n"];
134                                 SrcPathSet.app SmlInfo.cleanGroup
135                                                (Reachable.groupsOf g);
136                               SOME g)                               SOME g)
137                  end                  end
138              in              in
# Line 207  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.487  
changed lines
  Added in v.493

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