?EXEC ?DUP ?FILE
?EXEC
* ?EXEC ( -- )

check that the current STATE is executing
otherwise THROW

often used in control-words

FORTH/FORTH tools_misc ordinary primitive