From 79e767294ea2947c7e181c8390377751e80d35dc Mon Sep 17 00:00:00 2001 From: Stuart Halloway Date: Fri, 22 Apr 2011 10:10:27 -0400 Subject: [PATCH] #CLJ-435: don't let mischievous :type metadata break printing --- src/clj/clojure/core.clj | 4 +++- 1 files changed, 3 insertions(+), 1 deletions(-) diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj index 474c680..2a280c1 100644 --- a/src/clj/clojure/core.clj +++ b/src/clj/clojure/core.clj @@ -3182,7 +3182,9 @@ (def ^:dynamic ^{:private true} print-initialized false) -(defmulti print-method (fn [x writer] (type x))) +(defmulti print-method (fn [x writer] + (let [t (get (meta x) :type)] + (if (keyword? t) t (class x))))) (defmulti print-dup (fn [x writer] (class x))) (defn pr-on -- 1.7.3.5