version 1.26, 2003/03/09 15:16:50
|
version 1.27, 2003/03/22 10:04:07
|
Line 113 has? rom
|
Line 113 has? rom
|
: threaded>name ( ca -- nt|0 ) |
: threaded>name ( ca -- nt|0 ) |
threaded>xt prim>name ; |
threaded>xt prim>name ; |
|
|
: >head ( cfa -- nt|0 ) \ gforth to-head |
: >name ( xt -- nt|0 ) \ gforth to-name |
\G tries to find the name token nt of the word represented by cfa; |
\G tries to find the name token @var{nt} of the word represented |
\G returns 0 if it fails. This word is not absolutely reliable, |
\G by @var{xt}; returns 0 if it fails. This word is not |
\G it may give false positives and produce wrong nts. |
\G absolutely reliable, it may give false positives and produce |
|
\G wrong nts. |
look and ; |
look and ; |
|
|
' >head ALIAS >name \ gforth to-name |
' >name ALIAS >head \ gforth to-head |
\G old name of @code{>head} |
\G another name of @code{>name} |