mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-04 16:50:25 +02:00
Code Activity

top level fixes

Browse source 
(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.
This commit is contained in:
Robin Templeton 2014-08-11 06:05:26 -04:00 • committed by Christopher Allan Webber
parent 93b8b53c65
commit b5701278c9
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/language/elisp/compile-tree-il.scm
View file

@ -830,14 +830,14 @@
(special-operator-function loc arguments))) (special-operator-function loc arguments)))
((find-operator operator 'macro) ((find-operator operator 'macro)
=> (lambda (macro-function) => (lambda (macro-function)
(compile-expr (apply macro-function arguments)))) (compile-expr-1 (apply macro-function arguments))))
((and (symbol? operator) ((and (symbol? operator)
(eget operator '%compiler-macro)) (eget operator '%compiler-macro))
=> (lambda (compiler-macro-function) => (lambda (compiler-macro-function)
(let ((new (compiler-macro-function expr))) (let ((new (compiler-macro-function expr)))
(if (eq? new expr) (if (eq? new expr)
(compile-expr `(%funcall (%function ,operator) ,@arguments)) (compile-expr `(%funcall (%function ,operator) ,@arguments))
(compile-expr new))))) (compile-expr-1 new)))))
(else (else
(compile-expr `(%funcall (%function ,operator) ,@arguments)))))) (compile-expr `(%funcall (%function ,operator) ,@arguments))))))