15 lines
279 B
Scheme
15 lines
279 B
Scheme
|
|
; Tests simple compilation by setting the eval handler and
|
|
; running all tests
|
|
|
|
(let ([orig (current-eval)])
|
|
(dynamic-wind
|
|
(lambda ()
|
|
(current-eval
|
|
(lambda (x)
|
|
(orig (compile x)))))
|
|
(lambda ()
|
|
(load "all.ss"))
|
|
(lambda ()
|
|
(current-eval orig))))
|