trim:toolbelt — ordinary primitive
FORTH
TRIM ( str len -- str len-i )();p4:"trim";
TRIM ( str len -- str len-i )(
)
Trim white space from end of string.
: TRIM BEGIN DUP WHILE 1- 2DUP + C@ IS-WHITE NOT UNTIL 1+ THEN ;