| \ and finds out what wordtype we have |
\ and finds out what wordtype we have |
| \ it is used in SEE.FS |
\ it is used in SEE.FS |
| |
|
| : alias? ( nfa -- flag ) |
\ the old alias? did not work and it is not used, so I changed |
| dup name> look |
\ it in many respects - anton |
| 0= ABORT" WINFO: CFA not found" |
: alias? ( nfa1 -- nfa2|0 ) |
| \ cell+ |
\ if nfa1 is an alias, nfa2 is the name of the original word |
| 2dup <> |
cell+ dup c@ $80 and 0= |
| IF nip dup 1 cells - here ! |
IF |
| count $1f and here cell+ place true |
(name>) @ >name ( use look instead? ) |
| ELSE 2drop false THEN ; |
ELSE |
| |
drop 0 |
| |
THEN ; |
| |
|
| : var? ( nfa -- flag ) |
: var? ( nfa -- flag ) |
| cell+ (name>) >code-address dovar: = ; |
cell+ (name>) >code-address dovar: = ; |
