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

fix unbound call to current_predicate/2

Browse Source
This commit is contained in:
Vítor Santos Costa 2008-12-12 22:45:41 +00:00
parent fdf06f486d
commit 8c4c7b4ae5
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pl/preds.yap
View File

@ -790,12 +790,18 @@ hide_predicate(P) :-
'$hide_predicate2'(PredDesc, M) :- '$hide_predicate2'(PredDesc, M) :-
'$do_error'(type_error(predicate_indicator,PredDesc),hide_predicate(M:PredDesc)). '$do_error'(type_error(predicate_indicator,PredDesc),hide_predicate(M:PredDesc)).
predicate_property(Pred,Prop) :- var(Pred), !,
'$current_module'(Mod),
'$predicate_property2'(Pred,Prop,Mod).
predicate_property(Mod:Pred,Prop) :- !, predicate_property(Mod:Pred,Prop) :- !,
'$predicate_property2'(Pred,Prop,Mod). '$predicate_property2'(Pred,Prop,Mod).
predicate_property(Pred,Prop) :- predicate_property(Pred,Prop) :-
'$current_module'(Mod), '$current_module'(Mod),
'$predicate_property2'(Pred,Prop,Mod). '$predicate_property2'(Pred,Prop,Mod).
'$predicate_property2'(Pred,Prop,M) :- var(M), !,
'$all_current_modules'(M),
'$predicate_property2'(Pred,Prop,M).
'$predicate_property2'(Pred,Prop,M) :- var(Pred), !, '$predicate_property2'(Pred,Prop,M) :- var(Pred), !,
'$generate_all_preds_from_mod'(Pred, SourceMod, M), '$generate_all_preds_from_mod'(Pred, SourceMod, M),
'$predicate_property'(Pred,SourceMod,M,Prop). '$predicate_property'(Pred,SourceMod,M,Prop).