![[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.11, 1998/12/08 22:02:46 | version 1.12, 1999/01/03 21:48:37 |
|---|---|
| Line 66 has? rom | Line 66 has? rom |
| : PrimStart ['] true >name ; | : PrimStart ['] true >name ; |
| : look ( cfa -- lfa flag ) | : look ( cfa -- lfa flag ) |
| dup dictionary-end forthstart within | dup in-dictionary? |
| IF | IF |
| PrimStart (look) | |
| ELSE | |
| >name dup ??? <> | >name dup ??? <> |
| ELSE | |
| PrimStart (look) | |
| THEN ; | THEN ; |
| [THEN] | [THEN] |