From 984aaa2544d451ea955f8c1d96c927a33f550b0b Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Thu, 14 Feb 2008 14:19:42 -0600 Subject: [PATCH] Fix tests again --- extra/tools/test/test.factor | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/extra/tools/test/test.factor b/extra/tools/test/test.factor index 5c5d397df7..69093f18a6 100755 --- a/extra/tools/test/test.factor +++ b/extra/tools/test/test.factor @@ -53,9 +53,11 @@ SYMBOL: this-test : (run-test) ( vocab -- ) dup vocab-source-loaded? [ - [ "temporary" forget-vocab ] with-compilation-unit vocab-tests - dup [ forget-source ] each + [ + "temporary" forget-vocab + dup [ forget-source ] each + ] with-compilation-unit dup [ run-file ] each ] when drop ;