make sure we always look for slots if called from user code.
oops beautifications.
This commit is contained in:
parent
2be8bcb482
commit
aadbb136f5
@ -1019,6 +1019,10 @@ YAP_cut_up(void)
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
#endif /* CUT_C */
|
#endif /* CUT_C */
|
||||||
|
/* This is complicated: make sure we can restore the ASP
|
||||||
|
pointer back to where cut_up called it. Slots depend on it. */
|
||||||
|
if (ENV > B->cp_env)
|
||||||
|
ASP = B->cp_env;
|
||||||
#ifdef YAPOR
|
#ifdef YAPOR
|
||||||
{
|
{
|
||||||
choiceptr cut_pt;
|
choiceptr cut_pt;
|
||||||
@ -1033,7 +1037,6 @@ YAP_cut_up(void)
|
|||||||
B = B->cp_b; /* cut_fail */
|
B = B->cp_b; /* cut_fail */
|
||||||
#endif
|
#endif
|
||||||
HB = B->cp_h; /* cut_fail */
|
HB = B->cp_h; /* cut_fail */
|
||||||
|
|
||||||
RECOVER_B();
|
RECOVER_B();
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user