* 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 ;
BL-SKIP
( str len -- str+i len-i )
: BL-SKIP BEGIN DUP WHILE OVER C@ IS-WHITE WHILE 1 /STRING REPEAT THEN ;
FORTH/DEF toolbelt ordinary primitive