[Bug-kawa] [bug #24249] Local define miscompiled

[Helmut Eller]

URL:
  <http://savannah.gnu.org/bugs/?24249>

                 Summary: Local define miscompiled 
                 Project: Kawa
            Submitted by: ellerh
            Submitted on: Fri 12 Sep 2008 12:00:39 PM GMT
                Category: Code generation
                Severity: 3 - Normal
              Item Group: None
                  Status: None
                 Privacy: Public
             Assigned to: None
             Open/Closed: Open
         Discussion Lock: Any

    _______________________________________________________

Details:

Kawa 1.9.3 (revision 6142M)
miscompiles the following expression.
k is (wrongly) null:

  (let ()
    (define (foo) (bar))
    (define (bar)
      (let ((k (lambda () #f)))
         (cond ((not (procedure? k))
               (error 'bad-k k)))
        k))
    (define (baz) (bar))
    
    (foo))





    _______________________________________________________

Reply to this item at:

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

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