* arith.c (expt): Fix broken bignum x fixnum combination.

2 files changed, 5 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index 4ab164b0..9fa763cb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2011-12-13  Kaz Kylheku  <kaz@kylheku.com>
 
+	* arith.c (expt): Fix broken bignum x fixnum combination.
+
+2011-12-13  Kaz Kylheku  <kaz@kylheku.com>
+
 	* Makefile (repatch): New phony target.
 	(distclean): Remove mpi directory.
 
diff --git a/arith.c b/arith.c
index edbd71d8..27034a2a 100644
--- a/arith.c
+++ b/arith.c
@@ -862,7 +862,7 @@ val expt(val anum, val bnum)
         return anum;
       n = make_bignum();
       if (sizeof (int_ptr_t) <= sizeof (mp_digit)) {
-        mp_expt_d(mp(bnum), b, mp(n));
+        mp_expt_d(mp(anum), b, mp(n));
       } else {
         mp_int tmpb;
         mp_init(&tmpb);