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

Print (DEAD) on a dead facet

This commit is contained in:
Tony Garnock-Jones 2021-06-15 12:37:59 +02:00
parent 6c9926cb11
commit 6c5e6b713e
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
syndicate/actor.rkt
View File

@ -113,14 +113,17 @@
#:methods gen:custom-write
[(define (write-proc f port mode)
(local-require (only-in racket/string string-join))
(fprintf port "#<facet:~a:~a:~a>"
(fprintf port "#<facet:~a:~a:~a~a>"
(actor-id (facet-actor f))
(actor-name (facet-actor f))
(string-join (reverse (let loop ((f f))
(if (facet-parent f)
(cons (number->string (facet-id f)) (loop (facet-parent f)))
'())))
"/")))])
"/")
(if (facet-live? f)
""
":(DEAD)")))])
(struct turn (id
active-facet