1 files changed, 3 insertions, 3 deletions
diff --git a/reduce.c b/reduce.c
index 24c3241..562d611 100644
--- a/reduce.c
+++ b/reduce.c
@@ -532,7 +532,7 @@ word e;
     lastarg= reduce(lastarg);          /* ### */
     if(tag[lastarg]==INT)
       { hold = bigsub(lastarg,arg1);
-        if(poz(hold))hd[e]=arg2,tl[e]=hold;
+        if(big_is_positive(hold))hd[e]=arg2,tl[e]=hold;
         else hd[e]=I,e=tl[e]=FAIL; }
     else hd[e]=I,e=tl[e]=FAIL;
     goto NEXTREDEX;
@@ -2114,7 +2114,7 @@ L3: if(arg1==NIL)lexfail(lastarg);
         fb=get_dbl(lastarg); }else
     if(tag[arg1]==DOUBLE)
       fa=get_dbl(arg1),fb=bigtodbl(lastarg); else
-    if(neg(lastarg))
+    if(big_is_negative(lastarg))
       fa=bigtodbl(arg1),fb=bigtodbl(lastarg);
     else { simpl(bigpow(arg1,lastarg));
 	   goto DONE; }
@@ -2175,7 +2175,7 @@ L3: if(arg1==NIL)lexfail(lastarg);
     GETARG(arg2);
     UPLEFT;
     hd[e]=ap(GENSEQ,cons(arg1,arg2));
-    if(tag[arg1]==INT?poz(arg1):get_dbl(arg1)>=0.0)
+    if(tag[arg1]==INT?big_is_positive(arg1):get_dbl(arg1)>=0.0)
       tag[tl[hd[e]]]=AP; /* hack to record sign of step - see GENSEQ */
     goto NEXTREDEX;