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

current_pred again

Browse Source
This commit is contained in:
Vítor Santos Costa 2016-01-31 23:11:49 +00:00
parent f031e78def
commit 9b38290b8c
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
C/stdpreds.c
View File

@ -863,12 +863,11 @@ static Int cont_current_predicate(USES_REGS1) {
if (task != TermUser) { if (task != TermUser) {
ModEntry *m = Yap_GetModuleEntry(TermProlog); ModEntry *m = Yap_GetModuleEntry(TermProlog);
pp = firstModulePred(m->PredForME, task); pp = firstModulePred(m->PredForME, task);
if (!pp) if (!pp) {
cut_fail(); cut_fail();
}
} }
} else { }
cut_fail();
}
} }
npp = firstModulePred(pp, task); npp = firstModulePred(pp, task);