25 lines
436 B
Scheme
25 lines
436 B
Scheme
#!r6rs
|
|
|
|
(library (tests r6rs eval)
|
|
(export run-eval-tests)
|
|
(import (rnrs)
|
|
(rnrs eval)
|
|
(tests r6rs test))
|
|
|
|
(define (run-eval-tests)
|
|
|
|
(test (eval '(let ((x 3)) x)
|
|
(environment '(rnrs)))
|
|
3)
|
|
|
|
(test (eval
|
|
'(eval:car (eval:cons 2 4))
|
|
(environment
|
|
'(prefix (only (rnrs) car cdr cons null?)
|
|
eval:)))
|
|
2)
|
|
|
|
;;
|
|
))
|
|
|