Re: Kawa-1.7beta1 available

[Per Bothner <per at bothner dot com>]

Bruce Lewis wrote:

> Here is a function that throws a NullPointerException when it should
> just return #t:
>
> (define test1
>   (lambda ()
>     (define (some? pred? alist)
>       (cond 
>        ((null? alist) #f)
>        ((pred? (car alist)) #t)
>        (else (some? pred? (cdr alist)))))
>     (display "")
>     (define (clicked? button) 
>       (not (null? button)))
>     (define (some-clicked? buttons)
>       (some? clicked? buttons))
>     (some-clicked? '(#t #t #f ()))
>     (some-clicked? '(#t #t #f ()))))

This now works.
--
	--Per Bothner
per@bothner.com   http://per.bothner.com/