![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to wordinfo.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
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: = ; |