Return to look.fs CVS log | Up to [gforth] / gforth |
version 1.3, 1995/11/07 18:06:48 | version 1.5, 1996/08/21 14:58:42 |
---|---|
Line 32 decimal | Line 32 decimal |
\ : >name ( xt -- nfa ) | \ : >name ( xt -- nfa ) |
\ BEGIN 1 chars - | \ BEGIN 1 chars - |
\ dup c@ 128 and | \ dup c@ alias-mask and |
\ UNTIL ; | \ UNTIL ; |
: PrimStart ['] true >name ; | : PrimStart ['] true >name ; |
Line 42 decimal | Line 42 decimal |
: (look) ( xt startlfa -- lfa flag ) | : (look) ( xt startlfa -- lfa flag ) |
false swap | false swap |
BEGIN @ dup | BEGIN @ dup |
WHILE dup name> | WHILE dup name>int |
3 pick = IF nip dup THEN | 3 pick = IF nip dup THEN |
REPEAT | REPEAT |
drop nip | drop nip |