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/system/IntSys/int-sys.sml
ViewVC logotype

Diff of /sml/trunk/src/system/IntSys/int-sys.sml

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

revision 475, Wed Nov 10 22:59:58 1999 UTC revision 498, Tue Dec 7 15:44:50 1999 UTC
# Line 20  Line 20 
20  structure InteractiveSystem : sig end = struct  structure InteractiveSystem : sig end = struct
21    
22      (* environment initializations *)      (* environment initializations *)
23      val heapfile = BootEnv.init ()      val { heapfile, procCmdLine } = BootEnv.init ()
24    
25      (* establish default signal handlers *)      (* establish default signal handlers *)
26      fun handleINT _ = !Unsafe.topLevelCont      fun handleINT _ = !Unsafe.topLevelCont
# Line 45  Line 45 
45                    Compiler.Stats.reset ();                    Compiler.Stats.reset ();
46                    print Compiler.banner;                    print Compiler.banner;
47                    print "\n";                    print "\n";
48                    CM0.procCmdLine ();                    getOpt (procCmdLine, fn () => ()) ();
49                    Compiler.Interact.interact())                    Compiler.Interact.interact())
50               else               else
51                   (print "This is...\n";                   (print "This is...\n";

Legend:
Removed from v.475  
changed lines
  Added in v.498

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