From 8ab49d97bb8bac4195af6e4748d1e0e3a4e1071f Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Thu, 14 Feb 2008 14:17:17 -0600 Subject: [PATCH] Change run-tests as per erg's request --- extra/tools/test/test.factor | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/extra/tools/test/test.factor b/extra/tools/test/test.factor index 62a4dab1eb..5c5d397df7 100755 --- a/extra/tools/test/test.factor +++ b/extra/tools/test/test.factor @@ -54,11 +54,9 @@ SYMBOL: this-test : (run-test) ( vocab -- ) dup vocab-source-loaded? [ [ "temporary" forget-vocab ] with-compilation-unit - vocab-tests dup [ run-file ] each - [ - dup [ forget-source ] each - "temporary" forget-vocab - ] with-compilation-unit + vocab-tests + dup [ forget-source ] each + dup [ run-file ] each ] when drop ; : run-test ( vocab -- failures )