Re: Kawa-1.7beta1 available

[Bruce Lewis <brlewis at ALUM dot MIT dot EDU>]

Here is some code that crashes kawa.repl with a "no such class" error:

(define (my-fun arg)
   (+ arg 1))
 
(define (my-other-fun)
  ""
  (let ((a 1))
    (map my-fun '(1 2 3))))

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


-- 
<brlewis@[(if (brl-related? message)    ; Bruce R. Lewis
              "users.sourceforge.net"   ; http://brl.codesimply.net/
              "alum.mit.edu")]>