diff --git a/syndicate/actor.rkt b/syndicate/actor.rkt index 67af5ce..5625af2 100644 --- a/syndicate/actor.rkt +++ b/syndicate/actor.rkt @@ -121,7 +121,10 @@ (struct turn (id active-facet - [queues #:mutable])) + [queues #:mutable]) + #:methods gen:custom-write + [(define (write-proc t port mode) + (fprintf port "#" (turn-id t) (if (turn-committed? t) ":committed" "")))]) ;;---------------------------------------------------------------------------