bl-scan:toolbelt — ordinary primitive
FORTH
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 ;