check for null

This commit is contained in:
Vítor Santos Costa 2015-06-19 00:17:25 +01:00
parent 91d29112b0
commit df52ba811a

View File

@ -3164,7 +3164,7 @@ install_clauses(ClauseDef *cls, PredEntry *ap, istack_entry *stack, yamop *beg,
if (!sp->pos && (sp[-1].val == 0L || cls->Tag == sp[-1].val)) {
cls++;
}
if (cl->ClCode == end || cl->ClCode == NULL) {
if (cl->ClCode == end) {
return cls-1;
}
cl = cl->ClNext;