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 "#" + (fprintf port "#" + (engine-id (actor-engine (facet-actor f))) (actor-id (facet-actor f)) (actor-name (facet-actor f)) (string-join (reverse (let loop ((f f))