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