summaryrefslogtreecommitdiff
path: root/libguile/deprecated.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2020-04-23 21:30:24 +0200
committerAndy Wingo <wingo@pobox.com>2020-04-29 11:14:17 +0200
commit8861af39aee869c8a64f598e135966925433173c (patch)
tree6553e521b30b3540235b6cb2ee0cb55890133eea /libguile/deprecated.c
parentb517a91ba4aaccf920a81eb8bf71ca090a9b457c (diff)
downloadguile-8861af39aee869c8a64f598e135966925433173c.tar.gz
Prefer C-like interfaces for scm_c_bitvector_{set,clear}_bits_x
* libguile/bitvectors.h: * libguile/bitvectors.c (scm_c_bitvector_set_bits_x) (scm_c_bitvector_clear_bits_x): Expose only C-like interfaces. No need to have a SCM_UNDEFINED return. * libguile/deprecated.c (scm_bit_set_star_x): Adapt. * doc/ref/api-data.texi (Bit Vectors): Update.
Diffstat (limited to 'libguile/deprecated.c')
-rw-r--r--libguile/deprecated.c11
1 files changed, 8 insertions, 3 deletions
diff --git a/libguile/deprecated.c b/libguile/deprecated.c
index 1a480ecb1..517346807 100644
--- a/libguile/deprecated.c
+++ b/libguile/deprecated.c
@@ -447,9 +447,14 @@ SCM_DEFINE (scm_bit_set_star_x, "bit-set*!", 3, 0, 0,
int bit = scm_to_bool (obj);
if (scm_is_bitvector (v) && scm_is_bitvector (kv))
- return bit
- ? scm_bitvector_set_bits_x (v, kv)
- : scm_bitvector_clear_bits_x (v, kv);
+ {
+ if (bit)
+ scm_c_bitvector_set_bits_x (v, kv);
+ else
+ scm_c_bitvector_clear_bits_x (v, kv);
+
+ return SCM_UNSPECIFIED;
+ }
scm_t_array_handle v_handle;
size_t v_off, v_len;