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

Merge branch 'master' of ssh://yap.git.sourceforge.net/gitroot/yap/yap-6.3

Browse Source
This commit is contained in:
Vítor Santos Costa 2012-11-08 23:20:52 +00:00
commit a402001475
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); Arity = ArityOfFunctor(f);
} }
} }
if (pp->PredFlags & HiddenPredFlag)
return FALSE;
return return
Yap_unify(ARG2,name) && Yap_unify(ARG2,name) &&
Yap_unify(ARG3, MkIntegerTerm((Int)Arity)); Yap_unify(ARG3, MkIntegerTerm((Int)Arity));
@ -3311,6 +3313,8 @@ cont_current_predicate_for_atom( USES_REGS1 )
} else if (pp->KindOfPE == PEProp) { } else if (pp->KindOfPE == PEProp) {
PredEntry *pe = RepPredProp(pf); PredEntry *pe = RepPredProp(pf);
PELOCK(31,pe); PELOCK(31,pe);
if (pe->PredFlags & HiddenPredFlag)
return FALSE;
if (pe->ModuleOfPred == mod || if (pe->ModuleOfPred == mod ||
pe->ModuleOfPred == 0) { pe->ModuleOfPred == 0) {
/* we found the predicate */ /* we found the predicate */