ends-Q:toolbelt — ordinary primitive
FORTH
ENDS? ( str len pattern len2 -- str len flag )(
)
Check end of string.
: ENDS? DUP >R 2OVER DUP R> - /STRING COMPARE 0= ;