grino/examples/block.gri

18 lines
228 B
Plaintext

(assert-eq? 6 (: 2 4 6))
(assert-eq? 9 (: 2 4 (: 3 0 9)))
(:
($ a 4)
(assert-eq? 4 a)
(set! a 42)
(assert-eq? 42 a)
(:
($ a 7)
(assert-eq? 7 a)
(set! a 32)
(assert-eq? 32 a)
)
(assert-eq? 42 a)
)