From c978faf679de27e0ade39439935712711c05336a Mon Sep 17 00:00:00 2001 From: Michiel Borkent Date: Fri, 21 Feb 2025 15:34:42 +0100 Subject: [PATCH] add io-thread --- src/babashka/impl/clojure/core/async.clj | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/babashka/impl/clojure/core/async.clj b/src/babashka/impl/clojure/core/async.clj index 78411b3f..a12c5b76 100644 --- a/src/babashka/impl/clojure/core/async.clj +++ b/src/babashka/impl/clojure/core/async.clj @@ -83,6 +83,10 @@ [_ _ & body] `(~'clojure.core.async/thread-call (fn [] ~@body) :mixed)) +(defn io-thread + [_ _ & body] + `(~'clojure.core.async/thread-call (fn [] ~@body) :io)) + (defn -vthread [_ _ & body] `(~'clojure.core.async/-vthread-call (fn [] ~@body))) @@ -157,6 +161,7 @@ 'take! (copy-var async/take! core-async-namespace) 'tap (copy-var async/tap core-async-namespace) 'thread (macrofy 'thread thread core-async-namespace) + 'io-thread (macrofy 'io-thread io-thread core-async-namespace) 'thread-call (copy-var thread-call core-async-namespace) '-vthread-call (copy-var -vthread-call core-async-namespace) 'timeout (copy-var timeout core-async-namespace)