* BACK ( str len char -- str len-i ) Look for a particular character in the string from the back toward the front. : BACK >R BEGIN DUP WHILE 1- 2DUP + C@ R@ = UNTIL 1+ THEN R> DROP ;
BACK
( str len char -- str len-i )
: BACK >R BEGIN DUP WHILE 1- 2DUP + C@ R@ = UNTIL 1+ THEN R> DROP ;
FORTH/DEF toolbelt ordinary primitive