![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to look.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to look.fs CVS log | Up to [gforth] / gforth |
| version 1.6, 1996/08/26 10:07:20 | version 1.7, 1997/03/27 13:31:02 |
|---|---|
| Line 42 decimal | Line 42 decimal |
| dup 0<> ; | dup 0<> ; |
| : look ( cfa -- lfa flag ) | : look ( cfa -- lfa flag ) |
| dup forthstart < | dup dictionary-end forthstart within |
| IF | IF |
| PrimStart (look) | PrimStart (look) |
| ELSE | ELSE |