handball/src/test/run-pass/closure/unused-later-closures.scm

(define closure #f)

((lambda ()
    (define a 1)


    ((lambda ()
        (define b 2)

        (define (get-a) a)

        (set! closure get-a)

        (if #f
            (lambda () b)
            0)
    
    ))

    (display (closure))

))

(newline)
    (display (closure))