luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

virtual thread cult

Browse source
This commit is contained in:
Michiel Borkent 2025-02-21 15:32:45 +01:00
parent 6be0b5bddf
commit aee22beab9
1 changed files with 8 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
src/babashka/impl/clojure/core/async.clj
View file

@ -54,15 +54,12 @@
([f] (thread-call f :mixed))
([f workload]
(let [c (async/chan 1)
binds (vars/get-thread-binding-frame)
returning-to-chan (fn [bf]
#(try
(when-some [ret (bf)]
(async/>!! c ret))
(finally (async/close! c))))
f (fn []
(vars/reset-thread-binding-frame binds)
(f))]
f (vars/binding-conveyor-fn f)]
(-> f #_bound-fn* returning-to-chan (dispatch/exec workload))
c)))
@ -72,16 +69,14 @@
f when completed, then close."
[f]
(let [c (async/chan 1)]
(let [binds (vars/get-thread-binding-frame)]
(let [returning-to-chan (fn [bf]
#(try
(when-some [ret (bf)]
(async/>!! c ret))
(finally (async/close! c))))
f (vars/binding-conveyor-fn f)]
(.execute virtual-executor
(fn []
(vars/reset-thread-binding-frame binds)
(try
(let [ret (f)]
(when-not (nil? ret)
(async/>!! c ret)))
(finally
(async/close! c))))))
(-> f returning-to-chan)))
c))
(defn thread