gforth/wordinfo.fs - diff

Return to wordinfo.fs CVS log

Up to [gforth] / gforth

version 1.5, 1994/09/12 19:00:41	version 1.7, 1995/10/07 17:38:21
Line 20 INCLUDE look.fs	Line 20 INCLUDE look.fs
ELSE 2drop false THEN ;	ELSE 2drop false THEN ;

: var? ( nfa -- flag )	: var? ( nfa -- flag )
cell+ (name>)	cell+ (name>) >code-address dovar: = ;
>code-address ['] udp >code-address = ;

: con? ( nfa -- flag )	: con? ( nfa -- flag )
cell+ (name>)	cell+ (name>) >code-address docon: = ;
>code-address ['] bl >code-address = ;

: user? ( nfa -- flag )	: user? ( nfa -- flag )
cell+ (name>)	cell+ (name>) >code-address douser: = ;
>code-address ['] s0 >code-address = ;

: does? ( nfa -- flag )	: does? ( nfa -- flag )
cell+ dup (name>)	\ !! does not work on all installations
>code-address ['] source >code-address =	cell+ (name>)
dup IF swap (name>) cell+ @ here ! ELSE nip THEN ;	>code-address ['] bits >code-address = ;

: defered? ( nfa -- flag )	: defered? ( nfa -- flag )
dup does?	cell+ (name>) >code-address dodefer: = ;
IF here @ ['] source cell+ @ =
dup IF swap cell+ (name>) >body @ here ! ELSE nip THEN
ELSE drop false THEN ;

: colon? ( nfa -- flag )	: colon? ( nfa -- flag )
cell+ (name>)	cell+ (name>) >code-address docol: = ;
>code-address ['] does? >code-address = ;
	\ the above words could be factored with create-does>, but this would
	\ probably make this file incompatible with cross.

\ VALUE VCheck	\ VALUE VCheck