14 lines
158 B
Plaintext
14 lines
158 B
Plaintext
|
;; guile: 01
|
||
|
;; mes: 00
|
||
|
(define free 0)
|
||
|
|
||
|
(define bla #f)
|
||
|
(let ()
|
||
|
(set! bla (lambda () free))
|
||
|
#t)
|
||
|
|
||
|
(display (bla))
|
||
|
(set! free 1)
|
||
|
(display (bla))
|
||
|
(newline)
|