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

fix predicate_property/2

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2240 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2008-05-22 21:48:04 +00:00
parent 9a841991ea
commit 73cf1fbafa
2 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
changes-5.1.html
View File

@ -17,6 +17,8 @@ xb
<h2>Yap-5.1.3:</h2>
<ul>
<li> FIXED: too much pruning on predicate_property/2 (obs from Nicos
Angelopoulos).</li>
<li> FIXED: make sure we return to system mode on failing yesno.</li>
<li> FIXED: debugger was broken on call/n.</li>
<li> FIXED: user:expand_goal should be called before import,

10
pl/preds.yap
View File

@ -821,11 +821,7 @@ predicate_property(Pred,Prop) :-
(
Prop = imported_from(M)
;
functor(Pred,P,A),
recorded('$module','$module'(_TFN,Mod,Publics),_),
lists:memberchk(N/A,Publics)
;
'$predicate_property2'(NPred,Prop,M),
'$predicate_property'(NPred,M,M,Prop),
Prop \= exported
).
@ -858,8 +854,8 @@ predicate_property(Pred,Prop) :-
'$is_public'(P,M).
'$predicate_property'(P,M,M,exported) :-
functor(P,N,A),
recorded('$module','$module'(_TFN,M,Publics),_),
lists:memberchk(N/A,Publics), !.
once(recorded('$module','$module'(_TFN,M,Publics),_)),
lists:memberchk(N/A,Publics).
'$predicate_property'(P,Mod,_,number_of_clauses(NCl)) :-
'$number_of_clauses'(P,Mod,NCl).