summaryrefslogtreecommitdiff
path: root/libguile/numbers.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2022-01-06 21:47:20 +0100
committerAndy Wingo <wingo@pobox.com>2022-01-13 09:37:17 +0100
commit9a91c20a551484f6a71bb35fa47b10f75f502c74 (patch)
tree2f2b0970ff8a38cc8c326399d39139cd265248fc /libguile/numbers.c
parentdebcccc2151831237c6eb283256a122b226003b4 (diff)
downloadguile-9a91c20a551484f6a71bb35fa47b10f75f502c74.tar.gz
scm_to_mpz uses integer lib
* libguile/integers.h: * libguile/integers.c (scm_integer_to_mpz_z): New internal function. * libguile/numbers.c (scm_to_mpz): Use new function.
Diffstat (limited to 'libguile/numbers.c')
-rw-r--r--libguile/numbers.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/numbers.c b/libguile/numbers.c
index 10efb303a..330ea2cdd 100644
--- a/libguile/numbers.c
+++ b/libguile/numbers.c
@@ -7090,7 +7090,7 @@ scm_to_mpz (SCM val, mpz_t rop)
if (SCM_I_INUMP (val))
mpz_set_si (rop, SCM_I_INUM (val));
else if (SCM_BIGP (val))
- mpz_set (rop, SCM_I_BIG_MPZ (val));
+ scm_integer_to_mpz_z (scm_bignum (val), rop);
else
scm_wrong_type_arg_msg (NULL, 0, val, "exact integer");
}