Use a gensym if no supervisor name is supplied

2016-11-29 14:53:46 +13:00 · 2016-11-29 14:53:46 +13:00 · d9cc478e6c
parent 8cd60417c4
commit d9cc478e6c
1 changed files with 2 additions and 1 deletions
--- a/racket/syndicate/supervise.rkt
+++ b/racket/syndicate/supervise.rkt
@ -25,7 +25,8 @@
  ;; Awkward: the name applies to any and all potential supervisors
  ;; produced by actor spawns in actor-producing-thunk.
  (with-store [(current-action-transformer
-                (supervise-spawn supervisor-name (current-action-transformer)))]
+                (supervise-spawn (or supervisor-name (gensym 'supervisor))
+                                 (current-action-transformer)))]
    (actor-producing-thunk)))

 (define ((supervise-spawn supervisor-name previous-action-transformer) ac)