about summary refs log tree commit diff
path: root/language
diff options
context:
space:
mode:
Diffstat (limited to 'language')
-rw-r--r--language/dynamic/interpret.e9
1 files changed, 9 insertions, 0 deletions
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