~ chicken-core (chicken-5) afcc38711da17055c105b56948039aaae6879e2f

commit afcc38711da17055c105b56948039aaae6879e2f
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sun Jan 25 22:03:26 2015 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sun Jan 25 22:03:26 2015 +0100

    compiler-syntax.scm: mini-srfi-1

diff --git a/compiler-syntax.scm b/compiler-syntax.scm
index 0070782e..19831406 100644
--- a/compiler-syntax.scm
+++ b/compiler-syntax.scm
@@ -144,7 +144,7 @@
   (if (and (fx> (length x) 1)
 	   (memq 'o extended-bindings) ) ; s.a.
       (let ((%tmp (r 'tmp)))
-	`(,(r 'lambda) (,%tmp) ,(fold-right list %tmp (cdr x)))) ;XXX use foldr
+	`(,(r 'lambda) (,%tmp) ,(foldr list %tmp (cdr x))))
       x))
 
 (define-internal-compiler-syntax ((sprintf #%sprintf format #%format) x r c)