diff --git a/syndicate/actor.rkt b/syndicate/actor.rkt index ddfb41a..35b9e24 100644 --- a/syndicate/actor.rkt +++ b/syndicate/actor.rkt @@ -36,6 +36,7 @@ turn? turn-id turn-active-facet + turn-committed? turn! turn-freshen turn-ref @@ -263,6 +264,9 @@ ;;--------------------------------------------------------------------------- +(define (turn-committed? t) + (not (turn-queues t))) + (define (turn! f action [zombie-turn? #f]) (define ac (facet-actor f)) (log-syndicate/actor-debug "start turn ~v~a~a~a"