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

Diff of /sml/trunk/src/cm/bootstrap/btcompile.sml

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

revision 376, Wed Jul 7 04:25:11 1999 UTC revision 377, Wed Jul 7 06:55:18 1999 UTC
# Line 289  Line 289 
289            | NONE => false            | NONE => false
290      end      end
291    
     val make' = compile false  
     fun make () = make' NONE  
     val deliver' = compile true  
     fun deliver () = deliver' NONE  
292      fun reset () =      fun reset () =
293          (RecompPersstate.reset ();          (RecompPersstate.reset ();
294           RT.reset ();           RT.reset ();
295           Recomp.reset ();           Recomp.reset ();
296           Parse.reset ())           Parse.reset ())
297    
298        val make' = compile false
299        fun make () = make' NONE
300        fun deliver' arg =
301            SafeIO.perform { openIt = fn () => (),
302                             closeIt = reset,
303                             work = fn () => compile true arg,
304                             cleanup = fn () => () }
305        fun deliver () = deliver' NONE
306  end  end

Legend:
Removed from v.376  
changed lines
  Added in v.377

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