gforth/wordinfo.fs - diff

Return to wordinfo.fs CVS log

Up to [gforth] / gforth

version 1.8, 1995/11/07 18:07:05	version 1.10, 1996/01/25 16:45:57
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: = ;
Line 49 INCLUDE look.fs	Line 51 INCLUDE look.fs
: does? ( nfa -- flag )	: does? ( nfa -- flag )
\ !! does not work on all installations	\ !! does not work on all installations
cell+ (name>)	cell+ (name>)
>code-address ['] bits >code-address = ;	>code-address ['] spaces >code-address = ;

: defered? ( nfa -- flag )	: defered? ( nfa -- flag )
cell+ (name>) >code-address dodefer: = ;	cell+ (name>) >code-address dodefer: = ;