From: Andy Wingo <wingo@pobox.com>
Date: Sun, 28 Mar 2010 12:31:57 +0000 (+0200)
Subject: Fix inlining of lambda-apply-lambda.
X-Git-Tag: release_1-9-10~58
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=98dcf051e00bb0b36b932b60e5bdce584f2acde4;p=platform%2Fupstream%2Fguile.git

Fix inlining of lambda-apply-lambda.

* 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.
---

diff --git a/module/language/tree-il/inline.scm b/module/language/tree-il/inline.scm
index 4e3863ef6..8dd7dd334 100644
--- a/module/language/tree-il/inline.scm
+++ b/module/language/tree-il/inline.scm
@@ -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 ...)