@@ -1,12 +1,21 @@ (ns swank.util.pprint) -(def pprint-enabled? + +(def + #^{:private true} + pprint-enabled? (try (.loadClass (clojure.lang.RT/baseLoader) "clojure.contrib.pprint.PrettyWriter") (catch Exception e nil))) (when pprint-enabled? (use 'clojure.contrib.pprint)) -(defmacro pretty-pr-code [code] - (if pprint-enabled? - `(with-pprint-dispatch *code-dispatch* (write ~code :pretty true :stream nil)) - `(pr-str ~code))) +(defmacro pretty-pr-code* + ([code] + (if pprint-enabled? + `(binding [*print-suppress-namespaces* true] + (with-pprint-dispatch *code-dispatch* (write ~code :pretty true :stream nil))) + `(pr-str ~code))) + {:private true}) + +(defn pretty-pr-code [code] + (pretty-pr-code* code)) \ No newline at end of file swank/util/pprint.clj f7521ffb2b4e57a38f5cd9be9f296bedec60abdf Jeffrey Chu jochu0@gmail.com http://github.com/jochu/swank-clojure/commit/4d8e9244447490a86727b91cd85c475e0b5701f5 4d8e9244447490a86727b91cd85c475e0b5701f5 2009-04-17T13:37:27-07:00 2009-04-17T13:37:27-07:00 suppress namespaces, make function instead of macro 82ab5425e01a032e16053e20216353155354b31d Jeffrey Chu jochu0@gmail.com