From b2c591777e520dafd4b0bf2f3e9666e17eead8c9 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Fri, 11 Jun 2021 09:55:48 +0200 Subject: [PATCH] Avoid potential (?) for wrong early termination of engine --- syndicate/actor.rkt | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) 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)))))) ;;---------------------------------------------------------------------------