diff --git a/syndicate/actor.rkt b/syndicate/actor.rkt index d9e7d16..3b7448e 100644 --- a/syndicate/actor.rkt +++ b/syndicate/actor.rkt @@ -203,11 +203,12 @@ (exn->string reason))) (for [(h (in-list (reverse (actor-exit-hooks ac))))] (h)) (queue-task! (actor-engine ac) - (lambda () (turn! (actor-root ac) - (lambda () (facet-terminate! (actor-root ac) (eq? reason #t))) - #t))) - (when (not (actor-daemon? ac)) - (adjust-inhabitant-count! (actor-engine ac) -1)))) + (lambda () + (turn! (actor-root ac) + (lambda () (facet-terminate! (actor-root ac) (eq? reason #t))) + #t) + (when (not (actor-daemon? ac)) + (adjust-inhabitant-count! (actor-engine ac) -1)))))) ;;---------------------------------------------------------------------------