* ?COMP ( -- ) check that the current STATE is compiling otherwise THROW often used in control-words
?COMP
( -- )
STATE
THROW
tools_misc ordinary primitive