From c78b590e562435df6f32724265a36931a7f6eb6c Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Mon, 5 May 2003 23:01:30 +0000
Subject: [PATCH] (scm_logcount): Use mpz_com, not mpz_neg.

---
 libguile/numbers.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libguile/numbers.c b/libguile/numbers.c
index 602682df6..16e771879 100644
--- a/libguile/numbers.c
+++ b/libguile/numbers.c
@@ -1387,7 +1387,7 @@ SCM_DEFINE (scm_logcount, "logcount", 1, 0, 0,
         {
           mpz_t z_n;
           mpz_init (z_n);
-          mpz_neg (z_n, SCM_I_BIG_MPZ (n));
+          mpz_com (z_n, SCM_I_BIG_MPZ (n));
           scm_remember_upto_here_1 (n);
           count = mpz_popcount (z_n);
           mpz_clear (z_n);