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.

1 files changed, 0 insertions, 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);