version 1.19, 2000/05/27 09:41:28
|
version 1.20, 2000/05/27 18:55:55
|
Line 31 require look.fs
|
Line 31 require look.fs
|
\ the old alias? did not work and it is not used, so I changed |
\ the old alias? did not work and it is not used, so I changed |
\ 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. |
|
\ if the original word has no name, return 0. |
dup cell+ c@ alias-mask and 0= |
dup cell+ c@ alias-mask and 0= |
IF ( nfa1 ) |
IF ( nfa1 ) |
((name>)) @ >name ( use look instead? ) |
((name>)) @ >name |
ELSE |
ELSE |
drop 0 |
drop 0 |
THEN ; |
THEN ; |