diff options
| -rw-r--r-- | module/language/elisp/compile-tree-il.scm | 4 |
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 57d9f0b83..c683545d2 100644 --- a/module/language/elisp/compile-tree-il.scm +++ b/module/language/elisp/compile-tree-il.scm @@ -849,14 +849,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)))))) |