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

SCM Repository

[smlnj] Diff of /sml/trunk/src/cm/bootstrap/build-initdg.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/bootstrap/build-initdg.sml

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

revision 904, Mon Aug 20 19:50:05 2001 UTC revision 905, Thu Aug 23 21:53:02 2001 UTC
# Line 106  Line 106 
106                              val (li, needs_primenv) =                              val (li, needs_primenv) =
107                                  foldr one ([], false) args                                  foldr one ([], false) args
108                              val xe =                              val xe =
109                                  if needs_primenv then                                  if needs_primenv then SOME PrimEnv.primEnv
                                     SOME (Environment.primEnv)  
110                                  else NONE                                  else NONE
111                              val i = sml (file, split, xe, is_rts, ecs)                              val i = sml (file, split, xe, is_rts, ecs)
112                              val n = DG.SNODE { smlinfo = i,                              val n = DG.SNODE { smlinfo = i,

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

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