handball/src/test/run-pass/closure/nested-assign.scm

(define (outer)
  (define x 0)
  (define (y)
    (set! x 1))
  (y)
  (display x))

(outer)