should always be ENV

This commit is contained in:
Vitor Santos Costa 2009-05-04 21:56:49 -05:00
parent 780b629bff
commit a077500795

View File

@ -712,7 +712,7 @@ p_functor(void) /* functor(?,?,?) */
*pt1++ = d0;
d0 = AbsAppl(H);
if (pt1+d1 > ENV - CreepFlag) {
if (!Yap_gcl((1+d1)*sizeof(CELL), 3, YENV, gc_P(P,CP))) {
if (!Yap_gcl((1+d1)*sizeof(CELL), 3, ENV, gc_P(P,CP))) {
Yap_Error(OUT_OF_STACK_ERROR, TermNil, Yap_ErrorMessage);
return FALSE;
}