is-alpha:toolbelt — ordinary primitive
FORTH
IS-ALPHA ( char -- flag )();p4:"is-alpha";
IS-ALPHA ( char -- flag )(
)
Test _char_ for alphabetic [A-Za-z].
: IS-ALPHA 32 OR [CHAR] a - 26 U< ;