From 8ab49d97bb8bac4195af6e4748d1e0e3a4e1071f Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
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 )