From ec7fefbae7b9651b5cfe320b2d8b8db27fbc683f Mon Sep 17 00:00:00 2001
From: Irene Knapp <ireneista@irenes.space>
Date: Mon, 5 Oct 2026 02:31:30 -0700
Subject: use the new x' everywhere it's applicable

you may infer from the size of the CL that we've been wanting this for QUITE A WHILE

Force-Push: yes
Change-Id: Iaa6ff8f40bd4020a75b81aadd87874cc8d512123
---
 compilation/labels.e | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'compilation/labels.e')

diff --git a/compilation/labels.e b/compilation/labels.e
index 2c028aa..c34b764 100644
--- a/compilation/labels.e
+++ b/compilation/labels.e
@@ -192,9 +192,9 @@
 : L'
   word value@
   interpreter-flags @ 0x01 &
-  { ' litstring entry-to-execution-token ,
+  { x' litstring ,
     here @ swap packstring 8 packalign here !
-    ' intern-label entry-to-execution-token ,
+    x' intern-label ,
     dropstring }
   { intern-label dropstring-with-result } if-else
   ; make-immediate
@@ -202,18 +202,18 @@
 ~   This is a concise syntax for calling use-label with a label whose name
 ~ you know statically. It performs L', then calls use-label.
 : L@'
-  ' L' entry-to-execution-token execute
+  x' L' execute
   interpreter-flags @ 1 &
-    { ' use-label entry-to-execution-token , }
+    { x' use-label , }
     { use-label } if-else
   ; make-immediate
 
 ~   This is a concise syntax for calling set-label with a label whose name
 ~ you know statically. It performs L', then calls set-label.
 : L!'
-  ' L' entry-to-execution-token execute
+  x' L' execute
   interpreter-flags @ 1 &
-    { ' set-label entry-to-execution-token , }
+    { x' set-label , }
     { set-label } if-else
   ; make-immediate
 
-- 
cgit 1.4.1