make the label transformation work all the way, no crashing

the code doesn't quite run yet, that'll be a future CL

Force-Push: yes
Change-Id: I71e6a45127c1fc37906d902e36142c17afef2a21

1 files changed, 12 insertions, 0 deletions

diff --git a/recompile.e b/recompile.e
new file mode 100644
index 0000000..c6a6f7a
--- /dev/null
+++ b/recompile.e
@@ -0,0 +1,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