From f6293028e7ab4430d786af222f0200fd54428494 Mon Sep 17 00:00:00 2001 From: xificurC Date: Mon, 26 Aug 2024 14:18:49 +0200 Subject: [PATCH] [lang] ::e/trace --- src/hyperfiddle/electric/impl/lang_de2.clj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/hyperfiddle/electric/impl/lang_de2.clj b/src/hyperfiddle/electric/impl/lang_de2.clj index 705a769d4..31f5d2d8b 100644 --- a/src/hyperfiddle/electric/impl/lang_de2.clj +++ b/src/hyperfiddle/electric/impl/lang_de2.clj @@ -128,7 +128,7 @@ (if (electric-sym? (first o)) (recur (?meta o (cons `e/$ o)) env caller) (?meta o (cond->> (?meta o (list* (first o) (mapv (fn-> caller env) (rest o)))) - (and (::trace env) (some-> (qualify-sym (first o) env) (traceable))) + (and (or (::trace env) (::e/trace env)) (some-> (qualify-sym (first o) env) (traceable))) (list `r/tracing (list 'quote (trace-crumb o env)))))) (caller o2 env))) (?meta o (list* (caller (first o) env) (mapv (fn-> caller env) (next o))))))