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

fix current_predicate missing predicates

Browse Source
This commit is contained in:
Vítor Santos Costa 2014-12-16 01:25:00 +00:00
parent 247371c095
commit 21d379bfb6
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
C/stdpreds.c
View File

@ -983,10 +983,7 @@ static Int init_current_predicate(USES_REGS1) {
(q = RepFunctorProp(p)->PropsOfFE) == NIL) { (q = RepFunctorProp(p)->PropsOfFE) == NIL) {
p = p->NextOfPE; p = p->NextOfPE;
} }
if (!q) { if (!p)
if (p)
p = p->NextOfPE;
} else if (!p)
cut_fail(); cut_fail();
EXTRA_CBACK_ARG(4, 1) = MkAddressTerm(p); EXTRA_CBACK_ARG(4, 1) = MkAddressTerm(p);
EXTRA_CBACK_ARG(4, 2) = MkAddressTerm(q); EXTRA_CBACK_ARG(4, 2) = MkAddressTerm(q);