?COMP ?BRANCH ?CR
?COMP ( -- )  
<PFE-MISC>
check that the current STATE is compiling otherwise THROW
often used in control-words

reference: p4_Q_comp in ../src/misc.c:0094, export CO ?COMP