use primitive-eval in run-vm-tests.scm

* testsuite/run-vm-tests.scm (run-vm-tests): Use primitive-eval, as
  we'll be changing eval soon.

diff --git a/testsuite/run-vm-tests.scm b/testsuite/run-vm-tests.scm
index f7eba40..39e7bf1 100644 (file)
--- a/testsuite/run-vm-tests.scm
+++ b/testsuite/run-vm-tests.scm
@@ -72,8 +72,7 @@ equal in the sense of @var{equal?}."
                     (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))