From 5d0f219ab35f9e214a063e968286ba01f4b54dbf Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 13 Dec 2011 13:28:14 -0800 Subject: * arith.c (expt): Fix broken bignum x fixnum combination. --- ChangeLog | 4 ++++ arith.c | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 4ab164b0..9fa763cb 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2011-12-13 Kaz Kylheku + + * arith.c (expt): Fix broken bignum x fixnum combination. + 2011-12-13 Kaz Kylheku * Makefile (repatch): New phony target. 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); -- cgit v1.2.3