Improve debug-printing of facets
This commit is contained in:
parent
b50d18cd46
commit
634b114afc
|
@ -111,10 +111,15 @@
|
|||
)
|
||||
#:methods gen:custom-write
|
||||
[(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>"
|
||||
(actor-id (facet-actor f))
|
||||
(actor-name (facet-actor f))
|
||||
(facet-id f)))])
|
||||
(string-join (facet-id-chain f) ":")))])
|
||||
|
||||
(struct endpoint (id ;; EID
|
||||
[assertion #:mutable] ;; Assertion
|
||||
|
|
Loading…
Reference in New Issue