predicate_property would only return first prop for system pred (obs from Paulo Moura).

This commit is contained in:
Vitor Santos Costa 2009-05-25 09:57:27 -05:00
parent a6f0b8cc9f
commit 9a0393e2ce

View File

@ -813,7 +813,7 @@ predicate_property(Pred,Prop) :-
'$predicate_property'(P,M,_,built_in) :-
'$system_predicate'(P,M), !.
'$system_predicate'(P,M).
'$predicate_property'(P,M,_,source) :-
'$flags'(P,M,F,F),
F /\ 0x00400000 =\= 0.