add missing variable checks in various places

2021-02-17 11:12:19 -07:00
parent e9ba3ad223
commit 00bf39204d
2 changed files with 4 additions and 2 deletions
--- a/src/loader.pl
+++ b/src/loader.pl
@@ -440,7 +440,8 @@ predicate_property(Callable, Property) :-
    ;  functor(Callable, (:), 2),
       arg(1, Callable, Module),
       arg(2, Callable, Callable0),
-       atom(Module) ->
+       atom(Module),
+       nonvar(Callable0) ->
       functor(Callable0, Name, Arity),
       (  atom(Name),
          Name \== [] ->