rename bigplus() to big_add()

3 files changed, 5 insertions, 5 deletions

diff --git a/big.c b/big.c
index 3d7f84b..06b7e57 100644
--- a/big.c
+++ b/big.c
@@ -429,7 +429,7 @@ word big_negate(word x)
   return make(INT, SIGNBIT | hd[x], tl[x]);
 }
 
-word bigplus(word x, word y)
+word big_add(word x, word y)
 {
   if (big_is_positive(x)) {
     if (big_is_positive(y)) {
@@ -513,7 +513,7 @@ word bigtimes(word x, word y)
   word s = big_is_negative(y);
   for (word n = 0, d = digit0(y); y; n++, d = digit(y)) {
     if (d) {
-      r = bigplus(r, big__shift(n, big__stimes(x, d)));
+      r = big_add(r, big__shift(n, big__stimes(x, d)));
     }
 
     y = rest(y);
diff --git a/big.h b/big.h
index d0a1495..6a98f12 100644
--- a/big.h
+++ b/big.h
@@ -32,7 +32,7 @@ word big_divide(word, word);
 word big_remainder(word,word);
 word big_negate(word);
 word bigoscan(char *,char *);
-word bigplus(word,word);
+word big_add(word,word);
 word bigpow(word,word);
 word bigscan(char *);
 void bigsetup(void);
diff --git a/reduce.c b/reduce.c
index a75f0a4..b5e7284 100644
--- a/reduce.c
+++ b/reduce.c
@@ -2045,7 +2045,7 @@ L3: if(arg1==NIL)lexfail(lastarg);
       setdbl(e,get_dbl(arg1)+force_dbl(lastarg)); else
     if(tag[lastarg]==DOUBLE)
       setdbl(e,big_tod(arg1)+get_dbl(lastarg));
-    else simpl(bigplus(arg1,lastarg));
+    else simpl(big_add(arg1,lastarg));
     goto DONE;
 
     case READY(MINUS):
@@ -2275,7 +2275,7 @@ word x,y;
     return(sto_dbl(get_dbl(x)+force_dbl(y)));
   if(tag[y]==DOUBLE)
     return(sto_dbl(big_tod(x)+get_dbl(y)));
-  return(bigplus(x,y));
+  return(big_add(x,y));
 }
 
 void fn_error(s)