function | since v0.0-2120 | Edit |
(print-map m print-one writer opts)
(defn print-map [m print-one writer opts]
(let [[ns lift-map] (when (map? m)
(lift-ns m))]
(if ns
(print-prefix-map (str "#:" ns) lift-map print-one writer opts)
(print-prefix-map nil m print-one writer opts))))