diff options
Diffstat (limited to 'reduce.c')
| -rw-r--r-- | reduce.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -2075,7 +2075,7 @@ L3: if(arg1==NIL)lexfail(lastarg); GETARG(arg1); UPLEFT; if(tag[arg1]==DOUBLE||tag[lastarg]==DOUBLE)int_error("div"); - if(bigzero(lastarg))div_error(); /* build into big_remainder ? */ + if(big_is_zero(lastarg))div_error(); /* build into big_remainder ? */ simpl(big_divide(arg1,lastarg)); goto DONE; @@ -2084,10 +2084,10 @@ L3: if(arg1==NIL)lexfail(lastarg); GETARG(arg1); UPLEFT; /* experiment, suppressed - if(tag[lastarg]==INT&&tag[arg1]==INT&&!bigzero(lastarg)) + if(tag[lastarg]==INT&&tag[arg1]==INT&&!big_is_zero(lastarg)) { extern word b_rem; int d = big_divide(arg1,lastarg); - if(bigzero(b_rem)){ simpl(d); goto DONE; } + if(big_is_zero(b_rem)){ simpl(d); goto DONE; } } /* makes a/b integer if a, b integers dividing exactly */ fa=force_dbl(arg1); fb=force_dbl(lastarg); @@ -2100,7 +2100,7 @@ L3: if(arg1==NIL)lexfail(lastarg); GETARG(arg1); UPLEFT; if(tag[arg1]==DOUBLE||tag[lastarg]==DOUBLE)int_error("mod"); - if(bigzero(lastarg))div_error(); /* build into big_remainder ? */ + if(big_is_zero(lastarg))div_error(); /* build into big_remainder ? */ simpl(big_remainder(arg1,lastarg)); goto DONE; |