From 608a4b212c4453be7b48591ece9d2d1eca710f27 Mon Sep 17 00:00:00 2001 From: xificurC Date: Wed, 29 Nov 2023 21:38:11 +0100 Subject: [PATCH] don't try to clj expand in cljs block This is harmful now, e.g. it loads the test namespace clj side even when not needed. The cljs expander code should take care of the expansion. --- src/hyperfiddle/electric/impl/expand.clj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/hyperfiddle/electric/impl/expand.clj b/src/hyperfiddle/electric/impl/expand.clj index 36a50975..c51da2bb 100644 --- a/src/hyperfiddle/electric/impl/expand.clj +++ b/src/hyperfiddle/electric/impl/expand.clj @@ -43,7 +43,7 @@ (let [cljs-macro-env (cond-> cljs-env (::ns cljs-env) (assoc :ns (::ns cljs-env)))] (if-some [expander (cljs-ana/get-expander f cljs-macro-env)] (apply expander o cljs-macro-env args) - (macroexpand-clj o))))) + o)))) (macroexpand-clj o))))))) (defn find-local [env sym] (find (:locals env) sym))