diff --git a/src/loader.pl b/src/loader.pl index cf72820ef..da37c17c8 100644 --- a/src/loader.pl +++ b/src/loader.pl @@ -393,6 +393,9 @@ call(Handler, Module, Name, Arity). add_predicate_declaration(Handler, [PI|PIs]) :- maplist(loader:add_predicate_declaration(Handler), [PI|PIs]). +add_predicate_declaration(Handler, (PI, PIs)) :- + add_predicate_declaration(Handler, PI), + add_predicate_declaration(Handler, PIs). add_dynamic_predicate(Evacuable, Module, Name, Arity) :- '$add_dynamic_predicate'(Module, Name, Arity, Evacuable).