* BL-SCAN ( str len -- str+i len-i ) Look for white space from start of string : BL-SCAN BEGIN DUP WHILE OVER C@ IS-WHITE NOT WHILE 1 /STRING REPEAT THEN ;
BL-SCAN
( str len -- str+i len-i )
: BL-SCAN BEGIN DUP WHILE OVER C@ IS-WHITE NOT WHILE 1 /STRING REPEAT THEN ;
FORTH/DEF toolbelt ordinary primitive