FIX: skipped one Bind

This commit is contained in:
Vítor Santos Costa 2014-05-29 11:37:50 +01:00
parent dc37d76e8b
commit cb8b05d516
1 changed files with 1 additions and 1 deletions

View File

@ -770,7 +770,7 @@ safe_interrupt_handler( PredEntry *pe USES_REGS )
d1 = Deref(d1);
if (VarOfTerm(d1) < H0 || VarOfTerm(d1) > HR) {
Term v = MkVarTerm();
Bind( VarOfTerm(d1),v );
YapBind( VarOfTerm(d1),v );
} else {
goto loop;
}