fix abolish

This commit is contained in:
Vítor Santos Costa
2016-02-01 02:46:39 +00:00
parent 9b38290b8c
commit a7874dee62
3 changed files with 4 additions and 2 deletions

View File

@@ -766,6 +766,8 @@ static Int cont_current_predicate(USES_REGS1) {
PredEntry *pp;
t1 = Yap_YapStripModule(t1, &t2);
t3 = Yap_YapStripModule(t3, &t2);
t1 = Deref(t1);
t2 = Deref(t2);
task = Deref(ARG4);
pp = AddressOfTerm(EXTRA_CBACK_ARG(4, 1));