Better facet printing
This commit is contained in:
parent
44bee78044
commit
ab9168a5ea
|
@ -115,7 +115,8 @@
|
||||||
#:methods gen:custom-write
|
#:methods gen:custom-write
|
||||||
[(define (write-proc f port mode)
|
[(define (write-proc f port mode)
|
||||||
(local-require (only-in racket/string string-join))
|
(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-id (facet-actor f))
|
||||||
(actor-name (facet-actor f))
|
(actor-name (facet-actor f))
|
||||||
(string-join (reverse (let loop ((f f))
|
(string-join (reverse (let loop ((f f))
|
||||||
|
|
Loading…
Reference in New Issue