2021-12-29 02:09:51 +00:00
|
|
|
(define closure #f)
|
|
|
|
|
|
|
|
((lambda ()
|
2021-12-29 02:32:43 +00:00
|
|
|
(define a 1)
|
2021-12-29 02:09:51 +00:00
|
|
|
|
2021-12-29 02:32:43 +00:00
|
|
|
((lambda ()
|
|
|
|
(define b 2)
|
2021-12-29 02:09:51 +00:00
|
|
|
|
2021-12-29 02:32:43 +00:00
|
|
|
(define (get-a)
|
|
|
|
a)
|
2021-12-29 02:09:51 +00:00
|
|
|
|
2021-12-29 02:32:43 +00:00
|
|
|
(set! closure get-a)
|
2021-12-29 02:09:51 +00:00
|
|
|
|
2021-12-29 02:32:43 +00:00
|
|
|
(if #f (lambda () b) 0)))
|
2021-12-29 02:09:51 +00:00
|
|
|
|
2021-12-29 02:32:43 +00:00
|
|
|
(display (closure))))
|
2021-12-29 02:09:51 +00:00
|
|
|
|
|
|
|
(newline)
|
2021-12-29 02:32:43 +00:00
|
|
|
(display (closure))
|