From ab9168a5eabd07b3075b9770dda4162643bca4bf Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonyg@leastfixedpoint.com>
Date: Tue, 15 Jun 2021 14:49:34 +0200
Subject: [PATCH] Better facet printing

---
 syndicate/actor.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/syndicate/actor.rkt b/syndicate/actor.rkt
index a52dad1..a0a07d2 100644
--- a/syndicate/actor.rkt
+++ b/syndicate/actor.rkt
@@ -115,7 +115,8 @@
   #:methods gen:custom-write
   [(define (write-proc f port mode)
      (local-require (only-in racket/string string-join))
-     (fprintf port "#<facet:~a:~a:~a~a>"
+     (fprintf port "#<facet:~a/~a:~a:~a~a>"
+              (engine-id (actor-engine (facet-actor f)))
               (actor-id (facet-actor f))
               (actor-name (facet-actor f))
               (string-join (reverse (let loop ((f f))