Return to wordinfo.fs CVS log | Up to [gforth] / gforth |
version 1.12, 1996/08/21 14:58:45 | version 1.13, 1996/08/26 10:07:22 |
---|---|
Line 49 INCLUDE look.fs | Line 49 INCLUDE look.fs |
((name>)) >code-address douser: = ; | ((name>)) >code-address douser: = ; |
: does? ( nfa -- flag ) | : does? ( nfa -- flag ) |
\ !! does not work on all installations | |
((name>)) | ((name>)) |
>code-address ['] spaces >code-address = ; | >does-code 0<> ; |
: defered? ( nfa -- flag ) | : defered? ( nfa -- flag ) |
((name>)) >code-address dodefer: = ; | ((name>)) >code-address dodefer: = ; |