use pre-1.12 compatible interop syntax

clojure · Jan 17, 2025 · 6d9fc5a · 6d9fc5a
1 parent 17b0538
commit 6d9fc5a
Showing 1 changed file with 6 additions and 7 deletions.
diff --git a/src/main/clojure/clojure/core/async/flow/impl.clj b/src/main/clojure/clojure/core/async/flow/impl.clj
@@ -34,13 +34,12 @@
 
 (defn futurize ^Future [f {:keys [exec]}]
   (fn [& args]
-    (^[Callable] ExecutorService/.submit
-     (case exec
-       :compute compute-exec
-       :io io-exec
-       :mixed mixed-exec
-       exec)
-     #(apply f args))))
+    (let [^ExecutorService exec (case exec
+                                  :compute compute-exec
+                                  :io io-exec
+                                  :mixed mixed-exec
+                                  exec)]
+      (.submit exec ^Callable #(apply f args)))))
 
 (defn prep-proc [ret pid {:keys [proc, args, chan-opts] :or {chan-opts {}}}]
   (let [{:keys [ins outs]} (spi/describe proc)