26 lines
280 B
Scheme
26 lines
280 B
Scheme
|
(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))
|