10 lines
134 B
Plaintext
10 lines
134 B
Plaintext
|
($ a 1)
|
||
|
(set! a 2)
|
||
|
(assert-eq? 2 a )
|
||
|
|
||
|
($ (b x) (+ x 1))
|
||
|
($ (c x) (* x 2))
|
||
|
($ d b)
|
||
|
(assert-eq? 3 (d 2))
|
||
|
(set! d c)
|
||
|
(assert-eq? 4 (d 2))
|