* 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 ;
TRIM
( str len -- str len-i )
: TRIM BEGIN DUP WHILE 1- 2DUP + C@ IS-WHITE NOT UNTIL 1+ THEN ;
FORTH/DEF toolbelt ordinary primitive