Q-comp:tools_misc — ordinary primitive
FORTH
?COMP ( -- )();p4:"Q-comp";
?COMP ( -- )(
)
check that the current STATE is compiling otherwise THROW <br> often used in control-words