diff options
| author | Andy Wingo <wingo@pobox.com> | 2022-01-05 09:24:59 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2022-01-13 09:37:16 +0100 |
| commit | f2390e510fb9f5273b007a90270b5226115e5352 (patch) | |
| tree | 610fe1287dc10a94a1c5b8c9e59e89feffd6ab6a /libguile/deprecated.c | |
| parent | 8b2d58b993f1aa7625156d3a5e66efd9acef7262 (diff) | |
| download | guile-f2390e510fb9f5273b007a90270b5226115e5352.tar.gz | |
Fix deprecated bit-count* when counting 0 bits
* libguile/deprecated.c (scm_bit_count_star): Fix logic to count 0
bits.
Diffstat (limited to 'libguile/deprecated.c')
| -rw-r--r-- | libguile/deprecated.c | 4 |
1 files 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 |