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/bootstrap/btcompile.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/bootstrap/btcompile.sml

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

revision 805, Thu Mar 22 20:08:01 2001 UTC revision 854, Wed Jun 27 19:11:38 2001 UTC
# Line 290  Line 290 
290              val initial_parse_result =              val initial_parse_result =
291                  if master then                  if master then
292                      if lonely_master then                      if lonely_master then
293                          (* no slaves available; do everything alone *)                          (* no slaves available; do everything alone
294                          Parse.parse (parse_arg (SOME true, true))                           * (Still wrap "withServers" around it to make sure
295                             * our queues get cleaned when an interrupt or error
296                             * occurs.) *)
297                            Servers.withServers
298                                (fn () => Parse.parse (parse_arg (SOME true, true)))
299                      else                      else
300                          (* slaves available; we want master                          (* slaves available; we want master
301                           * and slave initialization to overlap, so                           * and slave initialization to overlap, so
# Line 315  Line 319 
319                  else                  else
320                      (* slave case *)                      (* slave case *)
321                      Parse.parse (parse_arg (NONE, false))                      Parse.parse (parse_arg (NONE, false))
   
322          in          in
323              case initial_parse_result of              case initial_parse_result of
324                  NONE => NONE                  NONE => NONE

Legend:
Removed from v.805  
changed lines
  Added in v.854

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