Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Tracker SCM

SCM Repository

[smlnj] Diff of /sml/trunk/src/cm/link.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/link.sml

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

revision 322, Tue Jun 8 09:36:16 1999 UTC revision 323, Wed Jun 9 06:16:22 1999 UTC
# Line 127  Line 127 
127                                       spec = s }                                       spec = s }
128              val { mod = basis, nomod = perv } = split (#get ER.pervasive ())              val { mod = basis, nomod = perv } = split (#get ER.pervasive ())
129              val corenv = #get ER.core ()              val corenv = #get ER.core ()
130              val primconf = Primitive.configuration { basis = basis }              val bpspec = let
131                    val bogus = GenericVC.PersStamps.fromBytes
132                        (Byte.stringToBytes "0123456789abcdef")
133                in
134                    { name = "basis",
135                      env = basis,
136                      pidInfo = { statpid = bogus, sympid = bogus,
137                                  ctxt = GenericVC.CMStaticEnv.empty } }
138                end
139                val primconf = Primitive.configuration [bpspec]
140              val pcmode = PathConfig.hardwire              val pcmode = PathConfig.hardwire
141                  [("smlnj-lib.cm", "/home/blume/ML/current/lib")]                  [("smlnj-lib.cm", "/home/blume/ML/current/lib")]
142              val fnpolicy =              val fnpolicy =

Legend:
Removed from v.322  
changed lines
  Added in v.323

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