4479215982the code doesn't quite run yet, that'll be a future CL Force-Push: yes Change-Id: I71e6a45127c1fc37906d902e36142c17afef2a21
12 lines
274 B
Text
12 lines
274 B
Text
~ (entry pointer --)
|
|
: recompile
|
|
dup word-heading
|
|
dup guess-entry-end swap entry-to-execution-token 8 +
|
|
{ 2dup < }
|
|
{ space dup @ dup is-codeword
|
|
{ execution-token-to-entry entry-to-name emitstring }
|
|
{ . } if-else
|
|
8 + } while newline ;
|
|
|
|
' , recompile
|
|
bye
|