~ chicken-core (chicken-5) e153e0e397f070494fb66aa2e3bed18f7eb29991

commit e153e0e397f070494fb66aa2e3bed18f7eb29991
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Jan 24 12:51:48 2015 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Jan 24 12:51:48 2015 +0100

    chicken-syntax.scm: uses mini-srfi-1.scm

diff --git a/chicken-syntax.scm b/chicken-syntax.scm
index 9fcd2bb3..a73ae540 100644
--- a/chicken-syntax.scm
+++ b/chicken-syntax.scm
@@ -38,6 +38,9 @@
   (no-bound-checks)
   (no-procedure-checks))
 
+(include "mini-srfi-1.scm")
+
+
 (##sys#provide 'chicken-syntax)
 
 
@@ -781,13 +784,13 @@
 	,(append minvars rvar)
 	(##core#let
         ((,lvar (,%length ,rvar)))
-	 ,(fold-right
-	   (lambda (c body)
+	 ,(foldr
+	   (lambda (body c)
 	     (##sys#decompose-lambda-list
 	      (car c)
 	      (lambda (vars argc rest)
 		(##sys#check-syntax 'case-lambda (car c) 'lambda-list)
-		`(##core#if ,(let ([a2 (fx- argc mincount)])
+		`(##core#if ,(let ((a2 (fx- argc mincount)))
 			       (if rest
 				   (if (zero? a2)
 				       #t