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 309, Wed Jun 2 03:21:57 1999 UTC revision 310, Wed Jun 2 07:28:27 1999 UTC
# Line 151  Line 151 
151          in          in
152              BinIO.closeOut s;              BinIO.closeOut s;
153              OS.FileSys.remove p handle _ => ();              OS.FileSys.remove p handle _ => ();
154              Say.say (concat ["[writing ", p, " failed]\n"]);              Say.say ["[writing ", p, " failed]\n"];
155              raise exn              raise exn
156          end          end
157      end handle Interrupt.Interrupt => raise Interrupt.Interrupt      end handle Interrupt.Interrupt => raise Interrupt.Interrupt

Legend:
Removed from v.309  
changed lines
  Added in v.310

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