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 355, Sat Jun 26 13:17:30 1999 UTC revision 361, Wed Jun 30 06:44:04 1999 UTC
# Line 12  Line 12 
12      val mkManager : (DependencyGraph.impexp SymbolMap.map ->      val mkManager : (DependencyGraph.impexp SymbolMap.map ->
13                       GenericVC.BareEnvironment.environment option)                       GenericVC.BareEnvironment.environment option)
14          -> GenericVC.Ast.dec * GenericVC.EnvRef.envref -> unit          -> GenericVC.Ast.dec * GenericVC.EnvRef.envref -> unit
15    
16        val reset : unit -> unit
17  end  end
18    
19  structure AutoLoad :> AUTOLOAD = struct  structure AutoLoad :> AUTOLOAD = struct
# Line 26  Line 28 
28       * to "pending" must be subtracted from the topLevel env. *)       * to "pending" must be subtracted from the topLevel env. *)
29      val pending = ref (SymbolMap.empty: DG.impexp SymbolMap.map)      val pending = ref (SymbolMap.empty: DG.impexp SymbolMap.map)
30    
31        fun reset () = pending := SymbolMap.empty
32    
33      fun register (ter: ER.envref, GroupGraph.GROUP { exports, ... }) = let      fun register (ter: ER.envref, GroupGraph.GROUP { exports, ... }) = let
34          val te = #get ter ()          val te = #get ter ()
35          (* toplevel bindings (symbol set) ... *)          (* toplevel bindings (symbol set) ... *)

Legend:
Removed from v.355  
changed lines
  Added in v.361

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