gen:custom-write for turn
This commit is contained in:
parent
5260370154
commit
98486667f4
|
@ -121,7 +121,10 @@
|
||||||
|
|
||||||
(struct turn (id
|
(struct turn (id
|
||||||
active-facet
|
active-facet
|
||||||
[queues #:mutable]))
|
[queues #:mutable])
|
||||||
|
#:methods gen:custom-write
|
||||||
|
[(define (write-proc t port mode)
|
||||||
|
(fprintf port "#<turn:~a~a>" (turn-id t) (if (turn-committed? t) ":committed" "")))])
|
||||||
|
|
||||||
;;---------------------------------------------------------------------------
|
;;---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue