From bcbc660ff13040a5bf4745877e8031c965a4689a Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 31 May 2021 12:06:44 +0200 Subject: [PATCH] Make turns atomic, rather than reply-turn-per-event --- syndicate/actor.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/syndicate/actor.rkt b/syndicate/actor.rkt index f1636b4..bc37fd6 100644 --- a/syndicate/actor.rkt +++ b/syndicate/actor.rkt @@ -228,7 +228,9 @@ (action turn) (for [((ff qq) (in-hash (turn-queues turn)))] (queue-task! (actor-engine (facet-actor ff)) - (lambda () (for [(a (in-list (reverse qq)))] (turn! ff a))))) + (lambda () + (turn! ff (lambda (turn) + (for [(a (in-list (reverse qq)))] (a turn))))))) (set-turn-queues! turn #f))))) (define (turn-call-with-facet outer-turn f action)