Make turns atomic, rather than reply-turn-per-event
This commit is contained in:
parent
caec6fc820
commit
bcbc660ff1
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue