mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-04 08:40:21 +02:00
Code Activity

Add bitvectors-internal.h

Browse source 
* libguile/bitvectors-internal.h: New file.
* libguile/Makefile.am (noinst_HEADERS): Add new file.
* libguile/bitvectors.c: Adapt to add scm_ prefix to the is_bytevector,
bytevector_bits, etc helpers.
* libguile/bitvectors.h (scm_is_bitvector): Define inline.  Remove
internal defines from the header.
* libguile/eq.c:
* libguile/init.c:
* libguile/print.c:
* libguile/array-handle.c: Adapt.
This commit is contained in:
Andy Wingo 2025-06-30 15:20:58 +02:00
parent 62b23a8dc4
commit 30ad63113a
8 changed files with 198 additions and 190 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/array-handle.c
View file

@ -29,7 +29,7 @@
#include "arrays.h"
#include "arrays-internal.h"
#include "boolean.h"
#include "bitvectors.h"
#include "bitvectors-internal.h"
#include "bytevectors.h"
#include "bytevectors-internal.h"
#include "list.h"
@ -210,8 +210,8 @@ scm_array_get_handle (SCM array, scm_t_array_handle *h)
SCM_ARRAY_ELEMENT_TYPE_BIT,
bitvector_ref,
bitvector_set_x,
scm_i_bitvector_bits (array),
scm_i_is_mutable_bitvector (array));
scm_bitvector_bits (scm_to_bitvector (array)),
scm_is_mutable_bitvector (array));
break;
case scm_tc7_bytevector:
{