mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Remove dead code in scm_integer_inexact_sqrt_z

Browse source 
* libguile/integers.c (scm_integer_inexact_sqrt_z): Remove some dead
code.
This commit is contained in:
Andy Wingo 2022-01-12 15:58:27 +01:00
parent 19bc021e34
commit 222b320868
1 changed files with 0 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/integers.c
View file

@ -3385,10 +3385,6 @@ scm_integer_inexact_sqrt_i (scm_t_inum k)
double double
scm_integer_inexact_sqrt_z (struct scm_bignum *k) scm_integer_inexact_sqrt_z (struct scm_bignum *k)
{ {
mpz_t zk, zs;
alias_bignum_to_mpz (k, zk);
mpz_init (zs);
long expon; long expon;
double signif = scm_integer_frexp_z (k, &expon); double signif = scm_integer_frexp_z (k, &expon);
int negative = signif < 0; int negative = signif < 0;