diff options
author | Daniel Llorens <daniel.llorens@bluewin.ch> | 2017-02-13 13:41:45 +0100 |
---|---|---|
committer | Daniel Llorens <daniel.llorens@bluewin.ch> | 2017-10-31 13:45:14 +0100 |
commit | 2d8c75f9f252b41aad93b5dfcdf10a1aee86e463 (patch) | |
tree | 01fe2ddeb0ffc954e23b065c6168618f1faaa30f /libguile/bitvectors.c | |
parent | 4267a8b6d5913e25697bd3932e194ef16e9157ac (diff) | |
download | guile-2d8c75f9f252b41aad93b5dfcdf10a1aee86e463.tar.gz |
Remove scm_generalized_vector_get_handle
This was deprecated in 2.0.9 (118ff892be199f0af359d1b027645d4783a364ec).
* libguile/bitvectors.c (scm_bitvector_writable_elements): Replace
scm_generalized_vector_get_handle.
Remove unnecessary #includes.
* libguile/vectors.c (scm_vector_writable_elements): Replace
scm_generalized_vector_get_handle.
Remove unnecessary #includes.
* libguile/random.c (scm_random_normal_vector_x): Replace
scm_generalized_vector_get_handle.
* libguile/generalized-vectors.h, libguile/generalized-vectors.c
(scm_generalized_vector_get_handle): Remove.
Remove unnecessary #includes.
* NEWS: Add removal notice.
Diffstat (limited to 'libguile/bitvectors.c')
-rw-r--r-- | libguile/bitvectors.c | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/libguile/bitvectors.c b/libguile/bitvectors.c index cfca4ab6c..a6527f56e 100644 --- a/libguile/bitvectors.c +++ b/libguile/bitvectors.c @@ -27,12 +27,9 @@ #include "libguile/_scm.h" #include "libguile/__scm.h" -#include "libguile/strings.h" #include "libguile/array-handle.h" #include "libguile/bitvectors.h" #include "libguile/arrays.h" -#include "libguile/generalized-vectors.h" -#include "libguile/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. @@ -205,7 +202,12 @@ scm_bitvector_elements (SCM vec, size_t *lenp, ssize_t *incp) { - scm_generalized_vector_get_handle (vec, h); + scm_array_get_handle (vec, h); + if (1 != scm_array_handle_rank (h)) + { + scm_array_handle_release (h); + scm_wrong_type_arg_msg (NULL, 0, vec, "rank 1 bit array"); + } if (offp) { scm_t_array_dim *dim = scm_array_handle_dims (h); |