From 8cc7b9ee27b400ba752f11042f727d68a2ef1dc8 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 8 Apr 2025 21:45:40 -0700 Subject: expand-hook: don't process symbol macros. There isn't an obvious use for calling the expander hook for symbolic forms that are macros. (Especially while not calling it for symbolic forms that are not macros.) * eval.c (do_expand): Do not call the expand hook for symbol macro forms. --- eval.c | 10 ---------- 1 file changed, 10 deletions(-) diff --git a/eval.c b/eval.c index 7b485e6f..9c35d6c5 100644 --- a/eval.c +++ b/eval.c @@ -5067,17 +5067,7 @@ again: val symac_bind = lookup_symac(menv, form); if (symac_bind) { - val eh = expand_hook; val symac = cdr(symac_bind); - - if (eh) { - val eform = funcall3(eh, form, menv, macro_k); - if (eform != form) { - form = rlcp_tree(eform, form); - goto again; - } - } - if (symac == form) return form; return expand(rlcp_tree(symac, form), menv); -- cgit v1.2.3