![[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.18, 2002/09/14 11:18:57 | version 1.19, 2002/12/13 21:20:39 |
|---|---|
| Line 42 decimal | Line 42 decimal |
| then ; | then ; |
| : (look) ( xt startlfa -- lfa flag ) | : (look) ( xt startlfa -- lfa flag ) |
| false swap | swap decompile-prim false rot |
| BEGIN | BEGIN |
| @ dup | @ dup |
| WHILE | WHILE |