mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +02:00
Code Activity

Fix inlining of lambda-apply-lambda.

Browse source 
* module/language/tree-il/inline.scm (inline!): Only inline (lambda args
  (apply (lambda ...) args)) if the outer lambda has rest args. Thanks
  to Mark Weaver for the note.
This commit is contained in:
Andy Wingo 2010-03-28 14:31:57 +02:00
parent 83a7b43bf2
commit 98dcf051e0
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/tree-il/inline.scm
View file

@ -121,7 +121,7 @@
(lp (cdr args) (cdr vars)))
(else #f))))
(and (not opt) (not kw) (not alternate)
(and (not opt) (not kw) rest (not alternate)
(record-case body
((<application> proc args)
;; (lambda args (apply (lambda ...) args)) => (lambda ...)