[Guile-commits] 13/25: Remove deprecated and unused generalized-vector functions

[Daniel Llorens]

lloda pushed a commit to branch lloda-array-support
in repository guile.

commit cea5139e6528dc9018a3bb447c2d242a6f778d52
Author: Daniel Llorens <address@hidden>
Date:   Fri Feb 20 19:49:34 2015 +0100

    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.
---
 libguile/generalized-vectors.c |   35 ++---------------------------------
 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 fc493bc..308cf6e 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 876537a..77d6272 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);