marcoy · November 12, 2020 14:14 · Jun 8, 2014 · Jun 8, 2014 · Jun 8, 2014 · Jun 8, 2014
diff --git a/async-custom-executor → async-custom-executor.clj b/async-custom-executor → async-custom-executor.clj
diff --git a/gistfile1.clj → async-custom-executor b/gistfile1.clj → async-custom-executor
diff --git a/gistfile1.clj b/gistfile1.clj
@@ -1,3 +1,4 @@
+;; http://stackoverflow.com/questions/18779296/clojure-core-async-any-way-to-control-number-of-threads-in-that-go-thread
 (ns sandbox
   (:require [clojure.core.async.impl.concurrent :as conc]
             [clojure.core.async.impl.exec.threadpool :as tp]

diff --git a/gistfile1.clj b/gistfile1.clj
@@ -0,0 +1,16 @@
+(ns sandbox
+  (:require [clojure.core.async.impl.concurrent :as conc]
+            [clojure.core.async.impl.exec.threadpool :as tp]
+            [clojure.core.async :as async]))
+
+(defonce my-executor
+  (java.util.concurrent.Executors/newFixedThreadPool
+   1
+   (conc/counted-thread-factory "my-async-dispatch-%d" true)))
+
+(alter-var-root #'clojure.core.async.impl.dispatch/executor
+                (constantly (delay (tp/thread-pool-executor my-executor))))
+
+(async/go
+ (println 
+  (Thread/currentThread))) ;=> #<Thread Thread[my-async-dispatch-1,5,main]>
No results found