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

hashmap->dict cleanup

Browse Source
This commit is contained in:
Scott Richmond 2022-06-02 14:56:03 -04:00
parent 3f44c64802
commit 015d079d57
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/ludus/show.clj
View File

@ -27,11 +27,11 @@
(::data/ref v) ;; TODO: reconsider this
(str "ref:" (::data/name v) " <" (deref (::data/value v)) ">")
(::data/hashmap v)
(str "#{" (apply str (into [] show-keyed (dissoc v ::data/hashmap))) "}")
(::data/dict v)
(str "#{" (apply str (into [] show-keyed (dissoc v ::data/dict))) "}")
:else
(pp/pprint v)))
(pr-str v)))
(defn- show-set [v]
(str "${" (apply str (into [] show-linear v)) "}"))