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)