diff options
| author | Rich Hickey <richhickey@gmail.com> | 2009-01-31 17:40:37 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2009-01-31 17:40:37 +0000 |
| commit | 356d267d1fee753bccae670915836f5e5877bb24 (patch) | |
| tree | fe14f36eeaf6ea65df55a0a0193a6a7dd6a49e1f /src | |
| parent | de15886acc72c98f2ce1284bb54147e35d8bbd59 (diff) | |
fixed pmap so parallel in first n steps
Diffstat (limited to 'src')
| -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]] |