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/cml/src/core-cml/scheduler.sml
ViewVC logotype

Diff of /sml/trunk/src/cml/src/core-cml/scheduler.sml

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

revision 1324, Tue May 13 01:54:42 2003 UTC revision 1325, Tue May 13 01:56:02 2003 UTC
# Line 130  Line 130 
130     *)     *)
131      val dummyTid = R.TID{      val dummyTid = R.TID{
132              id = ~1, alert = ref false, done_comm = ref false,              id = ~1, alert = ref false, done_comm = ref false,
133              exnHandler = ref(fn _ => ()), dead = R.CVAR(ref(R.CVAR_unset[]))              exnHandler = ref(fn _ => ()),
134                props = ref[],
135                dead = R.CVAR(ref(R.CVAR_unset[]))
136            }            }
137    (* the error thread.  This thread is used to trap attempts to run CML    (* the error thread.  This thread is used to trap attempts to run CML
138     * without proper initialization (i.e., via RunCML).  This thread is     * without proper initialization (i.e., via RunCML).  This thread is
# Line 138  Line 140 
140     *)     *)
141      val errorTid = R.TID{      val errorTid = R.TID{
142              id = ~2, alert = ref false, done_comm = ref false,              id = ~2, alert = ref false, done_comm = ref false,
143              exnHandler = ref(fn _ => ()), dead = R.CVAR(ref(R.CVAR_unset[]))              exnHandler = ref(fn _ => ()),
144                props = ref[],
145                dead = R.CVAR(ref(R.CVAR_unset[]))
146            }            }
147      val errorCont : unit cont = SMLofNJ.Cont.isolate (fn _ => (      val errorCont : unit cont = SMLofNJ.Cont.isolate (fn _ => (
148              Debug.sayDebug "**** Use RunCML.doit to run CML ****\n";              Debug.sayDebug "**** Use RunCML.doit to run CML ****\n";

Legend:
Removed from v.1324  
changed lines
  Added in v.1325

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