~ chicken-core (chicken-5) 853746f62769201a34abaa11585fa5e8b421ed58

commit 853746f62769201a34abaa11585fa5e8b421ed58
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:31:45 2010 +0200

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

diff --git a/chicken-syntax.scm b/chicken-syntax.scm
index 53a95459..80a1fe63 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))