turn-committed?

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"