reflect for vthreads

clojure · Feb 26, 2025 · 6139a90 · 6139a90
1 parent 35e7ad9
commit 6139a90
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/src/main/clojure/clojure/core/async/impl/dispatch.clj b/src/main/clojure/clojure/core/async/impl/dispatch.clj
@@ -81,10 +81,8 @@
 (defn- make-io-executor
   []
   (if virtual-threads-available?
-    (-> (Thread/ofVirtual)
-        (Thread$Builder/.name "async-vthread-io-" 0)
-        .factory
-        Executors/newThreadPerTaskExecutor)
+    (-> (Class/.getDeclaredMethod Executors "newVirtualThreadPerTaskExecutor" (make-array Class 0))
+        (.invoke nil (make-array Class 0)))
     (make-ctp-named :io)))
 
 (defn ^:private create-default-executor