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