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/system/smlnj/internal/boot-env-fn.sml
ViewVC logotype

Diff of /sml/trunk/src/system/smlnj/internal/boot-env-fn.sml

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

revision 756, Thu Dec 14 16:01:33 2000 UTC revision 879, Thu Jul 19 18:59:38 2001 UTC
# Line 27  Line 27 
27      structure DirToolClassify = DirToolClassify      structure DirToolClassify = DirToolClassify
28    
29      structure DynE = DynamicEnv      structure DynE = DynamicEnv
30      structure Print = GenericVC.Control.Print      structure Print = Control.Print
31    
32      fun say s = (Print.say s; Print.flush ())      fun say s = (Print.say s; Print.flush ())
33      fun die s = (say s; raise BootFailure)      fun die s = (say s; raise BootFailure)
# Line 44  Line 44 
44          fun initialize (bootdir, er) = let          fun initialize (bootdir, er) = let
45              fun mkDE (U.NILrde, de) = de              fun mkDE (U.NILrde, de) = de
46                | mkDE (U.CONSrde (rawdynpid, obj, rest), de) = let                | mkDE (U.CONSrde (rawdynpid, obj, rest), de) = let
47                      val dynpid = GenericVC.PersStamps.fromBytes rawdynpid                      val dynpid = PersStamps.fromBytes rawdynpid
48                  in                  in
49                      mkDE (rest, DynE.bind (dynpid, obj, de))                      mkDE (rest, DynE.bind (dynpid, obj, de))
50                  end                  end

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

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