moka/features/do.mk

19 lines
177 B
Makefile

(define a 4)
(do
(assert-eqv! 4 a)
(define a 'hello)
(assert-eqv! 'hello a)
(set! a 28)
(assert-eqv! 28 a)
)
(assert-eqv! 4 a)
(do
(set! a -63)
)
(assert-eqv! -63 a)