Source
clojure/contrib/pprint/dispatch.clj:199
top
(defn pprint-binding-form [binding-vec]
(pprint-logical-block :prefix "[" :suffix "]"
(loop [binding binding-vec]
(when (seq binding)
(pprint-logical-block binding
(write-out (first binding))
(when (next binding)
(.write ^java.io.Writer *out* " ")
(pprint-newline :miser)
(write-out (second binding))))
(when (next (rest binding))
(.write ^java.io.Writer *out* " ")
(pprint-newline :linear)
(recur (next (rest binding))))))))
Comments top
No comments for pprint-binding-form. Log in to add a comment.