one more wrong compilation results

[Vladimir Tsichevski <wowa at jet dot msk dot su>]

Hi,

just found a name mismatch in compilation results. Sourcee was:

(define-simple-class a ()
 (b init-form:
    (display (lambda(e)(display e)(newline))))
 )

The rusult of compilation is like:

public class a
{
   public Object b;
   static ApplyMethodProc lambda$Fn1;
  
   private void $finit$() {
   b = Scheme.displayFormat.apply1(lambda$Fn1);
   }
  
   public a() {
   $finit$();
   }
  
   static void lambda1(Object e) {
   Scheme.displayFormat.apply1(e);
   ports.newline();
   }
}

As seen in the example, the lambda$Fn1 was never assigned to, so Java 
null value is always printed.

Regards,

Vladimir