22 lines
177 B
Plaintext
22 lines
177 B
Plaintext
|
|
;; guile:
|
|
;; 0
|
|
;; 0
|
|
|
|
;; mes:
|
|
;; 0
|
|
;; 1
|
|
|
|
(define b 0)
|
|
(define x (lambda () b))
|
|
(define (x) b)
|
|
|
|
(display (x))
|
|
(newline)
|
|
(define (c b)
|
|
(display (x))
|
|
(newline)
|
|
(x))
|
|
(c 1)
|
|
""
|