From 9a91c20a551484f6a71bb35fa47b10f75f502c74 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Thu, 6 Jan 2022 21:47:20 +0100 Subject: 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. --- libguile/numbers.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'libguile/numbers.c') 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"); } -- cgit v1.2.3