SCM Repository
Diff of /sml/trunk/src/compiler/TopLevel/interact/interact.sml
Parent Directory
|
Revision Log
|
Patch
revision 1711, Tue Nov 23 05:13:59 2004 UTC | revision 1712, Tue Nov 23 20:44:10 2004 UTC | |
---|---|---|
# | Line 11 | Line 11 |
11 | ||
12 | fun interact() = (EvalLoop.interact (); OS.Process.exit OS.Process.success) | fun interact() = (EvalLoop.interact (); OS.Process.exit OS.Process.success) |
13 | ||
14 | val withErrorHandling = EvalLoop.withErrorHandling | |
15 | ||
16 | fun useFile fname = | fun useFile fname = |
17 | (app Control.Print.say ["[opening ",fname,"]\n"]; | (app Control.Print.say ["[opening ",fname,"]\n"]; |
18 | EvalLoop.evalStream | EvalLoop.evalStream |
|
root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
Powered by ViewVC 1.0.0 |