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 329, Fri Jun 11 09:53:10 1999 UTC revision 330, Sat Jun 12 07:45:52 1999 UTC
# Line 80  Line 80 
80              end              end
81    
82              fun getStable gpath = let              fun getStable gpath = let
83                  val loadStable =                  (* To make a cycle involving existing stable groups,
84                      Stabilize.loadStable (ginfo, getStable, pErrFlag)                   * one must use aliases.  The cycle will be detected
85                     * amoung those aliases... (?? - hopefully) *)
86                    fun getStableSG p =
87                        mparse (p, groupstack, pErrFlag, staball)
88              in              in
89                  case AbsPathMap.find (!gc, gpath) of                  Stabilize.loadStable (ginfo, getStableSG, pErrFlag) gpath
                     SOME (x as SOME _) => x  
                   | SOME NONE => NONE  
                   | NONE =>  
                         (case loadStable gpath of  
                              NONE => NONE  
                            | x as SOME _ =>  
                                  (gc := AbsPathMap.insert (!gc, gpath, x);  
                                   x))  
90              end              end
91    
92              fun stabilize g =              fun stabilize g =

Legend:
Removed from v.329  
changed lines
  Added in v.330

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