14 lines
348 B
Plaintext
Executable file
14 lines
348 B
Plaintext
Executable file
: interpretword F_IMMEDIATE & state not or if execute else , then ;
|
|
: compileword lookup dup
|
|
if interpretword
|
|
else drop dup number
|
|
if swap drop interpretnumber
|
|
else drop interpretunknown
|
|
then
|
|
then ;
|
|
: interpreter
|
|
begin word dup b@ while compileword repeat
|
|
s" ok\n" type drop ;
|
|
: loadstring
|
|
: loadfile
|