| 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 ) |
| |
\ !! does not work on all installations |
| cell+ (name>) |
cell+ (name>) |
| >code-address ['] bits >code-address = ; |
>code-address ['] bits >code-address = ; |
| |
|
| : defered? ( nfa -- flag ) |
: defered? ( nfa -- flag ) |
| cell+ (name>) |
cell+ (name>) >code-address dodefer: = ; |
| >code-address ['] source >code-address = ; |
|
| |
|
| : 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 |
| |
|
