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/SMLNJ/src/cml/src/glue/run-cml-fn.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/cml/src/glue/run-cml-fn.sml

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

revision 7, Sun Jan 18 00:59:30 1998 UTC revision 8, Sun Jan 18 01:01:29 1998 UTC
# Line 56  Line 56 
56                    Sig.setHandler (Sig.sigINT, Sig.HANDLER(fn _ => interruptK)));                    Sig.setHandler (Sig.sigINT, Sig.HANDLER(fn _ => interruptK)));
57                  S.shutdownHook := doneK;                  S.shutdownHook := doneK;
58                  case tq of (SOME tq) => S.startTimer tq | _ => S.restartTimer();                  case tq of (SOME tq) => S.startTimer tq | _ => S.restartTimer();
                 CU.startServers();  
59                  CU.clean CU.AtInit;                  CU.clean CU.AtInit;
60                  CML.spawn initialProc;                  CML.spawn initialProc;
61                  CML.exit ()));                  S.dispatch()))
62            in            in
63              CU.clean CU.AtShutdown;              CU.clean CU.AtShutdown;
             CU.shutdownServers();  
64              G.shutdown();              G.shutdown();
65              S.stopTimer();              S.stopTimer();
66              Thread.reset false;              Thread.reset false;

Legend:
Removed from v.7  
changed lines
  Added in v.8

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