diff options
author | Robin Templeton <robin@terpri.org> | 2014-08-11 06:05:26 -0400 |
---|---|---|
committer | Christine Lemmer-Webber <cwebber@dustycloud.org> | 2021-10-19 18:10:05 -0400 |
commit | 49c845c912df7068de7f3d068155ccaa6cbb40e4 (patch) | |
tree | aa63759b2da79b2d623f74fdcf15b4de75e2ff6a | |
parent | 31761a62217b2ffe67f9f391582026cce456fe3a (diff) | |
download | guile-49c845c912df7068de7f3d068155ccaa6cbb40e4.tar.gz |
top level fixes
(Best-ability ChangeLog annotation added by Christine Lemmer-Webber.)
* module/language/elisp/compile-tree-il.scm (compile-pair): Use
compile-expr-1 instead of compile-expr.
-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 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)))))) |