diff options
| author | Andy Wingo <wingo@pobox.com> | 2022-01-12 15:58:27 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2022-01-13 09:37:17 +0100 |
| commit | 222b3208689cedfcccbada195fe92bde3015a803 (patch) | |
| tree | 0cae79d1aba351d2bdac6bbc35beafa31cc032ba /libguile/integers.c | |
| parent | 19bc021e349f4aaff53daa42032025929ee1c0f2 (diff) | |
| download | guile-222b3208689cedfcccbada195fe92bde3015a803.tar.gz | |
Remove dead code in scm_integer_inexact_sqrt_z
* libguile/integers.c (scm_integer_inexact_sqrt_z): Remove some dead
code.
Diffstat (limited to 'libguile/integers.c')
| -rw-r--r-- | libguile/integers.c | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/libguile/integers.c b/libguile/integers.c index a1231a10d..adf1c401e 100644 --- a/libguile/integers.c +++ b/libguile/integers.c @@ -3385,10 +3385,6 @@ scm_integer_inexact_sqrt_i (scm_t_inum k) double scm_integer_inexact_sqrt_z (struct scm_bignum *k) { - mpz_t zk, zs; - alias_bignum_to_mpz (k, zk); - mpz_init (zs); - long expon; double signif = scm_integer_frexp_z (k, &expon); int negative = signif < 0; |