'$load'(File) :-
current_prolog_flag(redefine_warnings, Old),
set_prolog_flag(redefine_warnings, off),
current_prolog_flag(single_var_warnings, Old2),
set_prolog_flag(single_var_warnings2, off),
( load_files([File],[compilation_mode(assert_all)]) ->
OK=true ; OK=false),
set_prolog_flag(redefine_warnings, Old),
set_prolog_flag(single_var_warnings, Old2),
OK=true.