Return to wordinfo.fs CVS log | Up to [gforth] / gforth |
version 1.9, 1996/01/07 17:22:17 | version 1.10, 1996/01/25 16:45:57 |
---|---|
Line 51 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: = ; |