gen:custom-write for turn
This commit is contained in:
parent
5260370154
commit
98486667f4
|
@ -121,7 +121,10 @@
|
|||
|
||||
(struct turn (id
|
||||
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