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/smlfile/skel-io.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/smlfile/skel-io.sml

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

revision 345, Sun Jun 20 11:55:26 1999 UTC revision 349, Tue Jun 22 06:17:47 1999 UTC
# Line 140  Line 140 
140              handle _ => NONE              handle _ => NONE
141    
142      fun write (ap, sk, ts) = let      fun write (ap, sk, ts) = let
143          fun cleanup () = let          fun cleanup () =
144              val p = AbsPath.name ap              (AbsPath.delete ap;
145          in               Say.say ["[writing ", AbsPath.name ap, " failed]\n"])
             OS.FileSys.remove p handle _ => ();  
             Say.say ["[writing ", p, " failed]\n"]  
         end  
146      in      in
147          SafeIO.perform { openIt = fn () => AbsPath.openBinOut ap,          SafeIO.perform { openIt = fn () => AbsPath.openBinOut ap,
148                           closeIt = BinIO.closeOut,                           closeIt = BinIO.closeOut,

Legend:
Removed from v.345  
changed lines
  Added in v.349

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