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/main/autoload.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/main/autoload.sml

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

revision 504, Tue Dec 7 18:31:05 1999 UTC revision 505, Thu Dec 9 08:24:08 1999 UTC
# Line 18  Line 18 
18    
19      val register : ER.envref * GG.group -> unit      val register : ER.envref * GG.group -> unit
20    
21      val mkManager : (unit -> GP.info) -> GenericVC.Ast.dec * ER.envref -> unit      val mkManager : { get_ginfo: unit -> GP.info, dropPickles: unit -> unit }
22            -> GenericVC.Ast.dec * ER.envref -> unit
23    
24      val getPending : unit -> DG.impexp SymbolMap.map      val getPending : unit -> DG.impexp SymbolMap.map
25    
# Line 75  Line 76 
76          pending := SymbolMap.unionWith #1 (newNodes, !pending)          pending := SymbolMap.unionWith #1 (newNodes, !pending)
77      end      end
78    
79      fun mkManager get_ginfo (ast, ter: ER.envref) = let      fun mkManager { get_ginfo, dropPickles } (ast, ter: ER.envref) = let
80    
81          val gp = get_ginfo ()          val gp = get_ginfo ()
82    
# Line 181  Line 182 
182                              Say.say ["[autoloading done]\n"])                              Say.say ["[autoloading done]\n"])
183                       | NONE => raise Fail "unable to load module(s)") }                       | NONE => raise Fail "unable to load module(s)") }
184                handle Fail msg =>                handle Fail msg =>
185                    Say.say ["[autoloading failed: ", msg, "]\n"])                    Say.say ["[autoloading failed: ", msg, "]\n"];
186                  dropPickles ())
187      end      end
188    
189      fun getPending () = SymbolMap.map #1 (!pending)      fun getPending () = SymbolMap.map #1 (!pending)

Legend:
Removed from v.504  
changed lines
  Added in v.505

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