fix syntax error in current_predicate
This commit is contained in:
parent
02893cc83f
commit
7f51339a97
@ -928,7 +928,7 @@ system_predicate(P) :-
|
|||||||
(
|
(
|
||||||
'$current_predicate'(M,A,Arity)
|
'$current_predicate'(M,A,Arity)
|
||||||
->
|
->
|
||||||
'$ifunctor'(T,A,Arity)
|
'$ifunctor'(T,A,Arity),
|
||||||
'$pred_exists'(T,M)
|
'$pred_exists'(T,M)
|
||||||
% ;
|
% ;
|
||||||
% '$current_predicate'(prolog,A,Arity)
|
% '$current_predicate'(prolog,A,Arity)
|
||||||
|
Reference in New Issue
Block a user