Using standard field conversion words.

[forth.jl.git] / src / lib_6_variables.4th

diff --git a/src/lib_6_variables.4th b/src/lib_6_variables.4th
index 6829c9c..a7aea70 100644 (file)
--- a/src/lib_6_variables.4th
+++ b/src/lib_6_variables.4th
@@ -1,3 +1,20 @@
+\ Remaining field address conversion words
+
+: >NAME
+        BEGIN
+                1- DUP @
+                NFA_MARK AND
+        NFA_MARK = UNTIL
+;
+
+: NAME> 1- LINK> ;
+
+: >LINK  >NAME 1- ;
+
+: >BODY 1+ ;
+
+: BODY> 1- ;
+
 \ Constants and Variables
 
 : CONSTANT