[Bug-kawa] [bug #36039] inlining problem

[Helmut Eller]

Follow-up Comment #1, bug #36039 (project kawa):

The compiler has problems with this code:



(module-export find)

(define (find x list)
  (find-if list
           (lambda (y)
             (equal? x y))
           #f))

(define (find-if (i java.lang.Iterable) test default)
  (let ((iter (invoke i 'iterator))
        (found #f))
    (do ()
        ((or found (not (invoke iter 'has-next))))
      (let ((e (invoke iter 'next)))
        (when (test e)
          (set! found #t)
          (set! default e))))
    default))




shell> kawa --version -C x.scm 
Kawa 1.12 (revision 7201M)
Copyright (C) 2011 Per Bothner
(compiling x.scm to x)
x.scm:6:15: static find-if references non-static x
[Exit 255]



    _______________________________________________________

Reply to this item at:

  <http://savannah.gnu.org/bugs/?36039>

_______________________________________________
  Message sent via/by Savannah
  http://savannah.gnu.org/