From d9cc478e6c37468e9d1a8a55ec8d16b92603fa60 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Tue, 29 Nov 2016 14:53:46 +1300 Subject: [PATCH] Use a gensym if no supervisor name is supplied --- racket/syndicate/supervise.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/racket/syndicate/supervise.rkt b/racket/syndicate/supervise.rkt index 3dfb3de..804d781 100644 --- 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)