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-12 09:14:53 -0400
commit8aaca5458cdbbad267217dfc8bd6f0aeca435b95 (patch)
tree0f938169b257d767326a9f9b48fb8e399dac91da
parent0f47e7c575390ddf0df895c26c29f97c8a4c1618 (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