diff options
author | Daniel Llorens <daniel.llorens@bluewin.ch> | 2015-02-25 09:47:40 +0100 |
---|---|---|
committer | Daniel Llorens <daniel.llorens@bluewin.ch> | 2016-07-11 09:11:50 +0200 |
commit | da81901c9aea6fb95775634742d34b2d3a73ca8d (patch) | |
tree | 788be4185084629269e026fbf59c6023cbbe5704 /libguile/generalized-vectors.c | |
parent | cea5139e6528dc9018a3bb447c2d242a6f778d52 (diff) | |
download | guile-da81901c9aea6fb95775634742d34b2d3a73ca8d.tar.gz |
Do not use array handles in scm_vector
* libguile/vectors.c (scm_vector): Use SCM_I_VECTOR_WELTS on new vector
instead of generic scm_vector_elements; cf. scm_vector_copy().
(scm_vector_elements): Forward to scm_vector_writable_elements().
(scm_vector_writable_elements): Remove special error message for weak
vector arg.
* libguile/generalized-vectors.c (SCM_VALIDATE_VECTOR_WITH_HANDLE):
Remove unused macro.
* libguile/array-handle.c (scm_array_handle_elements): Forward to
scm_array_handle_writable_elements().
Diffstat (limited to 'libguile/generalized-vectors.c')
-rw-r--r-- | libguile/generalized-vectors.c | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/libguile/generalized-vectors.c b/libguile/generalized-vectors.c index 308cf6ea8..5a89332b7 100644 --- a/libguile/generalized-vectors.c +++ b/libguile/generalized-vectors.c @@ -70,10 +70,6 @@ SCM_DEFINE (scm_make_generalized_vector, "make-generalized-vector", 2, 1, 0, #undef FUNC_NAME -#define SCM_VALIDATE_VECTOR_WITH_HANDLE(pos, val, handle) \ - scm_generalized_vector_get_handle (val, handle) - - void scm_generalized_vector_get_handle (SCM vec, scm_t_array_handle *h) { |