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

fixing bug in iota when start/step given

Browse source
This commit is contained in:
Alex Shinn 2010-01-22 10:50:28 +09:00
parent 6fb2d4cf21
commit 372aabb636
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

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