19 lines
177 B
Makefile
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)
|