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 |