Change run-tests as per erg's request

db4
Slava Pestov 2008-02-14 14:17:17 -06:00
parent 67fa873d9c
commit 8ab49d97bb
1 changed files with 3 additions and 5 deletions

View File

@ -54,11 +54,9 @@ SYMBOL: this-test
: (run-test) ( vocab -- ) : (run-test) ( vocab -- )
dup vocab-source-loaded? [ dup vocab-source-loaded? [
[ "temporary" forget-vocab ] with-compilation-unit [ "temporary" forget-vocab ] with-compilation-unit
vocab-tests dup [ run-file ] each vocab-tests
[ dup [ forget-source ] each
dup [ forget-source ] each dup [ run-file ] each
"temporary" forget-vocab
] with-compilation-unit
] when drop ; ] when drop ;
: run-test ( vocab -- failures ) : run-test ( vocab -- failures )