From c18a2b2652e3519e8d398f8f1731b4a9c1c9af21 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonyg@leastfixedpoint.com>
Date: Tue, 8 Jun 2021 09:28:14 +0200
Subject: [PATCH] turn-committed?

---
 syndicate/actor.rkt | 4 ++++
 1 file changed, 4 insertions(+)

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"