Source
clojure/contrib/pprint/dispatch.clj:93
top
(defn pprint-map [amap]
(pprint-logical-block :prefix "{" :suffix "}"
(loop [aseq (seq amap)]
(when aseq
(pprint-logical-block
(write-out (ffirst aseq))
(.write ^java.io.Writer *out* " ")
(pprint-newline :linear)
(write-out (fnext (first aseq))))
(when (next aseq)
(.write ^java.io.Writer *out* ", ")
(pprint-newline :linear)
(recur (next aseq)))))))
Comments top
No comments for pprint-map. Log in to add a comment.