?LOADING ?LEAVE ?PAIRS
?LOADING ( -- )  
<PFE-MISC>
check that the currently interpreted text is from a file/block, otherwise THROW

reference: p4_Q_loading in ../src/misc.c:0126, export CO ?LOADING