Name
next-word:toolbelt — ordinary primitive
Synopsis
FORTH
NEXT-WORD
( -- str len )();
p4:"next-word";
Description
Get the next word across line breaks as a character
string. _len_ will be 0 at end of file.
: NEXT-WORD
BEGIN BL WORD COUNT ( str len )
DUP IF EXIT THEN
REFILL
WHILE 2DROP ( ) REPEAT ;