![]() ![]() | ![]() |
version 1.3, 1995/11/07 18:06:48 | version 1.4, 1996/05/13 16:37:01 |
---|---|
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 ; |