summaryrefslogtreecommitdiff
path: root/libguile/numbers.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/numbers.c')
-rw-r--r--libguile/numbers.c10
1 files changed, 9 insertions, 1 deletions
diff --git a/libguile/numbers.c b/libguile/numbers.c
index 19d2b2d87..a2a5ca3b1 100644
--- a/libguile/numbers.c
+++ b/libguile/numbers.c
@@ -398,7 +398,15 @@ scm_i_big2dbl_2exp (SCM b, long *expon_p)
{
long expon;
- double signif = mpz_get_d_2exp (&expon, SCM_I_BIG_MPZ (b));
+ double signif;
+#if GUILE_MINI_GMP
+ int iexpon;
+ signif = mpz_get_d (SCM_I_BIG_MPZ (b));
+ signif = frexp (signif, &iexpon);
+ expon = (long) iexpon;
+#else
+ signif = mpz_get_d_2exp (&expon, SCM_I_BIG_MPZ (b));
+#endif
scm_remember_upto_here_1 (b);
*expon_p = expon + shift;
return signif;