fix: remove *block-cache in ui-thread

This commit is contained in:
rcmerci
2025-04-03 16:13:01 +08:00
parent 633b0518dc
commit eea0cb6a7e
2 changed files with 5 additions and 13 deletions

View File

@@ -20,11 +20,15 @@
~qualified-keyword-name
(fn ~(symbol (str "thread-api--" (name qualified-keyword-name))) ~params ~@body)))
#?(:cljs (def *profile (volatile! {})))
#?(:cljs
(defn remote-function
"Return a promise whose value is transit-str."
[qualified-kw-str args-direct-passthrough? args-transit-str-or-args-array]
(let [qkw (keyword qualified-kw-str)]
(vswap! *profile update qkw inc)
(if-let [f (@*thread-apis qkw)]
(let [result (apply f (cond-> args-transit-str-or-args-array
(not args-direct-passthrough?) ldb/read-transit-str))