hashmap->dict cleanup
This commit is contained in:
parent
3f44c64802
commit
015d079d57
|
@ -27,11 +27,11 @@
|
||||||
(::data/ref v) ;; TODO: reconsider this
|
(::data/ref v) ;; TODO: reconsider this
|
||||||
(str "ref:" (::data/name v) " <" (deref (::data/value v)) ">")
|
(str "ref:" (::data/name v) " <" (deref (::data/value v)) ">")
|
||||||
|
|
||||||
(::data/hashmap v)
|
(::data/dict v)
|
||||||
(str "#{" (apply str (into [] show-keyed (dissoc v ::data/hashmap))) "}")
|
(str "#{" (apply str (into [] show-keyed (dissoc v ::data/dict))) "}")
|
||||||
|
|
||||||
:else
|
:else
|
||||||
(pp/pprint v)))
|
(pr-str v)))
|
||||||
|
|
||||||
(defn- show-set [v]
|
(defn- show-set [v]
|
||||||
(str "${" (apply str (into [] show-linear v)) "}"))
|
(str "${" (apply str (into [] show-linear v)) "}"))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user