gforth/wordinfo.fs - diff

Return to wordinfo.fs CVS log

Up to [gforth] / gforth

version 1.10, 1996/01/25 16:45:57	version 1.11, 1996/05/13 16:37:03
Line 32 INCLUDE look.fs	Line 32 INCLUDE look.fs
\ it in many respects - anton	\ it in many respects - anton
: 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
cell+ dup c@ $80 and 0=	cell+ dup c@ alias-mask and 0=
IF	IF
(name>) @ >name ( use look instead? )	(name>) @ >name ( use look instead? )
ELSE	ELSE