From 6139a909db99e3f8718f817de42fbb1ff1c53251 Mon Sep 17 00:00:00 2001 From: Fogus Date: Wed, 26 Feb 2025 10:56:18 -0500 Subject: [PATCH] reflect for vthreads --- src/main/clojure/clojure/core/async/impl/dispatch.clj | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/src/main/clojure/clojure/core/async/impl/dispatch.clj b/src/main/clojure/clojure/core/async/impl/dispatch.clj index a45f86b..57fb15f 100644 --- 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