From 447921598269bae3e1406470015c37f23943cc74 Mon Sep 17 00:00:00 2001
From: Irene Knapp <ireneista@irenes.space>
Date: Fri, 15 May 2026 20:51:13 -0700
Subject: 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
---
 recompile.e | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 recompile.e

(limited to 'recompile.e')

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
-- 
cgit 1.4.1