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/cm-boot.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/main/cm-boot.sml

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

revision 770, Sun Dec 24 20:06:28 2000 UTC revision 771, Sat Dec 30 13:06:09 2000 UTC
# Line 82  Line 82 
82                val _ = init_servers g                val _ = init_servers g
83                val { group = c_group, ... } =                val { group = c_group, ... } =
84                    Compile.newTraversal (Link.evict, store, g)                    Compile.newTraversal (Link.evict, store, g)
85                val { group = l_group, ... } = Link.newTraversal (g, get)                val { group = l_group, ... } =
86                      Link.newTraversal (g, #content o get)
87            in            in
88                case Servers.withServers (fn () => c_group gp) of                case Servers.withServers (fn () => c_group gp) of
89                    NONE => false                    NONE => false

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

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