* IS-DIGIT ( char -- flag ) Test _char_ for digit [0-9]. : IS-DIGIT [CHAR] 0 - 10 U< ;
IS-DIGIT
( char -- flag )
: IS-DIGIT [CHAR] 0 - 10 U< ;
FORTH/DEF toolbelt ordinary primitive