~ chicken-core (chicken-5) 9b42bc29f707903e01dcdb6d1184dcb8fc4a3435

commit 9b42bc29f707903e01dcdb6d1184dcb8fc4a3435
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Jul 5 14:31:45 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Jul 5 14:36:11 2010 +0200

    fixed renaming bug in let-optionals (thanks to Alejandro Forero Cuervo)

diff --git a/chicken-syntax.scm b/chicken-syntax.scm
index 56fc6563..ea4fd28b 100644
--- a/chicken-syntax.scm
+++ b/chicken-syntax.scm
@@ -639,7 +639,7 @@
 	     (body-proc (r 'body))
 
 	     ;; A private var, bound to the value of the ARG-LIST expression.
-	     (rest-var (r '%rest))
+	     (rest-var (r '_%rest))
 
 	     (defaulter-names (map (lambda (var) (r (prefix-sym "def-" var)))
 				   vars))