?EXEC ?DUP ?FILE
?EXEC ( -- )  
<PFE-MISC>
check that the current STATE is executing otherwise THROW
often used in control-words

reference: p4_Q_exec in ../src/misc.c:0105, export CO ?EXEC