diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

predicate_property should not return properties for undefined predicates.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@339 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-01-30 01:18:56 +00:00
parent be135b514f
commit d7109e6974
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pl/utils.yap
View File

@ -551,7 +551,8 @@ predicate_property(Pred,Prop) :-
'$predicate_property'(P,M,_,dynamic) :- '$predicate_property'(P,M,_,dynamic) :-
'$is_dynamic'(P,M). '$is_dynamic'(P,M).
'$predicate_property'(P,M,_,static) :- '$predicate_property'(P,M,_,static) :-
\+ '$is_dynamic'(P,M). \+ '$is_dynamic'(P,M),
\+ '$undefined'(P,M).
'$predicate_property'(P,M,_,meta_predicate(P)) :- '$predicate_property'(P,M,_,meta_predicate(P)) :-
functor(P,Na,Ar), functor(P,Na,Ar),
user:'$meta_predicate'(M,Na,Ar,P). user:'$meta_predicate'(M,Na,Ar,P).