The Lambda Lab
/
projects
/
forth.jl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
\ Constants and Variables
: CONSTANT