diff options
| -rw-r--r-- | src/clj/clojure/core_print.clj | 9 |
1 files changed, 4 insertions, 5 deletions
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) |