Re: Is apply procedure not tail recursive?

[David Thompson]

On 01/16/2013 06:34 PM, Akop Pogosian wrote:
> (define (zeros n)
> ;; Make list of n zeros
>    (define (zeros-iter n lst)
>      (if (= n 0)
>          lst
>          (zeros-iter (- n 1)
>                           (cons 0 lst))))
>    (zeros-iter n '()))
>
> Results:
>
> guile> (apply + (zeros (expt 10 3)))
> $2 = 0
> guile> (apply + (zeros (expt 10 4)))
> $3 = 0
> guile> (apply + (zeros (expt 10 5)))
> ERROR: Throw to key `vm-error' with args `(vm-run "VM: Stack overflow" ())'.
> guile> (apply + (zeros (expt 10 6)))
>
> Process scheme aborted (core dumped)
Using a procedure such as reduce should make this work. apply isn't 
meant for this sort of task.