mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

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

Browse source 
* testsuite/run-vm-tests.scm (run-vm-tests): Use primitive-eval, as
  we'll be changing eval soon.
This commit is contained in:
Andy Wingo 2009-08-20 12:47:11 +02:00
parent 7ea9a0a764
commit 32aa211159
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
testsuite/run-vm-tests.scm
View file

@ -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))