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 879, Thu Jul 19 18:59:38 2001 UTC revision 905, Thu Aug 23 21:53:02 2001 UTC
# Line 46  Line 46 
46          let 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))                              (BrowseStatEnv.catalog (E.staticPart te))
50              (* "new" bindings (symbol set) ... *)              (* "new" bindings (symbol set) ... *)
51              val nss = SymbolMap.foldli (fn (i, _, s) => SymbolSet.add (s, i))              val nss = SymbolMap.foldli (fn (i, _, s) => SymbolSet.add (s, i))
52                                         SymbolSet.empty exports                                         SymbolSet.empty exports

Legend:
Removed from v.879  
changed lines
  Added in v.905

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