ascii:forth_usual — compiling primitive
FORTH
ASCII ( [word] -- val )();p4:"ascii";
ASCII ( [word] -- val )(
)
state smart version of CHAR or [CHAR] resp.
simulate: : ASCII [COMPILE] [CHAR] STATE @ IF [COMPILE] LITERAL THEN ;