More sensible representation of facet ancestry
This commit is contained in:
parent
0ba6bac01b
commit
26ca865b87
|
@ -109,10 +109,10 @@
|
||||||
(fprintf port "#<facet:~a:~a:~a>"
|
(fprintf port "#<facet:~a:~a:~a>"
|
||||||
(actor-id (facet-actor f))
|
(actor-id (facet-actor f))
|
||||||
(actor-name (facet-actor f))
|
(actor-name (facet-actor f))
|
||||||
(string-join (let loop ((f f))
|
(string-join (reverse (let loop ((f f))
|
||||||
(if (facet-parent f)
|
(if (facet-parent f)
|
||||||
(cons (number->string (facet-id f)) (loop (facet-parent f)))
|
(cons (number->string (facet-id f)) (loop (facet-parent f)))
|
||||||
'()))
|
'())))
|
||||||
"/")))])
|
"/")))])
|
||||||
|
|
||||||
(struct turn (id
|
(struct turn (id
|
||||||
|
|
Loading…
Reference in New Issue