Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 06:39:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixing the default start in iota

Browse source
This commit is contained in:
Alex Shinn 2010-01-22 11:57:07 +09:00
parent 372aabb636
commit bd1e861afa
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/srfi/1/constructors.scm
View file

@ -27,7 +27,7 @@
res)) res))
(define (iota count . o) (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))) (step (if (and (pair? o) (pair? (cdr o))) (cadr o) 1)))
(let lp ((i count) (n (+ start (* (- count 1) step))) (res '())) (let lp ((i count) (n (+ start (* (- count 1) step))) (res '()))
(if (<= i 0) (if (<= i 0)