[Guile-commits] GNU Guile branch, master, updated. release_1-9-9-14-g98dcf05

[Andy Wingo]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=98dcf051e00bb0b36b932b60e5bdce584f2acde4

The branch, master has been updated
       via  98dcf051e00bb0b36b932b60e5bdce584f2acde4 (commit)
      from  83a7b43bf2bf445af9d2611252deaacb4de7095e (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 98dcf051e00bb0b36b932b60e5bdce584f2acde4
Author: Andy Wingo <address@hidden>
Date:   Sun Mar 28 14:31:57 2010 +0200

    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.

-----------------------------------------------------------------------

Summary of changes:
 module/language/tree-il/inline.scm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/module/language/tree-il/inline.scm 
b/module/language/tree-il/inline.scm
index 4e3863e..8dd7dd3 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 ...)


hooks/post-receive
-- 
GNU Guile