Fix tests again

db4
Slava Pestov 2008-02-14 14:19:42 -06:00
parent 8ab49d97bb
commit 984aaa2544
1 changed files with 4 additions and 2 deletions

View File

@ -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 ;