SCM Repository
Diff of /sml/trunk/src/cm/bootstrap/btcompile.sml
Parent Directory
| 
Revision Log
| 
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 |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
