bindings and mutation in mit-scheme

Question

1 ]=> (define a (lambda () ((lambda () (set! x 199)))
                           (define x 10)))

;Value: a

1 ]=> (a)

;Value: 199

1 ]=> (define a (lambda ()