syndicate-lang
/
syndicate-rkt
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

More sensible representation of facet ancestry

This commit is contained in:
Tony Garnock-Jones 2021-06-11 09:54:53 +02:00
parent 0ba6bac01b
commit 26ca865b87
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
syndicate/actor.rkt
View File

@ -109,10 +109,10 @@
(fprintf port "#<facet:~a:~a:~a>"
(actor-id (facet-actor f))
(actor-name (facet-actor f))
(string-join (let loop ((f f))
(if (facet-parent f)
(cons (number->string (facet-id f)) (loop (facet-parent f)))
'()))
(string-join (reverse (let loop ((f f))
(if (facet-parent f)
(cons (number->string (facet-id f)) (loop (facet-parent f)))
'())))
"/")))])
(struct turn (id