Improve debug-printing of facets
This commit is contained in:
parent
b50d18cd46
commit
634b114afc
|
@ -111,10 +111,15 @@
|
||||||
)
|
)
|
||||||
#:methods gen:custom-write
|
#:methods gen:custom-write
|
||||||
[(define (write-proc f p mode)
|
[(define (write-proc f p mode)
|
||||||
|
(local-require (only-in racket/string string-join))
|
||||||
|
(define (facet-id-chain f)
|
||||||
|
(if f
|
||||||
|
(cons (number->string (facet-id f)) (facet-id-chain (facet-parent f)))
|
||||||
|
'()))
|
||||||
(fprintf p "#<facet ~a ~v ~a>"
|
(fprintf p "#<facet ~a ~v ~a>"
|
||||||
(actor-id (facet-actor f))
|
(actor-id (facet-actor f))
|
||||||
(actor-name (facet-actor f))
|
(actor-name (facet-actor f))
|
||||||
(facet-id f)))])
|
(string-join (facet-id-chain f) ":")))])
|
||||||
|
|
||||||
(struct endpoint (id ;; EID
|
(struct endpoint (id ;; EID
|
||||||
[assertion #:mutable] ;; Assertion
|
[assertion #:mutable] ;; Assertion
|
||||||
|
|
Loading…
Reference in New Issue