3 files changed, 3 insertions, 3 deletions
diff --git a/big.c b/big.c
index 06b7e57..675635a 100644
--- a/big.c
+++ b/big.c
@@ -599,7 +599,7 @@ word big_remainder(word x, word y)
    dividend, quotient negative if signs of divi(sor/dend) mixed */
 
 /* assumes y big_is_positive */
-word bigpow(word x, word y)
+word big_pow(word x, word y)
 {
   word d;
   word r = make(INT, 1, 0);
diff --git a/big.h b/big.h
index 6a98f12..a8c3ae8 100644
--- a/big.h
+++ b/big.h
@@ -33,7 +33,7 @@ word big_remainder(word,word);
 word big_negate(word);
 word bigoscan(char *,char *);
 word big_add(word,word);
-word bigpow(word,word);
+word big_pow(word,word);
 word bigscan(char *);
 void bigsetup(void);
 word bigsub(word,word);
diff --git a/reduce.c b/reduce.c
index b5e7284..6b88409 100644
--- a/reduce.c
+++ b/reduce.c
@@ -2116,7 +2116,7 @@ L3: if(arg1==NIL)lexfail(lastarg);
       fa=get_dbl(arg1),fb=big_tod(lastarg); else
     if(big_is_negative(lastarg))
       fa=big_tod(arg1),fb=big_tod(lastarg);
-    else { simpl(bigpow(arg1,lastarg));
+    else { simpl(big_pow(arg1,lastarg));
 	   goto DONE; }
     errno=0; /* to clear */
     setdbl(e,pow(fa,fb));