mes/c3.mes

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)