?LOADING ?LEAVE ?PAIRS
?LOADING
* ?LOADING ( -- )

check that the currently interpreted text is
from a file/block, otherwise THROW

tools_misc ordinary primitive