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))