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