diff options
| -rw-r--r-- | src/clj/clojure/core.clj | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj index ca3acfac..04b11d25 100644 --- a/src/clj/clojure/core.clj +++ b/src/clj/clojure/core.clj @@ -3725,7 +3725,7 @@ the coordination overhead." ([f coll] (let [n (inc (.. Runtime getRuntime availableProcessors)) - agents (doall (map #(agent (f %)) (take n coll))) + agents (doall (map #(send (agent %) f) (take n coll))) wget (fn [a] (await1 a) @a) step (fn step [[x & xs :as s] [a & as :as acycle]] |