summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--module/language/elisp/compile-tree-il.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/module/language/elisp/compile-tree-il.scm b/module/language/elisp/compile-tree-il.scm
index 6c3f7bd98..b7df68d9f 100644
--- a/module/language/elisp/compile-tree-il.scm
+++ b/module/language/elisp/compile-tree-il.scm
@@ -836,14 +836,14 @@
(special-operator-function loc arguments)))
((find-operator operator 'macro)
=> (lambda (macro-function)
- (compile-expr (apply macro-function arguments))))
+ (compile-expr-1 (apply macro-function arguments))))
((and (symbol? operator)
(eget operator '%compiler-macro))
=> (lambda (compiler-macro-function)
(let ((new (compiler-macro-function expr)))
(if (eq? new expr)
(compile-expr `(%funcall (%function ,operator) ,@arguments))
- (compile-expr new)))))
+ (compile-expr-1 new)))))
(else
(compile-expr `(%funcall (%function ,operator) ,@arguments))))))