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/cml/src/IO/clean-io.sml
ViewVC logotype

Diff of /sml/trunk/src/cml/src/IO/clean-io.sml

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

revision 843, Tue Jun 19 21:53:04 2001 UTC revision 844, Wed Jun 20 20:39:15 2001 UTC
# Line 39  Line 39 
39    
40      val removeCleaner : tag -> unit      val removeCleaner : tag -> unit
41    
42      (* for linking the master IO cleaner function into the list of cleanup hooks *)
43        val ioCleaner : (string * CleanUp.when list * (CleanUp.when -> unit))
44    
45    end = struct    end = struct
46    
47      structure SV = SyncVar      structure SV = SyncVar
# Line 99  Line 102 
102            (!osInitHook)();            (!osInitHook)();
103            (!stdStrmHook)())            (!stdStrmHook)())
104    
105      val _ = C.addCleaner ("IO", C.atAll, cleanUp)    (* for linking the master IO cleaner function into the list of cleanup hooks *)
106        val ioCleaner = ("IO", C.atAll, cleanUp)
107    
108    end (* CleanIO *)    end (* CleanIO *)
109    

Legend:
Removed from v.843  
changed lines
  Added in v.844

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