fix bad test for space overflow

This commit is contained in:
Costa Vitor 2009-06-01 19:28:30 -05:00
parent 8e30d82119
commit 8e55611d90
1 changed files with 4 additions and 2 deletions

View File

@ -2570,9 +2570,11 @@ YAP_OpenList(int n)
Term t;
BACKUP_H();
if (H+2*n < ASP-1024) {
if (!dogc())
if (H+2*n > ASP-1024) {
if (!dogc()) {
RECOVER_H();
return FALSE;
}
}
t = AbsPair(H);
H += 2*n;