Better facet printing
This commit is contained in:
parent
44bee78044
commit
ab9168a5ea
|
@ -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))
|
||||
|
|
Loading…
Reference in New Issue