Skip to content

Instantly share code, notes, and snippets.

@na-ka-na
Created June 21, 2011 07:44

Revisions

  1. na-ka-na created this gist Jun 21, 2011.
    17 changes: 17 additions & 0 deletions change_map_vector_print.clj
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,17 @@

    (defn- print-map [m print-one w]
    (#'clojure.core/print-sequential
    "{"
    (fn [e ^java.io.Writer w]
    (do (print-one (key e) w) (.append w " ") (print-one (val e) w)))
    ", "
    "}"
    (seq m) w))

    (defmethod clojure.core/print-method clojure.lang.IPersistentMap [m, ^java.io.Writer w]
    (#'clojure.core/print-meta m w)
    (print-map m #'clojure.core/pr-on w))

    (defmethod clojure.core/print-method clojure.lang.IPersistentVector [v, ^java.io.Writer w]
    (#'clojure.core/print-meta v w)
    (#'clojure.core/print-sequential "[" #'clojure.core/pr-on " " "]" v w))