Merge pull request #1236 from triska/omit-module-prefix

omit module prefix, because the goals are already module-qualified
This commit is contained in:
Mark Thom
2022-01-19 17:22:44 -07:00
committed by GitHub

View File

@@ -92,12 +92,12 @@ run_initialization_goals(Module) :-
% FIXME: failing here. also, see add_module. % FIXME: failing here. also, see add_module.
findall(Module:Goal, '$call'(builtins:retract(Module:'$initialization_goals'(Goal))), Goals), findall(Module:Goal, '$call'(builtins:retract(Module:'$initialization_goals'(Goal))), Goals),
abolish(Module:'$initialization_goals'/1), abolish(Module:'$initialization_goals'/1),
maplist(loader:success_or_warning(Module), Goals) maplist(loader:success_or_warning, Goals)
; true ; true
). ).
success_or_warning(Module, Goal) :- success_or_warning(Goal) :-
( Module:call(Goal) -> ( call(Goal) ->
true true
; %% initialization goals can fail without thwarting the load. ; %% initialization goals can fail without thwarting the load.
write('Warning: initialization/1 failed for: '), write('Warning: initialization/1 failed for: '),