FIX: skipped one Bind
This commit is contained in:
parent
dc37d76e8b
commit
cb8b05d516
@ -770,7 +770,7 @@ safe_interrupt_handler( PredEntry *pe USES_REGS )
|
|||||||
d1 = Deref(d1);
|
d1 = Deref(d1);
|
||||||
if (VarOfTerm(d1) < H0 || VarOfTerm(d1) > HR) {
|
if (VarOfTerm(d1) < H0 || VarOfTerm(d1) > HR) {
|
||||||
Term v = MkVarTerm();
|
Term v = MkVarTerm();
|
||||||
Bind( VarOfTerm(d1),v );
|
YapBind( VarOfTerm(d1),v );
|
||||||
} else {
|
} else {
|
||||||
goto loop;
|
goto loop;
|
||||||
}
|
}
|
||||||
|
Reference in New Issue
Block a user