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 458, Thu Oct 28 14:22:55 1999 UTC revision 459, Fri Oct 29 06:22:25 1999 UTC
# Line 137  Line 137 
137              SOME (SafeIO.perform { openIt = fn () => BinIO.openIn s,              SOME (SafeIO.perform { openIt = fn () => BinIO.openIn s,
138                                     closeIt = BinIO.closeIn,                                     closeIt = BinIO.closeIn,
139                                     work = read_decl,                                     work = read_decl,
140                                     cleanup = fn () => () })                                     cleanup = fn _ => () })
141              handle _ => NONE              handle _ => NONE
142    
143      fun write (s, sk, ts) = let      fun write (s, sk, ts) = let
144          fun cleanup () =          fun cleanup _ =
145              (OS.FileSys.remove s handle _ => ();              (OS.FileSys.remove s handle _ => ();
146               Say.say ["[writing ", s, " failed]\n"])               Say.say ["[writing ", s, " failed]\n"])
147      in      in

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