recompile.e


1
2
3
4
5
6
7
8
9
10
11
12

~ (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