diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2011-12-13 13:28:14 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2011-12-13 13:28:14 -0800 |
commit | 5d0f219ab35f9e214a063e968286ba01f4b54dbf (patch) | |
tree | d0dfd4ef57363ad4c4154436808b3a584f8d6920 /arith.c | |
parent | d581aa02b11d67bb097867c44267c4d4cad7c329 (diff) | |
download | txr-5d0f219ab35f9e214a063e968286ba01f4b54dbf.tar.gz txr-5d0f219ab35f9e214a063e968286ba01f4b54dbf.tar.bz2 txr-5d0f219ab35f9e214a063e968286ba01f4b54dbf.zip |
* arith.c (expt): Fix broken bignum x fixnum combination.
Diffstat (limited to 'arith.c')
-rw-r--r-- | arith.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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); |