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

Fix deprecated bit-count* when counting 0 bits

Browse source 
* libguile/deprecated.c (scm_bit_count_star): Fix logic to count 0
bits.
This commit is contained in:
Andy Wingo 2022-01-05 09:24:59 +01:00
parent 8b2d58b993
commit f2390e510f
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/deprecated.c
View file

@ -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. Free Software Foundation, Inc.
This file is part of Guile. 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)) if (scm_is_bitvector (v) && scm_is_bitvector (kv))
{ {
count = scm_c_bitvector_count_bits (v, kv); count = scm_c_bitvector_count_bits (v, kv);
if (count == 0) if (bit == 0)
count = scm_c_bitvector_count (kv) - count; count = scm_c_bitvector_count (kv) - count;
} }
else else