From be3d2c8c8702d76bdb091a9f2c17c293f3eceb5d Mon Sep 17 00:00:00 2001 From: Rich Hickey Date: Wed, 11 Feb 2009 00:42:29 +0000 Subject: IDeref print method honors *print-level*, patch from Chouser --- src/clj/clojure/core_print.clj | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'src') diff --git a/src/clj/clojure/core_print.clj b/src/clj/clojure/core_print.clj index 7cf92a33..999bcf8c 100644 --- a/src/clj/clojure/core_print.clj +++ b/src/clj/clojure/core_print.clj @@ -302,10 +302,9 @@ (.write w ")")) (defmethod print-method clojure.lang.IDeref [o #^Writer w] - (.write w (format "#<%s@%x: " - (.getSimpleName (class o)) - (System/identityHashCode o))) - (print-method @o w) - (.write w ">")) + (print-sequential (format "#<%s@%x: " + (.getSimpleName (class o)) + (System/identityHashCode o)) + pr-on, "", ">", (list @o), w)) (def #^{:private true} print-initialized true) -- cgit v1.2.3-70-g09d2