* IS-WHITE ( char -- flag ) Test char for white space. : IS-WHITE 33 - 0< ;
IS-WHITE
( char -- flag )
: IS-WHITE 33 - 0< ;
toolbelt ordinary primitive