diff options
Diffstat (limited to 'src/clj')
| -rw-r--r-- | src/clj/clojure/core.clj | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj index 3c1b1fd9..46a7b233 100644 --- a/src/clj/clojure/core.clj +++ b/src/clj/clojure/core.clj @@ -4461,7 +4461,7 @@ not yet finished, calls to deref/@ will block." [#^Callable f] (let [fut (.submit clojure.lang.Agent/soloExecutor f)] - (new [clojure.lang.IDeref java.util.concurrent.Future] + (reify [clojure.lang.IDeref java.util.concurrent.Future] (deref [] (.get fut)) (get [] (.get fut)) (get [timeout unit] (.get fut timeout unit)) @@ -4564,7 +4564,7 @@ [] (let [d (java.util.concurrent.CountDownLatch. 1) v (atom nil)] - (new [clojure.lang.IFn clojure.lang.IDeref] this + (reify this [clojure.lang.IFn clojure.lang.IDeref] (deref [] (.await d) @v) (invoke [x] (locking d |