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 397, Fri Aug 13 07:06:52 1999 UTC revision 398, Wed Aug 25 15:36:43 1999 UTC
# Line 65  Line 65 
65                                   (sgc := SrcPathMap.insert (!sgc, group, g);                                   (sgc := SrcPathMap.insert (!sgc, group, g);
66                                    SOME g)                                    SOME g)
67                               fun isStable (GG.GROUP { kind, ... }) =                               fun isStable (GG.GROUP { kind, ... }) =
68                                   case kind of                                   case kind of GG.STABLELIB => true | _ => false
                                      GG.STABLELIB _ => true  
                                    | _ => false  
69                               val pres =                               val pres =
70                                   parse' (group, groupstack, pErrFlag,                                   parse' (group, groupstack, pErrFlag,
71                                           stabthis, curlib)                                           stabthis, curlib)
# Line 109  Line 107 
107              end              end
108    
109              fun getStable gpath = let              fun getStable gpath = let
                 (* To make a cycle involving existing stable groups,  
                  * one must use aliases.  The cycle will be detected  
                  * amoung those aliases... (?? - hopefully) *)  
110                  fun getStableSG p =                  fun getStableSG p =
111                      mparse (p, groupstack, pErrFlag, staball, SOME gpath)                      mparse (p, groupstack, pErrFlag, staball, SOME gpath)
112              in              in
113                  Stabilize.loadStable (ginfo, getStableSG, pErrFlag) gpath                  Stabilize.loadStable ginfo { getGroup = getStableSG,
114                                                 anyerrors = pErrFlag } gpath
115              end              end
116    
117              (* We stabilize libraries only because a stable library will              (* We stabilize libraries only because a stable library will

Legend:
Removed from v.397  
changed lines
  Added in v.398

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