From 589e56e26b8e997fa748ccc8fcd5b4bfcd2241a7 Mon Sep 17 00:00:00 2001
From: Irene Knapp <ireneista@irenes.space>
Date: Mon, 5 Oct 2026 02:14:58 -0700
Subject: implement x'

this word is like ' and is shorthand to look up an execution token

Force-Push: yes
Change-Id: I672eb0c56f8eadc02a8aca14c2b5c6028a218b1b
---
 language/dynamic/interpret.e | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'language/dynamic')

diff --git a/language/dynamic/interpret.e b/language/dynamic/interpret.e
index 02f3365..ff35b62 100644
--- a/language/dynamic/interpret.e
+++ b/language/dynamic/interpret.e
@@ -471,6 +471,15 @@ latest @
   ; make-immediate
 
 
+~   The word "x'", pronounced "ex-tick" or "executable-tick", quotes the
+~ following word as a constant, just like "'" does. Unlike "'", it returns the
+~ word's execution token rather than its entry pointer.
+: x' word value@ find dropstring-with-result
+  entry-to-execution-token
+  interpreter-flags @ 0x01 & { literal } if
+  ; make-immediate
+
+
 ~ Let's have strings now.
 : s"
   consume
-- 
cgit 1.4.1