a new bug when compiling object statement, patch candidate included

[Vladimir Tsichevski]

Hi,

found a bug preventing compilation of the following code 
(NullPointerException has thrown):

(define (methodFunc tabbedPane)
  "something")

(define-simple-class TestClass ()
  (aField)
  (menuBar init-form:
       (invoke
        o
        'ttt
        (object ()
            ((aMethod)
             (methodFunc aField))))))

I provide a patch which at least allows the compilation and PROBABLY (!) 
creates right codes.

Regards,
Vladimir
-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: bug-in-ObjectExp
URL: <http://sourceware.org/pipermail/kawa/attachments/20030328/80f45efe/attachment.ksh>