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/cm/main/slave.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/main/slave.sml

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

revision 1057, Fri Feb 8 17:31:02 2002 UTC revision 1058, Fri Feb 8 20:02:56 2002 UTC
# Line 49  Line 49 
49          end          end
50    
51          and do_cmb (archos, f) = let          and do_cmb (archos, f) = let
52                val _ = UniquePid.reset ()
53              val slave = CMBSlave.slave make              val slave = CMBSlave.slave make
54          in          in
55              case slave archos (SOME (!dbr, f)) of              case slave archos (SOME (!dbr, f)) of
# Line 64  Line 65 
65          and do_cm (archos, f) =          and do_cm (archos, f) =
66              if archos <> my_archos then (say_error (); waitForStart ())              if archos <> my_archos then (say_error (); waitForStart ())
67              else let              else let
68                    val _ = UniquePid.reset ()
69                  val p = path (f, penv)                  val p = path (f, penv)
70              in              in
71                  case parse p of                  case parse p of

Legend:
Removed from v.1057  
changed lines
  Added in v.1058

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