Remove old show cruft
This commit is contained in:
parent
c0e88021f2
commit
1ca434b308
|
@ -61,13 +61,6 @@
|
||||||
(throw (ex-info "Cannot set! something that is not a ref" {}))
|
(throw (ex-info "Cannot set! something that is not a ref" {}))
|
||||||
))})
|
))})
|
||||||
|
|
||||||
(declare show)
|
|
||||||
|
|
||||||
(defn- show-vector [v]
|
|
||||||
(if (= (first v) ::data/tuple)
|
|
||||||
(str "(" (apply str (into [] (comp (map (:body show)) (interpose ", ")) (next v))) ")")
|
|
||||||
(str "[" (apply str (into [] (comp (map (:body show)) (interpose ", ")) v)) "]")))
|
|
||||||
|
|
||||||
(def show {:name "show"
|
(def show {:name "show"
|
||||||
::data/type ::data/clj
|
::data/type ::data/clj
|
||||||
:body ludus.show/show})
|
:body ludus.show/show})
|
||||||
|
|
Loading…
Reference in New Issue
Block a user