wingo pushed a commit to branch wip-inline-digits
in repository guile.
commit 6b89bad7cac009dd1beb03772729388d12a23869
Author: Andy Wingo <[email protected]>
AuthorDate: Wed Jan 5 09:24:59 2022 +0100
Fix deprecated bit-count* when counting 0 bits
* libguile/deprecated.c (scm_bit_count_star): Fix logic to count 0
bits.
---
libguile/deprecated.c | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/libguile/deprecated.c b/libguile/deprecated.c
index 277a4d9ed..0e0c20f28 100644
--- a/libguile/deprecated.c
+++ b/libguile/deprecated.c
@@ -1,4 +1,4 @@
-/* Copyright 2003-2004,2006,2008-2018,2020,2021
+/* Copyright 2003-2004,2006,2008-2018,2020,2021,2022
Free Software Foundation, Inc.
This file is part of Guile.
@@ -366,7 +366,7 @@ SCM_DEFINE (scm_bit_count_star, "bit-count*", 3, 0, 0,
if (scm_is_bitvector (v) && scm_is_bitvector (kv))
{
count = scm_c_bitvector_count_bits (v, kv);
- if (count == 0)
+ if (bit == 0)
count = scm_c_bitvector_count (kv) - count;
}
else
