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

Pull generalized-vectors from under bitvector/string/vector

Browse source 
* libguile/generalized-vectors.c: Collect the register array type functions here.
* libguile/strings.c: Remove array registry code. Fix includes.
* libguile/vectors.c: Remove array registry code. Fix includes.
* libguile/bitvectors.c: Remove array registry code. Fix includes.
This commit is contained in:
Daniel Llorens 2020-02-06 15:18:14 +01:00
parent 9e785509e4
commit f188424557
5 changed files with 17 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

14
libguile/bitvectors.c
View file

@ -25,21 +25,21 @@
#endif
#include <string.h>
#include <stdbool.h>
#include "array-handle.h"
#include "arrays.h"
#include "boolean.h"
#include "generalized-vectors.h"
#include "gsubr.h"
#include "list.h"
#include "numbers.h"
#include "pairs.h"
#include "ports.h"
#include "srfi-4.h"
#include <stdbool.h>
#include "bitvectors.h"
/* FIXME move functions using these (operating on rank-1 bit arrays, not
bitvectors) to a separate source file
*/
#include "arrays.h"
#include "srfi-4.h"
/* Bit vectors. Would be nice if they were implemented on top of bytevectors,
* but alack, all we have is this crufty C.
@ -756,8 +756,6 @@ scm_istr2bve (SCM str)
return res;
}
SCM_VECTOR_IMPLEMENTATION (SCM_ARRAY_ELEMENT_TYPE_BIT, scm_make_bitvector)
void
scm_init_bitvectors ()
{