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

Diff of /sml/trunk/src/cm/compile/compile.sml

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

revision 454, Wed Oct 27 04:41:14 1999 UTC revision 459, Fri Oct 29 06:22:25 1999 UTC
# Line 238  Line 238 
238                              (BF.write { stream = s, content = bfc,                              (BF.write { stream = s, content = bfc,
239                                          nopickle = false };                                          nopickle = false };
240                               Say.vsay ["[wrote ", binname, "]\n"])                               Say.vsay ["[wrote ", binname, "]\n"])
241                          fun cleanup () =                          fun cleanup _ =
242                              OS.FileSys.remove binname handle _ => ()                              OS.FileSys.remove binname handle _ => ()
243                      in                      in
244                          notify gp i;                          notify gp i;
# Line 320  Line 320 
320                                            { openIt = openIt,                                            { openIt = openIt,
321                                              closeIt = BinIO.closeIn,                                              closeIt = BinIO.closeIn,
322                                              work = reader,                                              work = reader,
323                                              cleanup = fn () => () })                                              cleanup = fn _ => () })
324                                      handle _ => NONE                                      handle _ => NONE
325                                  end (* load *)                                  end (* load *)
326                                  fun tryload (what, otherwise) =                                  fun tryload (what, otherwise) =

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

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