turn-committed?
This commit is contained in:
parent
eec5c59f84
commit
c18a2b2652
|
@ -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"
|
||||||
|
|
Loading…
Reference in New Issue