~ chicken-core (chicken-5) 85ce78b002ad14cde5d654f98912e635de01bf8f

commit 85ce78b002ad14cde5d654f98912e635de01bf8f
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon May 2 10:52:15 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon May 2 10:52:15 2011 +0200

    postpone inlining for procedures with explicit-rest argument merging

diff --git a/optimizer.scm b/optimizer.scm
index 779c47ee..c770b793 100644
--- a/optimizer.scm
+++ b/optimizer.scm
@@ -328,6 +328,7 @@
 				(cond ((and inline-locally 
 					    (test var 'inlinable)
 					    (not (test ifid 'inline-target)) ; inlinable procedure has changed
+					    (not (test ifid 'explicit-rest))
 					    (case (variable-mark var '##compiler#inline) 
 					      ((yes) #t)
 					      ((no) #f)