Anticipate the pid a process is *about* to be allocated.

2016-07-20 18:42:35 -04:00 · 2016-07-20 18:42:35 -04:00 · a01480fe05
parent c76480f701
commit a01480fe05
1 changed files with 1 additions and 1 deletions
--- a/racket/syndicate/core.rkt
+++ b/racket/syndicate/core.rkt
@ -359,7 +359,7 @@
 (define ((perform-action label a) w)
  (match a
    [(spawn boot)
-     (invoke-process 'booting
+     (invoke-process (mux-next-pid (dataspace-mux w)) ;; anticipate pid allocation
                     (lambda ()
                       (match (boot)
                         [(and results (list (? procedure?) (? general-transition?) _))