14 lines
348 B
Plaintext
14 lines
348 B
Plaintext
|
: 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
|