is-white:toolbelt — ordinary primitive
FORTH
IS-WHITE ( char -- flag )();p4:"is-white";
IS-WHITE ( char -- flag )(
)
Test char for white space.
: IS-WHITE 33 - 0< ;