Better facet printing

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))