diff options
Diffstat (limited to 'src/clj/clojure/core_print.clj')
| -rw-r--r-- | src/clj/clojure/core_print.clj | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/clj/clojure/core_print.clj b/src/clj/clojure/core_print.clj index 7a79a903..7cf92a33 100644 --- a/src/clj/clojure/core_print.clj +++ b/src/clj/clojure/core_print.clj @@ -301,4 +301,11 @@ (print-dup (.name n) w) (.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 ">")) + (def #^{:private true} print-initialized true) |