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

gen:custom-write for turn

This commit is contained in:
Tony Garnock-Jones 2021-06-08 09:29:49 +02:00
parent 5260370154
commit 98486667f4
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
syndicate/actor.rkt
View File

@ -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" "")))])
;;---------------------------------------------------------------------------