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 457, Thu Oct 28 05:58:19 1999 UTC revision 459, Fri Oct 29 06:22:25 1999 UTC
# Line 75  Line 75 
75              SafeIO.perform { openIt = fn () => oo outf,              SafeIO.perform { openIt = fn () => oo outf,
76                               closeIt = co,                               closeIt = co,
77                               work = workOut,                               work = workOut,
78                               cleanup = fn () =>                               cleanup = fn _ =>
79                                   (F.remove outf handle _ => ()) }                                   (F.remove outf handle _ => ()) }
80          end          end
81      in      in
82          SafeIO.perform { openIt = fn () => oi inf,          SafeIO.perform { openIt = fn () => oi inf,
83                           closeIt = ci,                           closeIt = ci,
84                           work = workIn,                           work = workIn,
85                           cleanup = fn () => () }                           cleanup = fn _ => () }
86      end      end
87    
88      val copyTextFile =      val copyTextFile =
# Line 286  Line 286 
286                                     closeIt = TextIO.closeOut,                                     closeIt = TextIO.closeOut,
287                                     work = fn s =>                                     work = fn s =>
288                                         TextIO.output (s, rtspid ^ "\n"),                                         TextIO.output (s, rtspid ^ "\n"),
289                                     cleanup = fn () =>                                     cleanup = fn _ =>
290                                         OS.FileSys.remove pidfile                                         OS.FileSys.remove pidfile
291                                         handle _ => () };                                         handle _ => () };
292                                   SafeIO.perform                                   SafeIO.perform
# Line 294  Line 294 
294                                         AutoDir.openTextOut listfile,                                         AutoDir.openTextOut listfile,
295                                     closeIt = TextIO.closeOut,                                     closeIt = TextIO.closeOut,
296                                     work = writeList,                                     work = writeList,
297                                     cleanup = fn () =>                                     cleanup = fn _ =>
298                                         OS.FileSys.remove listfile                                         OS.FileSys.remove listfile
299                                         handle _ => () };                                         handle _ => () };
300                                   copyTextFile (SrcPath.osstring initgspec,                                   copyTextFile (SrcPath.osstring initgspec,
# Line 320  Line 320 
320      fun compile deliver dbopt =      fun compile deliver dbopt =
321          case mk_compile deliver NONE dbopt of          case mk_compile deliver NONE dbopt of
322              NONE => false              NONE => false
323            | SOME (_, thunk) =>            | SOME (_, thunk) => thunk ()
                 SafeIO.perform { openIt = fn () => (),  
                                  closeIt = Servers.reset,  
                                  work = thunk,  
                                  cleanup = fn () => () }  
324    
325      local      local
326          fun slave (dirbase, root) =          fun slave (dirbase, root) =
# Line 350  Line 346 
346          SafeIO.perform { openIt = fn () => (),          SafeIO.perform { openIt = fn () => (),
347                           closeIt = reset,                           closeIt = reset,
348                           work = fn () => compile true arg,                           work = fn () => compile true arg,
349                           cleanup = fn () => () }                           cleanup = fn _ => () }
350      fun deliver () = deliver' NONE      fun deliver () = deliver' NONE
351      val symval = SSV.symval      val symval = SSV.symval
352  end  end

Legend:
Removed from v.457  
changed lines
  Added in v.459

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