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