X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=src%2Flib_6_variables.4th;h=a7aea7004573489c14dc06cab9869ef2f64cb9f7;hb=a02d0aced80ab33dad899f91106ede749882b883;hp=6829c9ccd755b51d0cedc23ed6ad03b39b457947;hpb=9da6dc7c0252fdc18aca602928feab518737cc8f;p=forth.jl.git

diff --git a/src/lib_6_variables.4th b/src/lib_6_variables.4th
index 6829c9c..a7aea70 100644
--- 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