diff --git a/syndicate/actor.rkt b/syndicate/actor.rkt index 80103b4..479e8be 100644 --- a/syndicate/actor.rkt +++ b/syndicate/actor.rkt @@ -113,14 +113,17 @@ #:methods gen:custom-write [(define (write-proc f port mode) (local-require (only-in racket/string string-join)) - (fprintf port "#" + (fprintf port "#" (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