SWI-Prolog Did You Know Did you know? condition is an alternative to exceptions Search Documentation:
Predicate file_is_blocked_prolog_source/1

Sorry, No manual entry for file_is_blocked_prolog_source/1