top level fixes

(Best-ability ChangeLog annotation added by Christopher Allan Webber.)

* module/language/elisp/compile-tree-il.scm (compile-pair): Use
  compile-expr-1 instead of compile-expr.

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))))))