twc/ludus
4
0
Fork 0
Code Issues 28 Pull Requests Packages Projects 8 Releases Wiki Activity

pprint refs

Browse Source
This commit is contained in:
Scott Richmond 2022-05-18 18:32:15 -04:00
parent 9df37cca4d
commit 5c07f43713
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/ludus/show.clj
View File

@ -24,6 +24,9 @@
(::data/struct v)
(str "@{" (apply str (into [] show-keyed (dissoc v ::data/struct))) "}")
(::data/ref v) ;; TODO: reconsider this
(str "ref:" (::data/name v) " <" (deref (::data/value v))">")
:else
(str "#{" (apply str (into [] show-keyed v)) "}")