diff options
| author | Rich Hickey <richhickey@gmail.com> | 2009-07-31 20:17:05 -0400 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2009-07-31 20:17:05 -0400 |
| commit | 126253e94fbd01feefdfc44f69815e15e066a879 (patch) | |
| tree | 673ec63805596bec93dee9ee50b24959d262eb82 | |
| parent | 17284e6696c888e586d7c03db46065efdf82f50f (diff) | |
switch future-call and promise to new new
| -rw-r--r-- | src/clj/clojure/core.clj | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj index 7b4bb4f5..3b2ed7b1 100644 --- a/src/clj/clojure/core.clj +++ b/src/clj/clojure/core.clj @@ -4187,10 +4187,10 @@ not yet finished, calls to deref/@ will block." [#^Callable f] (let [fut (.submit clojure.lang.Agent/soloExecutor f)] - (proxy [clojure.lang.IDeref java.util.concurrent.Future] [] + (new [clojure.lang.IDeref java.util.concurrent.Future] (deref [] (.get fut)) - (get ([] (.get fut)) - ([timeout unit] (.get fut timeout unit))) + (get [] (.get fut)) + (get [timeout unit] (.get fut timeout unit)) (isCancelled [] (.isCancelled fut)) (isDone [] (.isDone fut)) (cancel [interrupt?] (.cancel fut interrupt?))))) @@ -4300,7 +4300,7 @@ [] (let [d (java.util.concurrent.CountDownLatch. 1) v (atom nil)] - (proxy [clojure.lang.AFn clojure.lang.IDeref] [] + (new [clojure.lang.AFn clojure.lang.IDeref] this (deref [] (.await d) @v) (invoke [x] (locking d |