* testsuite/run-vm-tests.scm (run-vm-tests): Use primitive-eval, as
we'll be changing eval soon.
(if (catch #t
(lambda ()
(equal? (compile/run-test-from-file file)
(if (catch #t
(lambda ()
(equal? (compile/run-test-from-file file)
- (eval (fetch-sexp-from-file file)
- (interaction-environment))))
+ (primitive-eval (fetch-sexp-from-file file))))
(lambda (key . args)
(format #t "[~a/~a] " key args)
#f))
(lambda (key . args)
(format #t "[~a/~a] " key args)
#f))