0 / -1 confusion for properties (2 bugs reported by sater).

This commit is contained in:
bal 1985-10-03 14:45:53 +00:00
parent dcb4b71a3d
commit de79024451

View file

@ -318,7 +318,7 @@ if (Debug>1) fprintf(stderr,"findcoerc returns %d at position %d\n",cp,i);
CHKCOST(); CHKCOST();
break; break;
} else { } else {
if (cp->c3_prop==0) { if (cp->c3_prop<0) {
totalcost+=docoerc(tp,cp,ply,toplevel,0); totalcost+=docoerc(tp,cp,ply,toplevel,0);
CHKCOST(); CHKCOST();
} else { } else {
@ -361,7 +361,7 @@ if(Debug>1) fprintf(stderr,"Pattern too long, %d with only %d items on stack\n",
goto normalfailed; goto normalfailed;
#endif #endif
} }
if (cp->c3_prop==0) { if (cp->c3_prop<0) {
totalcost+=docoerc(tp,cp,ply,toplevel,0); totalcost+=docoerc(tp,cp,ply,toplevel,0);
CHKCOST(); CHKCOST();
} else { } else {