Merge pull request #1117 from triska/indicate_failed_initialization

ENHANCED: indicate failed initialization/1 goal
2021-11-28 11:53:54 -05:00
parent b576bb55ef fc8205d375
commit 5a6a686f42
1 changed files with 4 additions and 1 deletions
--- a/src/loader.pl
+++ b/src/loader.pl
@@ -94,7 +94,10 @@ run_initialization_goals(Module) :-
       abolish(Module:'$initialization_goals'/1),
       (  maplist(Module:call, Goals) ->
          true
-       ;  true %% initialization goals can fail without thwarting the load.
+       ;  %% initialization goals can fail without thwarting the load.
+          write('Warning: initialization/1 failed for: '),
+          writeq(maplist(Module:call, Goals)),
+          nl
       )
    ;  true
    ).