The following function works perfectly fine until I add ((complex? x) (steps (real-part x)))
(use srfi-1)
(use numbers)
(define steps
(lambda (x)
(cond
((zero? x) (list 0))
((negative? x) (reverse (steps (abs x))))
((complex? x) (steps (real-part x)))
(else
(let ([start (* -1 x)]
[count (+ 1 (* 2 x))])
(iota count start))))))
_______________________________________________
Chicken-users mailing list
Chicken-users@nongnu.org
http://lists.nongnu.org/mailman/listinfo/chicken-users
