From 8c4c7b4ae53af0a502271087536d4311650bc4a4 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= Date: Fri, 12 Dec 2008 22:45:41 +0000 Subject: [PATCH] fix unbound call to current_predicate/2 --- pl/preds.yap | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/pl/preds.yap b/pl/preds.yap index 2f0425b0e..8f158e869 100644 --- a/pl/preds.yap +++ b/pl/preds.yap @@ -790,12 +790,18 @@ hide_predicate(P) :- '$hide_predicate2'(PredDesc, M) :- '$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_property2'(Pred,Prop,Mod). predicate_property(Pred,Prop) :- '$current_module'(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), !, '$generate_all_preds_from_mod'(Pred, SourceMod, M), '$predicate_property'(Pred,SourceMod,M,Prop).