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/branches/rt-transition/system/smlnj/internal/int-sys.sml
ViewVC logotype

Diff of /sml/branches/rt-transition/system/smlnj/internal/int-sys.sml

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

revision 1341, Fri Aug 8 20:28:54 2003 UTC revision 1342, Mon Aug 11 20:46:00 2003 UTC
# Line 25  Line 25 
25      val _ = OS.FileSys.chDir OS.Path.parentArc      val _ = OS.FileSys.chDir OS.Path.parentArc
26    
27      (* environment initializations *)      (* environment initializations *)
28      val { heapfile, procCmdLine } = BootEnv.init bootdir      val { heapfile, procCmdLine } =
29            BootEnv.init bootdir
30            handle e as IO.Io { function, name, cause } =>
31                   (TextIO.output (TextIO.stdErr,
32                                   concat ["IO exception: file = ", name,
33                                           ", function = ", function,
34                                           ", cause: ",
35                                           General.exnMessage cause,
36                                           "\n"]);
37                    raise e)
38                 | e => (TextIO.output (TextIO.stdErr,
39                                        concat ["exception raised during init phase: ",
40                                                General.exnMessage e, "\n"]);
41                         raise e)
42    
43      (* establish default signal handlers *)      (* establish default signal handlers *)
44      fun handleINT _ = !Unsafe.topLevelCont      fun handleINT _ = !Unsafe.topLevelCont

Legend:
Removed from v.1341  
changed lines
  Added in v.1342

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