~ chicken-core (chicken-5) 89b1b61c24580dc07ef575b696f8349f7889c6bf

commit 89b1b61c24580dc07ef575b696f8349f7889c6bf
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sun May 1 02:04:47 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sun May 1 02:04:47 2011 +0200

    sigh

diff --git a/optimizer.scm b/optimizer.scm
index edb53cfe..779c47ee 100644
--- a/optimizer.scm
+++ b/optimizer.scm
@@ -381,7 +381,7 @@
 							       (sub1 argc)
 							       (cdr args)
 							       (cons (car args) used) ) ] ) ) ) )
-				      #;((and (test ifid 'explicit-rest)
+				      ((and (test ifid 'explicit-rest)
 					    (not (memq n rest-consers)) ) ; make sure we haven't inlined rest-list already
 				       (let ([n (llist-length llist)])
 					 (if (< (length args) n)