| 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))
ns (some-> ns&lift-map (aget 0))]
(if ns
(print-prefix-map (str_ "#:" ns) (aget ns&lift-map 1) print-one writer opts)
(print-prefix-map nil m print-one writer opts))))