Use a gensym if no supervisor name is supplied
This commit is contained in:
parent
8cd60417c4
commit
d9cc478e6c
|
@ -25,7 +25,8 @@
|
||||||
;; Awkward: the name applies to any and all potential supervisors
|
;; Awkward: the name applies to any and all potential supervisors
|
||||||
;; produced by actor spawns in actor-producing-thunk.
|
;; produced by actor spawns in actor-producing-thunk.
|
||||||
(with-store [(current-action-transformer
|
(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)))
|
(actor-producing-thunk)))
|
||||||
|
|
||||||
(define ((supervise-spawn supervisor-name previous-action-transformer) ac)
|
(define ((supervise-spawn supervisor-name previous-action-transformer) ac)
|
||||||
|
|
Loading…
Reference in New Issue