![[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.1, 1994/02/11 16:30:46 | version 1.2, 1994/07/21 14:41:47 |
|---|---|
| Line 24 decimal | Line 24 decimal |
| : (look) ( xt startlfa -- lfa flag ) | : (look) ( xt startlfa -- lfa flag ) |
| false swap | false swap |
| BEGIN @ dup | BEGIN @ dup |
| WHILE dup cell+ name> | WHILE dup name> |
| 3 pick = IF nip dup THEN | 3 pick = IF nip dup THEN |
| REPEAT | REPEAT |
| drop nip | drop nip |
| dup 0<> ; | dup 0<> ; |
| : look ( cfa -- lfa flag ) | : look ( cfa -- lfa flag ) |
| dup forthstart u< | dup forthstart < |
| IF PrimStart (look) | IF PrimStart (look) |
| ELSE >name true THEN ; | ELSE >name true THEN ; |