fix left-over slots
This commit is contained in:
parent
2c12c7917b
commit
f26cb133b9
@ -1780,6 +1780,7 @@ YAP_ExecuteFirst(PredEntry *pe, CPredicate exec_code)
|
||||
}
|
||||
} else {
|
||||
Int ret = (exec_code)( PASS_REGS1 );
|
||||
LOCAL_CurSlot = CurSlot;
|
||||
if (!ret) {
|
||||
Term t;
|
||||
|
||||
@ -1907,6 +1908,7 @@ YAP_ExecuteNext(PredEntry *pe, CPredicate exec_code)
|
||||
return TRUE;
|
||||
} else {
|
||||
Int ret = (exec_code)( PASS_REGS1 );
|
||||
LOCAL_CurSlot = CurSlot;
|
||||
if (!ret) {
|
||||
Term t;
|
||||
|
||||
|
Reference in New Issue
Block a user