diff options
Diffstat (limited to 'src/clj/clojure/core_print.clj')
| -rw-r--r-- | src/clj/clojure/core_print.clj | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/clj/clojure/core_print.clj b/src/clj/clojure/core_print.clj index a3c2e14a..bde2af9e 100644 --- a/src/clj/clojure/core_print.clj +++ b/src/clj/clojure/core_print.clj @@ -325,8 +325,8 @@ (agent-error o)) " FAILED" "")) - pr-on, "", ">", (list (cond (and (future? o) (not (future-done? o))) :pending - (and (instance? clojure.lang.IPromiseImpl o) (not (.hasValue o))) :not-delivered - :else @o)), w)) + pr-on, "", ">", (list (if (and (instance? clojure.lang.IPending o) (not (.isRealized o))) + :pending + @o)), w)) (def ^{:private true} print-initialized true) |