mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-11-26 17:49:18 +00:00
41cecebbfa
block tests. Now that v4th.com has a 132 char TIB, it can process the other tests, some of which have a few lines longer than 80 chars.
30 lines
424 B
Forth
30 lines
424 B
Forth
|
|
\ : .blk|tib
|
|
\ blk @ ?dup IF ." Blk " u. ?cr exit THEN
|
|
\ incfile @ IF tib #tib @ cr type THEN ;
|
|
|
|
include log2file.fth
|
|
logopen output.log
|
|
|
|
include ans-shim.fth
|
|
: \vf [compile] \ ; immediate
|
|
|
|
include prelim.fth
|
|
include tester.fth
|
|
\ 1 verbose !
|
|
include core.fr
|
|
include coreplus.fth
|
|
|
|
include util.fth
|
|
include errorrep.fth
|
|
|
|
include coreext.fth
|
|
|
|
\ ' .blk|tib Is .status
|
|
|
|
include doubltst.fth
|
|
|
|
REPORT-ERRORS
|
|
|
|
logclose
|