syndicate-lang
/
syndicate-rkt
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

turn-committed?

This commit is contained in:
Tony Garnock-Jones 2021-06-08 09:28:14 +02:00
parent eec5c59f84
commit c18a2b2652
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
syndicate/actor.rkt
View File

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