17 lines
153 B
Plaintext
17 lines
153 B
Plaintext
|
|
||
|
|
;; guile: 00
|
||
|
|
;; mes: 01
|
||
|
|
|
||
|
|
(define (x)
|
||
|
|
(define b 1)
|
||
|
|
(define (y) b)
|
||
|
|
(set! b 0)
|
||
|
|
(display b)
|
||
|
|
(let ((b 2))
|
||
|
|
(y))
|
||
|
|
)
|
||
|
|
|
||
|
|
(display (x))
|
||
|
|
(newline)
|
||
|
|
""
|