diff options
Diffstat (limited to 'src/clj/clojure/core_print.clj')
| -rw-r--r-- | src/clj/clojure/core_print.clj | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/clj/clojure/core_print.clj b/src/clj/clojure/core_print.clj index d2b1612e..0ab1ee52 100644 --- a/src/clj/clojure/core_print.clj +++ b/src/clj/clojure/core_print.clj @@ -309,9 +309,13 @@ (.write w ")")) (defmethod print-method clojure.lang.IDeref [o #^Writer w] - (print-sequential (format "#<%s@%x: " + (print-sequential (format "#<%s@%x%s: " (.getSimpleName (class o)) - (System/identityHashCode o)) + (System/identityHashCode o) + (if (and (instance? clojure.lang.Agent o) + (agent-error o)) + " FAILED" + "")) pr-on, "", ">", (list (if (and (future? o) (not (future-done? o))) :pending @o)), w)) (def #^{:private true} print-initialized true) |