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 734, Sun Nov 19 05:27:41 2000 UTC revision 735, Tue Nov 21 12:15:55 2000 UTC
# Line 133  Line 133 
133          val pidmapfile = P.joinDirFile { dir = bootdir, file = BtNames.pidmap }          val pidmapfile = P.joinDirFile { dir = bootdir, file = BtNames.pidmap }
134    
135          val penv = SrcPath.newEnv ()          val penv = SrcPath.newEnv ()
136          val _ = SrcPath.processSpecFile (penv, penvspec)          val _ = SafeIO.perform { openIt = fn () => TextIO.openIn penvspec,
137                                     closeIt = TextIO.closeIn,
138                                     work = SrcPath.processSpecFile
139                                                { env = penv, specfile = penvspec,
140                                                  say = Say.say },
141                                     cleanup = fn _ => () }
142          val _ = SrcPath.sync ()          val _ = SrcPath.sync ()
143    
144          fun stdpath s =          fun stdpath s =

Legend:
Removed from v.734  
changed lines
  Added in v.735

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