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

Diff of /sml/trunk/src/cm/stable/stabilize.sml

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

revision 348, Tue Jun 22 05:43:46 1999 UTC revision 349, Tue Jun 22 06:17:47 1999 UTC
# Line 71  Line 71 
71          SymbolMap.foldl add IntBinaryMap.empty exports          SymbolMap.foldl add IntBinaryMap.empty exports
72      end      end
73    
     fun deleteFile n = OS.FileSys.remove n handle _ => ()  
   
74      fun stabilize gp { group = g as GG.GROUP grec, anyerrors } = let      fun stabilize gp { group = g as GG.GROUP grec, anyerrors } = let
75    
76          val primconf = #primconf (#param gp)          val primconf = #primconf (#param gp)
# Line 371  Line 369 
369    
370              val gpath = #grouppath grec              val gpath = #grouppath grec
371              val spath = FilenamePolicy.mkStablePath policy gpath              val spath = FilenamePolicy.mkStablePath policy gpath
             fun delete () = deleteFile (AbsPath.name spath)  
372              fun work outs =              fun work outs =
373                  (Say.vsay ["[stabilizing ", AbsPath.name gpath, "]\n"];                  (Say.vsay ["[stabilizing ", AbsPath.name gpath, "]\n"];
374                   writeInt32 (outs, sz);                   writeInt32 (outs, sz);
# Line 382  Line 379 
379              SOME (SafeIO.perform { openIt = fn () => AbsPath.openBinOut spath,              SOME (SafeIO.perform { openIt = fn () => AbsPath.openBinOut spath,
380                                     closeIt = BinIO.closeOut,                                     closeIt = BinIO.closeOut,
381                                     work = work,                                     work = work,
382                                     cleanup = delete })                                     cleanup = fn () => AbsPath.delete spath })
383              handle exn => NONE              handle exn => NONE
384          end          end
385      in      in

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

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