From bd1e861afa8b476f64d8a809e24f43114eec7844 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Fri, 22 Jan 2010 11:57:07 +0900 Subject: [PATCH] fixing the default start in iota --- lib/srfi/1/constructors.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/srfi/1/constructors.scm b/lib/srfi/1/constructors.scm index 3bd3b6a6..1f8a8d5e 100644 --- a/lib/srfi/1/constructors.scm +++ b/lib/srfi/1/constructors.scm @@ -27,7 +27,7 @@ res)) (define (iota count . o) - (let ((start (if (pair? o) (car o) count)) + (let ((start (if (pair? o) (car o) 0)) (step (if (and (pair? o) (pair? (cdr o))) (cadr o) 1))) (let lp ((i count) (n (+ start (* (- count 1) step))) (res '())) (if (<= i 0)