Print (DEAD) on a dead facet
This commit is contained in:
parent
6c9926cb11
commit
6c5e6b713e
|
@ -113,14 +113,17 @@
|
||||||
#:methods gen:custom-write
|
#:methods gen:custom-write
|
||||||
[(define (write-proc f port mode)
|
[(define (write-proc f port mode)
|
||||||
(local-require (only-in racket/string string-join))
|
(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-id (facet-actor f))
|
||||||
(actor-name (facet-actor f))
|
(actor-name (facet-actor f))
|
||||||
(string-join (reverse (let loop ((f f))
|
(string-join (reverse (let loop ((f f))
|
||||||
(if (facet-parent f)
|
(if (facet-parent f)
|
||||||
(cons (number->string (facet-id f)) (loop (facet-parent f)))
|
(cons (number->string (facet-id f)) (loop (facet-parent f)))
|
||||||
'())))
|
'())))
|
||||||
"/")))])
|
"/")
|
||||||
|
(if (facet-live? f)
|
||||||
|
""
|
||||||
|
":(DEAD)")))])
|
||||||
|
|
||||||
(struct turn (id
|
(struct turn (id
|
||||||
active-facet
|
active-facet
|
||||||
|
|
Loading…
Reference in New Issue