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 499, Tue Dec 7 15:44:50 1999 UTC revision 537, Fri Feb 18 17:20:16 2000 UTC
# Line 19  Line 19 
19   *)   *)
20  structure InteractiveSystem : sig end = struct  structure InteractiveSystem : sig end = struct
21    
22        (* first, we have to step back out of the boot directory... *)
23        val bootdir = OS.FileSys.getDir ()
24        val _ = OS.FileSys.chDir OS.Path.parentArc
25    
26      (* environment initializations *)      (* environment initializations *)
27      val { heapfile, procCmdLine } = BootEnv.init ()      val { heapfile, procCmdLine } = BootEnv.init bootdir
28    
29      (* establish default signal handlers *)      (* establish default signal handlers *)
30      fun handleINT _ = !Unsafe.topLevelCont      fun handleINT _ = !Unsafe.topLevelCont

Legend:
Removed from v.499  
changed lines
  Added in v.537

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