From 222b3208689cedfcccbada195fe92bde3015a803 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Wed, 12 Jan 2022 15:58:27 +0100
Subject: [PATCH] Remove dead code in scm_integer_inexact_sqrt_z

* libguile/integers.c (scm_integer_inexact_sqrt_z): Remove some dead
code.
---
 libguile/integers.c | 4 ----
 1 file changed, 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;