Re: [Chicken-users] complex? call hangs function

What about this one? (define Steps-func (lambda (x) (cond ((zero? x) (rank-1 0)) ((negative? x) (reverse (Steps-func (abs x ((not (real? x)) (Steps-func (real-part x))) (else (let* ([total-elems (+ 1 (* 2 x))] [start (* -1 x)]) total-elems))

[Chicken-users] complex? call hangs function

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 (le