fix bad call.
This commit is contained in:
parent
7e98e5acdb
commit
e42083a2bb
@ -899,7 +899,7 @@ current_predicate(A,T) :-
|
||||
functor(T,A,_),
|
||||
current_module(M),
|
||||
M \= prolog,
|
||||
'$pred_exists'(M,A,T).
|
||||
'$pred_exists'(T,M).
|
||||
|
||||
current_predicate(A) :-
|
||||
'$current_predicate_inside'(A).
|
||||
|
Reference in New Issue
Block a user