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 652, Tue Jun 6 02:14:56 2000 UTC revision 734, Sun Nov 19 05:27:41 2000 UTC
# Line 42  Line 42 
42      fun reset () = pending := SymbolMap.empty      fun reset () = pending := SymbolMap.empty
43    
44      fun register (_, GG.ERRORGROUP) = ()      fun register (_, GG.ERRORGROUP) = ()
45        | register (ter: ER.envref, g as GG.GROUP { exports, ... }) = let        | register (ter: ER.envref, g as GG.GROUP { exports, ... }) =
46              val te = #get ter ()          let val te = #get ter ()
47              (* toplevel bindings (symbol set) ... *)              (* toplevel bindings (symbol set) ... *)
48              val tss = foldl SymbolSet.add' SymbolSet.empty              val tss = foldl SymbolSet.add' SymbolSet.empty
49                              (E.catalogEnv (E.staticPart te))                              (E.catalogEnv (E.staticPart te))

Legend:
Removed from v.652  
changed lines
  Added in v.734

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