diff options
Diffstat (limited to 'libguile/integers.c')
-rw-r--r-- | libguile/integers.c | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/libguile/integers.c b/libguile/integers.c index f00885792..0ca799b9e 100644 --- a/libguile/integers.c +++ b/libguile/integers.c @@ -3035,3 +3035,12 @@ scm_integer_to_uint64_z (struct scm_bignum *z, uint64_t *val) { return bignum_to_uint64 (z, val); } + +void +scm_integer_to_mpz_z (struct scm_bignum *z, mpz_t n) +{ + mpz_t zn; + alias_bignum_to_mpz (z, zn); + mpz_init_set (n, zn); + scm_remember_upto_here_1 (z); +} |