summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRich Hickey <richhickey@gmail.com>2010-08-11 22:18:33 -0400
committerStuart Halloway <stu@thinkrelevance.com>2010-08-13 11:26:10 -0400
commit0c0e9c5a0bd5ec511462553298e67b816a9284cc (patch)
treedff7117e239cd052f38c6a0043f25c753182a792
parentac484ba40cc1d94d42ce59e9df92b13e98ed0b6e (diff)
make sure future clears closed-overs, fixes #423
Signed-off-by: Stuart Halloway <stu@thinkrelevance.com>
-rw-r--r--src/clj/clojure/core.clj2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj
index ade4405c..5115954e 100644
--- a/src/clj/clojure/core.clj
+++ b/src/clj/clojure/core.clj
@@ -5410,7 +5410,7 @@
return it on all subsequent calls to deref/@. If the computation has
not yet finished, calls to deref/@ will block."
{:added "1.1"}
- [& body] `(future-call (fn [] ~@body)))
+ [& body] `(future-call (^{:once true} fn* [] ~@body)))
(defn future-cancel