• (pprint-map amap)

0 Examples top

Log in to add / edit an example.

See Also top

Log in to add a see also.

Plus_12x12 Minus_12x12 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)))))))
Vars in clojure.contrib.pprint/pprint-map: pprint-logical-block pprint-newline write-out *out* defn ffirst first fnext loop next when
Used in 0 other vars

Comments top

No comments for pprint-map. Log in to add a comment.