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

hide hidden predicates.

Browse Source
This commit is contained in:
Vitor Santos Costa 2012-11-08 14:07:55 +00:00
parent f74164c642
commit 81a2420747
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
C/stdpreds.c
View File

@ -3251,6 +3251,8 @@ cont_current_predicate( USES_REGS1 )
Arity = ArityOfFunctor(f);
}
}
if (pp->PredFlags & HiddenPredFlag)
return FALSE;
return
Yap_unify(ARG2,name) &&
Yap_unify(ARG3, MkIntegerTerm((Int)Arity));
@ -3311,6 +3313,8 @@ cont_current_predicate_for_atom( USES_REGS1 )
} else if (pp->KindOfPE == PEProp) {
PredEntry *pe = RepPredProp(pf);
PELOCK(31,pe);
if (pe->PredFlags & HiddenPredFlag)
return FALSE;
if (pe->ModuleOfPred == mod ||
pe->ModuleOfPred == 0) {
/* we found the predicate */