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/bootstrap/btcompile.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/bootstrap/btcompile.sml

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

revision 334, Thu Jun 17 02:43:15 1999 UTC revision 335, Thu Jun 17 08:21:08 1999 UTC
# Line 106  Line 106 
106                               errcons = errcons }                               errcons = errcons }
107    
108          fun main_compile arg = let          fun main_compile arg = let
109              val { rts, core, pervasive, primitives, filepaths } = arg              val { rts, core, pervasive, primitives, binpaths } = arg
110    
111              val ovldR = GenericVC.Control.overloadKW              val ovldR = GenericVC.Control.overloadKW
112              val savedOvld = !ovldR              val savedOvld = !ovldR
# Line 171  Line 171 
171                      if recomp gp g then                      if recomp gp g then
172                          SOME { rtspid = PS.toHex (#2 (#stat rts)),                          SOME { rtspid = PS.toHex (#2 (#stat rts)),
173                                 bootfiles =                                 bootfiles =
174                                   map (fn x => (x, NONE)) filepaths @                                   map (fn x => (x, NONE)) binpaths @
175                                   MkBootList.group g }                                   MkBootList.group g }
176                      else NONE                      else NONE
177          end handle Option => (RT.clearFailures (); NONE)          end handle Option => (RT.clearFailures (); NONE)

Legend:
Removed from v.334  
changed lines
  Added in v.335

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