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 737, Fri Nov 24 08:43:56 2000 UTC revision 771, Sat Dec 30 13:06:09 2000 UTC
# Line 25  Line 25 
25      val reset : unit -> unit      val reset : unit -> unit
26  end  end
27    
28  functor AutoLoadFn (structure C : COMPILE  functor AutoLoadFn (structure L : LINK
                     structure L : LINK  
29                      structure BFC : BFC                      structure BFC : BFC
30                        structure C : COMPILE where type stats = BFC.stats
31                      sharing type C.bfc = L.bfc = BFC.bfc) :> AUTOLOAD = struct                      sharing type C.bfc = L.bfc = BFC.bfc) :> AUTOLOAD = struct
32    
33      structure SE = GenericVC.StaticEnv      structure SE = GenericVC.StaticEnv
# Line 57  Line 57 
57              (* make traversal states *)              (* make traversal states *)
58              val { store, get } = BFC.new ()              val { store, get } = BFC.new ()
59              val { exports = cTrav, ... } = C.newTraversal (L.evict, store, g)              val { exports = cTrav, ... } = C.newTraversal (L.evict, store, g)
60              val { exports = lTrav, ... } = L.newTraversal (g, get)              val { exports = lTrav, ... } = L.newTraversal (g, #content o get)
61              fun combine (ss, d) gp =              fun combine (ss, d) gp =
62                  case ss gp of                  case ss gp of
63                      SOME { stat, sym } =>                      SOME { stat, sym } =>

Legend:
Removed from v.737  
changed lines
  Added in v.771

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