mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-11-25 10:30:57 +00:00
30 lines
412 B
Forth
30 lines
412 B
Forth
|
|
||
|
|
\ : .blk|tib
|
||
|
|
\ blk @ ?dup IF ." Blk " u. ?cr exit THEN
|
||
|
|
\ incfile @ IF tib #tib @ cr type THEN ;
|
||
|
|
|
||
|
|
include log2file.fb
|
||
|
|
logopen
|
||
|
|
|
||
|
|
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
|