summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/clj/clojure/core.clj6
1 files changed, 2 insertions, 4 deletions
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj
index ec81a5cc..f5e18bb6 100644
--- a/src/clj/clojure/core.clj
+++ b/src/clj/clojure/core.clj
@@ -1821,8 +1821,7 @@
{:added "1.0"
:static true}
[^clojure.lang.Agent a f & args]
- (binding [*agent* a]
- (.dispatch a (binding-conveyor-fn f) args false)))
+ (.dispatch a (binding [*agent* a] (binding-conveyor-fn f)) args false))
(defn send-off
"Dispatch a potentially blocking action to an agent. Returns the
@@ -1833,8 +1832,7 @@
{:added "1.0"
:static true}
[^clojure.lang.Agent a f & args]
- (binding [*agent* a]
- (.dispatch a (binding-conveyor-fn f) args true)))
+ (.dispatch a (binding [*agent* a] (binding-conveyor-fn f)) args true))
(defn release-pending-sends
"Normally, actions sent directly or indirectly during another action