version 1.8, 1995/11/07 18:07:05
|
version 1.9, 1996/01/07 17:22:17
|
Line 28 INCLUDE look.fs
|
Line 28 INCLUDE look.fs
|
\ 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: = ; |