Name
back:toolbelt — ordinary primitive
Synopsis
FORTH
BACK
( str len char -- str len-i )( | ); | |
Description
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 ;