From 1aa5297b4dcbe0540f85541a53006ce8e9fee691 Mon Sep 17 00:00:00 2001 From: Robin Templeton Date: Mon, 11 Aug 2014 06:05:26 -0400 Subject: 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. --- module/language/elisp/compile-tree-il.scm | 4 ++-- 1 file 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)))))) -- cgit v1.2.3