diff options
author | Andy Wingo <wingo@pobox.com> | 2009-08-20 12:47:11 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-08-20 18:52:50 +0200 |
commit | 32aa2111591bb4a98124646d26d92d17d1b6dc6d (patch) | |
tree | 4f6608107b7b7f37657cebd5bfe4cf78562a911d | |
parent | 7ea9a0a764f7219deb4eb3bd85b60e9d8368aca5 (diff) | |
download | guile-32aa2111591bb4a98124646d26d92d17d1b6dc6d.tar.gz |
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.
-rw-r--r-- | testsuite/run-vm-tests.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/testsuite/run-vm-tests.scm b/testsuite/run-vm-tests.scm index f7eba40bb..39e7bf117 100644 --- 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)) |