vthread es when available

clojure · Feb 26, 2025 · 35e7ad9 · 35e7ad9
1 parent c56fd02
commit 35e7ad9
Showing 1 changed file with 17 additions and 1 deletion.
diff --git a/src/main/clojure/clojure/core/async/impl/dispatch.clj b/src/main/clojure/clojure/core/async/impl/dispatch.clj
@@ -71,11 +71,27 @@
   [workflow]
   (Executors/newCachedThreadPool (counted-thread-factory (str "async-" (name workflow) "-%d") true)))
 
+(def virtual-threads-available?
+  (try
+    (Class/forName "java.lang.Thread$Builder$OfVirtual")
+    true
+    (catch ClassNotFoundException _
+      false)))
+
+(defn- make-io-executor
+  []
+  (if virtual-threads-available?
+    (-> (Thread/ofVirtual)
+        (Thread$Builder/.name "async-vthread-io-" 0)
+        .factory
+        Executors/newThreadPerTaskExecutor)
+    (make-ctp-named :io)))
+
 (defn ^:private create-default-executor
   [workload]
   (case workload
     :compute (make-ctp-named :compute)
-    :io      (make-ctp-named :io)
+    :io      (make-io-executor)
     :mixed   (make-ctp-named :mixed)))
 
 (def executor-for