~ chicken-core (chicken-5) 788868f64a4ca86c3b37b76ce43ce8b5a32ca7fa

commit 788868f64a4ca86c3b37b76ce43ce8b5a32ca7fa
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:26 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)