From 6c5e6b713ebbf57817b7a011aa95784aee1f26f8 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonyg@leastfixedpoint.com>
Date: Tue, 15 Jun 2021 12:37:59 +0200
Subject: [PATCH] Print (DEAD) on a dead facet

---
 syndicate/actor.rkt | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

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 "#<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