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

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

(outer)