~ chicken-core (chicken-5) 9c42bd53f019e2f0ea91de26bea66de06371a911

commit 9c42bd53f019e2f0ea91de26bea66de06371a911
Author:     unknown <felix@.(none)>
AuthorDate: Thu Nov 5 08:51:05 2009 +0100
Commit:     unknown <felix@.(none)>
CommitDate: Thu Nov 5 08:51:05 2009 +0100

    trivial optimization

diff --git a/optimizer.scm b/optimizer.scm
index dc0bdaeb..b543069c 100644
--- a/optimizer.scm
+++ b/optimizer.scm
@@ -289,7 +289,7 @@
 			      (let ([ifid (first lparams)])
 				(cond [(and inline-locally 
 					    (test var 'inlinable)
-					    (not (test (first lparams) 'inline-target)) ; inlinable procedure has changed
+					    (not (test ifid 'inline-target)) ; inlinable procedure has changed
 					    (case (variable-mark var '##compiler#inline) 
 					      ((yes) #t)
 					      ((no) #f)