kawa 1.6.98 problem

[Per Bothner]

Dr. M. Luedde wrote:
> (define (f x)
>   (let ( (y 0) )
>     (let loop ()
>       (let () (if #f (loop)))
>       ;; uncomment below, then problem disappears.
>       ;;      '()
>       )
>     (set-cdr! x y)))
> 
> With `--full-tailcalls' this leads to a "java.lang.Error: attempting
> to push dead variable". Inserting the spurious empty list, as indicated, 
> removes the problem. 

I just tried it:
java kawa.repl --full-tailcalls -C /tmp/foo.scm

and it compiles without errror.
-- 
	--Per Bothner
per@bothner.com   http://www.bothner.com/per/