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/stable/stabilize.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/stable/stabilize.sml

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

revision 458, Thu Oct 28 14:22:55 1999 UTC revision 459, Fri Oct 29 06:22:25 1999 UTC
# Line 462  Line 462 
462              SOME (SafeIO.perform { openIt = AutoDir.openBinOut o mksname,              SOME (SafeIO.perform { openIt = AutoDir.openBinOut o mksname,
463                                     closeIt = BinIO.closeOut,                                     closeIt = BinIO.closeOut,
464                                     work = work,                                     work = work,
465                                     cleanup = fn () =>                                     cleanup = fn _ =>
466                                      (OS.FileSys.remove (mksname ())                                      (OS.FileSys.remove (mksname ())
467                                       handle _ => ()) })                                       handle _ => ()) })
468              handle exn =>              handle exn =>
# Line 755  Line 755 
755          SOME (SafeIO.perform { openIt = BinIO.openIn o mksname,          SOME (SafeIO.perform { openIt = BinIO.openIn o mksname,
756                                 closeIt = BinIO.closeIn,                                 closeIt = BinIO.closeIn,
757                                 work = work,                                 work = work,
758                                 cleanup = fn () => () })                                 cleanup = fn _ => () })
759          handle Format => (error ["file is corrupted (old version?)"];          handle Format => (error ["file is corrupted (old version?)"];
760                            NONE)                            NONE)
761               | IO.Io _ => NONE               | IO.Io _ => NONE

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

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