diff options
author | Daniel Llorens <daniel.llorens@bluewin.ch> | 2015-02-20 19:49:34 +0100 |
---|---|---|
committer | Daniel Llorens <daniel.llorens@bluewin.ch> | 2016-07-11 09:11:50 +0200 |
commit | cea5139e6528dc9018a3bb447c2d242a6f778d52 (patch) | |
tree | f6bfff212856d094254cc1eb54dbe81ca7615b5b | |
parent | c17799dda915dab93142c76bda9152d25919cb49 (diff) | |
download | guile-cea5139e6528dc9018a3bb447c2d242a6f778d52.tar.gz |
Remove deprecated and unused generalized-vector functions
* libguile/generalized-vectors.h, libguile/generalized-vectors.c
(scm_is_generalized_vector, scm_c_generalized_vector_length,
scm_c_generalized_vector_ref, scm_c_generalized_vector_set_x): These
functions were deprecated in 2.0.9. Remove.
-rw-r--r-- | libguile/generalized-vectors.c | 35 | ||||
-rw-r--r-- | libguile/generalized-vectors.h | 4 |
2 files changed, 2 insertions, 37 deletions
diff --git a/libguile/generalized-vectors.c b/libguile/generalized-vectors.c index fc493bc80..308cf6ea8 100644 --- a/libguile/generalized-vectors.c +++ b/libguile/generalized-vectors.c @@ -49,7 +49,7 @@ scm_i_register_vector_constructor (SCM type, SCM (*ctor)(SCM, SCM)) /* need to increase VECTOR_CTORS_N_STATIC_ALLOC, buster */ abort (); else - { + { vector_ctors[num_vector_ctors_registered].tag = type; vector_ctors[num_vector_ctors_registered].ctor = ctor; num_vector_ctors_registered++; @@ -69,23 +69,10 @@ SCM_DEFINE (scm_make_generalized_vector, "make-generalized-vector", 2, 1, 0, } #undef FUNC_NAME -int -scm_is_generalized_vector (SCM obj) -{ - int ret = 0; - if (scm_is_array (obj)) - { - scm_t_array_handle h; - scm_array_get_handle (obj, &h); - ret = scm_array_handle_rank (&h) == 1; - scm_array_handle_release (&h); - } - return ret; -} #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) @@ -98,24 +85,6 @@ scm_generalized_vector_get_handle (SCM vec, scm_t_array_handle *h) } } -size_t -scm_c_generalized_vector_length (SCM v) -{ - return scm_c_array_length (v); -} - -SCM -scm_c_generalized_vector_ref (SCM v, ssize_t idx) -{ - return scm_c_array_ref_1 (v, idx); -} - -void -scm_c_generalized_vector_set_x (SCM v, ssize_t idx, SCM val) -{ - scm_c_array_set_1_x (v, val, idx); -} - void scm_init_generalized_vectors () { diff --git a/libguile/generalized-vectors.h b/libguile/generalized-vectors.h index 876537ae0..77d62726f 100644 --- a/libguile/generalized-vectors.h +++ b/libguile/generalized-vectors.h @@ -30,10 +30,6 @@ /* Generalized vectors */ -SCM_API int scm_is_generalized_vector (SCM obj); -SCM_API size_t scm_c_generalized_vector_length (SCM v); -SCM_API SCM scm_c_generalized_vector_ref (SCM v, ssize_t idx); -SCM_API void scm_c_generalized_vector_set_x (SCM v, ssize_t idx, SCM val); SCM_API void scm_generalized_vector_get_handle (SCM vec, scm_t_array_handle *h); |