* LEXEME ( "name" -- str len ) Get the next word on the line as a character string. If it's a single character, use it as the delimiter to get a phrase. : LEXEME BL WORD ( addr) DUP C@ 1 = IF CHAR+ C@ WORD THEN COUNT ;
LEXEME
( "name" -- str len )
: LEXEME BL WORD ( addr) DUP C@ 1 = IF CHAR+ C@ WORD THEN COUNT ;
FORTH/DEF toolbelt ordinary primitive