fix print-method for objects with :type meta but no print-method, patch from Konrad Hinsen

1 files changed, 4 insertions, 1 deletions

diff --git a/src/clj/clojure/core_print.clj b/src/clj/clojure/core_print.clj
index 9ec08dfa..228b8cb3 100644
--- a/src/clj/clojure/core_print.clj
+++ b/src/clj/clojure/core_print.clj
@@ -68,6 +68,9 @@
           (pr-on m w))
       (.write w " "))))
 
+(defmethod print-method :default [o, #^Writer w]
+  (print-method (vary-meta o #(dissoc % :type)) w))
+
 (defmethod print-method nil [o, #^Writer w]
   (.write w "nil"))
 
@@ -80,7 +83,7 @@
   (print-args o w)
   (.write w ")"))
 
-(defmethod print-method :default [o, #^Writer w]
+(defmethod print-method Object [o, #^Writer w]
   (.write w "#<")
   (.write w (.getSimpleName (class o)))
   (.write w " ")