Remove old show cruft

This commit is contained in:
Scott Richmond 2022-05-24 17:02:50 -04:00
parent c0e88021f2
commit 1ca434b308

View File

@ -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})