is-digit:toolbelt — ordinary primitive
FORTH
IS-DIGIT ( char -- flag )();p4:"is-digit";
IS-DIGIT ( char -- flag )(
)
Test _char_ for digit [0-9].
: IS-DIGIT [CHAR] 0 - 10 U< ;