is-alnum:toolbelt — ordinary primitive
FORTH
IS-ALNUM ( char -- flag )();p4:"is-alnum";
IS-ALNUM ( char -- flag )(
)
Test _char_ for alphanumeric [A-Za-z0-9].
: IS-ALNUM DUP IS-ALPHA ORIF DUP IS-DIGIT THEN NIP ;