made futures use CachedThreadPool

yl1003 · Mar 1, 2009 · 115bbb2 · 115bbb2
1 parent 2fd3186
commit 115bbb2
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj
@@ -3998,7 +3998,7 @@
   return it on all subsequent calls to deref/@. If the computation has
   not yet finished, calls to deref/@ will block."
   [#^Callable f]
-  (let [fut (.submit clojure.lang.Agent/pooledExecutor f)]
+  (let [fut (.submit clojure.lang.Agent/soloExecutor f)]
     (proxy [clojure.lang.IDeref java.util.concurrent.Future] []
       (deref [] (.get fut))
       (get ([] (.get fut))

diff --git a/src/jvm/clojure/lang/Agent.java b/src/jvm/clojure/lang/Agent.java
@@ -25,7 +25,7 @@ public class Agent extends ARef {
 final public static ExecutorService pooledExecutor =
 		Executors.newFixedThreadPool(2 + Runtime.getRuntime().availableProcessors());
 
-final static ExecutorService soloExecutor = Executors.newCachedThreadPool();
+final public static ExecutorService soloExecutor = Executors.newCachedThreadPool();
 
 final static ThreadLocal<IPersistentVector> nested = new ThreadLocal<IPersistentVector>();