version 1.1, 1994/02/11 16:30:47
|
version 1.2, 1994/05/18 17:30:03
|
Line 21 INCLUDE look.fs
|
Line 21 INCLUDE look.fs
|
|
|
: var? ( nfa -- flag ) |
: var? ( nfa -- flag ) |
(name>) |
(name>) |
@ ['] leavings @ = ; |
>code-address ['] leavings >code-address = ; |
|
|
: con? ( nfa -- flag ) |
: con? ( nfa -- flag ) |
(name>) |
(name>) |
@ ['] bl @ = ; |
>code-address ['] bl >code-address = ; |
|
|
: does? ( nfa -- flag ) |
: does? ( nfa -- flag ) |
dup (name>) |
dup (name>) |
@ ['] source @ = |
>code-address ['] source >code-address = |
dup IF swap (name>) cell+ @ here ! ELSE nip THEN ; |
dup IF swap (name>) cell+ @ here ! ELSE nip THEN ; |
|
|
: defered? ( nfa -- flag ) |
: defered? ( nfa -- flag ) |
Line 40 INCLUDE look.fs
|
Line 40 INCLUDE look.fs
|
|
|
: colon? ( nfa -- flag ) |
: colon? ( nfa -- flag ) |
(name>) |
(name>) |
@ ['] does? @ = ; |
>code-address ['] does? >code-address = ; |
|
|
\ VALUE VCheck |
\ VALUE VCheck |
|
|