version 1.6, 1996/08/26 10:07:20
|
version 1.8, 1997/07/06 14:29:33
|
Line 28
|
Line 28
|
|
|
decimal |
decimal |
|
|
: PrimStart ['] true >name ; |
|
|
|
\ look 17may93jaw |
\ look 17may93jaw |
|
|
|
\ rename to discover!!! |
|
|
: (look) ( xt startlfa -- lfa flag ) |
: (look) ( xt startlfa -- lfa flag ) |
false swap |
false swap |
BEGIN @ dup |
BEGIN @ dup |
Line 41 decimal
|
Line 41 decimal
|
drop nip |
drop nip |
dup 0<> ; |
dup 0<> ; |
|
|
|
|
|
\ !!! nicht optimal! |
|
[IFUNDEF] look |
|
[IFUNDEF] dictionary-end has-rom [ELSE] false [THEN] |
|
[IF] |
|
|
|
: look ( cfa -- lfa flag ) |
|
forth-wordlist @ (look) ; |
|
|
|
[ELSE] |
|
|
|
: PrimStart ['] true >name ; |
|
|
: look ( cfa -- lfa flag ) |
: look ( cfa -- lfa flag ) |
dup forthstart < |
dup dictionary-end forthstart within |
IF |
IF |
PrimStart (look) |
PrimStart (look) |
ELSE |
ELSE |
>name dup ??? <> |
>name dup ??? <> |
THEN ; |
THEN ; |
|
|
|
[THEN] |
|
[THEN] |