Return to look.fs CVS log | Up to [gforth] / gforth |
version 1.9, 1997/08/31 19:31:29 | version 1.10, 1997/09/13 12:04:56 |
---|---|
Line 46 decimal | Line 46 decimal |
[IFUNDEF] look | [IFUNDEF] look |
has? ec [IF] | has? ec [IF] |
has-rom | has? rom |
[IF] | [IF] |
: look | : look |
dup [ unlock rom-dictionary area lock ] | dup [ unlock rom-dictionary area lock ] |