SCM Repository
Diff of /sml/trunk/src/cm/bootstrap/btcompile.sml
Parent Directory
| 
Revision Log
| 
Patch
| revision 853, Tue Jun 26 20:13:50 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 |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
