call verify_attributes/3 once per module

2019-02-12 18:12:18 -07:00
parent 06021e2373
commit 7edc2567a8
2 changed files with 17 additions and 7 deletions
--- a/src/prolog/lib/builtins.pl
+++ b/src/prolog/lib/builtins.pl
@@ -64,7 +64,7 @@ false :- '$fail'.

 Module : Predicate :-
    ( atom(Module) -> '$module_call'(Module, Predicate)
-    ; throw(error(type_error(atom, Module), (:)))
+    ; throw(error(type_error(atom, Module), (:)/2))
    ).

 % flags.