gforth/wordinfo.fs - diff

Return to wordinfo.fs CVS log

Up to [gforth] / gforth

version 1.22, 2000/09/23 15:46:59	version 1.23, 2001/01/28 18:49:10
Line 33 require look.fs	Line 33 require look.fs
: alias? ( nfa1 -- nfa2\|0 )	: alias? ( nfa1 -- nfa2\|0 )
\ if nfa1 is an alias, nfa2 is the name of the original word.	\ if nfa1 is an alias, nfa2 is the name of the original word.
\ if the original word has no name, return 0.	\ if the original word has no name, return 0.
dup cell+ c@ alias-mask and 0=	dup cell+ @ alias-mask and 0=
IF ( nfa1 )	IF ( nfa1 )
((name>)) @ >name	((name>)) @ >name
ELSE	ELSE