* IS-ALPHA ( char -- flag ) Test _char_ for alphabetic [A-Za-z]. : IS-ALPHA 32 OR [CHAR] a - 26 U< ;
IS-ALPHA
( char -- flag )
: IS-ALPHA 32 OR [CHAR] a - 26 U< ;
FORTH/DEF toolbelt ordinary primitive