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 1136, Tue Mar 12 19:44:02 2002 UTC revision 1137, Tue Mar 12 22:28:55 2002 UTC
# Line 49  Line 49 
49          end          end
50    
51          and do_cmb (archos, f) = let          and do_cmb (archos, f) = let
             val _ = UniquePid.reset ()  
52              val slave = CMBSlave.slave make              val slave = CMBSlave.slave make
53          in          in
54              case slave archos (SOME (!dbr, f)) of              case slave archos (SOME (!dbr, f)) of
# Line 65  Line 64 
64          and do_cm (archos, f) =          and do_cm (archos, f) =
65              if archos <> my_archos then (say_error (); waitForStart ())              if archos <> my_archos then (say_error (); waitForStart ())
66              else let              else let
                 val _ = UniquePid.reset ()  
67                  val p = path (f, penv)                  val p = path (f, penv)
68              in              in
69                  case parse p of                  case parse p of

Legend:
Removed from v.1136  
changed lines
  Added in v.1137

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