~ chicken-core (chicken-5) 3a39198bd4f401896e0859fe50cdaadb1f4a0db6

commit 3a39198bd4f401896e0859fe50cdaadb1f4a0db6
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sun Feb 1 14:45:20 2015 +0100
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Sun Feb 1 14:45:20 2015 +0100

    Fixed bug in chicken-install.scm (incorrect attempt to simulate iota)

diff --git a/chicken-install.scm b/chicken-install.scm
index c377837c..ce2a9b6d 100644
--- a/chicken-install.scm
+++ b/chicken-install.scm
@@ -653,7 +653,7 @@
 		     (setup tmpcopy)))))))
 	 eggs+dirs+vers
 	 (let loop ((i num))
-	   (if (fx= 1 i)
+	   (if (zero? i)
 	       '()
 	       (cons num (loop (fx- i 1)))))))))