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 296, Thu May 27 05:31:04 1999 UTC revision 297, Thu May 27 08:29:19 1999 UTC
# Line 142  Line 142 
142          end handle _ => NONE          end handle _ => NONE
143    
144      fun write (ap, sk) = let      fun write (ap, sk) = let
145          val s = AbsPath.openBinOut Say.vsay ap          val s = AbsPath.openBinOut ap
146      in      in
147          (Interrupt.guarded (fn () => write_decl (s, sk));          (Interrupt.guarded (fn () => write_decl (s, sk));
148           BinIO.closeOut s)           BinIO.closeOut s)

Legend:
Removed from v.296  
changed lines
  Added in v.297

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