| : 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} |
