|
; https://github.com/munificent/craftinginterpreters/blob/master/test/closure/assign_to_shadowed_later.lox
|
|
|
|
(define a 0)
|
|
|
|
(define (displayln x) (display x) (newline))
|
|
|
|
|
|
((lambda ()
|
|
(define (assign) (set! a 1))
|
|
|
|
(define a 2)
|
|
(assign)
|
|
(displayln a)
|
|
))
|
|
|
|
(displayln a) |