diff options
author | Andy Wingo <wingo@pobox.com> | 2022-01-07 11:45:38 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2022-01-13 09:37:17 +0100 |
commit | bdddef3cfdd2e59b5dce783675e136b480bdd3b8 (patch) | |
tree | 46b8d36833621655395dfb308e61377776c08e23 /libguile/numbers.c | |
parent | 0c502a4d3c75aab1ff40439ccd7bc77de7319abb (diff) | |
download | guile-bdddef3cfdd2e59b5dce783675e136b480bdd3b8.tar.gz |
Avoid scm_i_mkbig outside numbers.c.
* libguile/random.c (scm_c_random_bignum):
* libguile/socket.c (scm_from_ipv6): Avoid scm_i_mkbig.
* libguile/numbers.h:
* libguile/numbers.c (scm_i_mkbig): Remove.
Diffstat (limited to 'libguile/numbers.c')
-rw-r--r-- | libguile/numbers.c | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/libguile/numbers.c b/libguile/numbers.c index 0b09d0d8e..e62646ea2 100644 --- a/libguile/numbers.c +++ b/libguile/numbers.c @@ -292,15 +292,6 @@ make_bignum (void) SCM -scm_i_mkbig () -{ - /* Return a newly created bignum. */ - SCM z = make_bignum (); - mpz_init (SCM_I_BIG_MPZ (z)); - return z; -} - -SCM scm_i_long2big (long x) { /* Return a newly created bignum initialized to X. */ |