bl-skip:toolbelt — ordinary primitive
FORTH
BL-SKIP ( str len -- str+i len-i )(
)
Skip over white space at start of string.
: BL-SKIP BEGIN DUP WHILE OVER C@ IS-WHITE WHILE 1 /STRING REPEAT THEN ;