mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-06-01 06:41:37 +00:00
64ed332b12
checked at the end of the Makefile recipe. Also introduces a prebuilt metacompiler metafile.com with integrated fth file include
25 lines
491 B
Forth
25 lines
491 B
Forth
|
|
include log2file.fth
|
|
logopen output.log
|
|
|
|
Onlyforth \ \needs Assembler 2 loadfrom asm.fb
|
|
|
|
: c+! ( 8b addr -- ) dup c@ rot + swap c! ;
|
|
|
|
' find $22 + @ Alias found
|
|
|
|
: search ( string 'vocab -- acf n / string ff )
|
|
dup @ [ ' Forth @ ] Literal - Abort" no vocabulary"
|
|
>body (find IF found exit THEN false ;
|
|
|
|
use meta.fb
|
|
3 &27 thru Onlyforth
|
|
|
|
logclose
|
|
savesystem metafile.com
|
|
logreopen
|
|
|
|
cr .( Metacompiler saved as metafile.com) cr
|
|
|
|
logclose
|