mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-03 08:10:31 +02:00
Code Activity

Remove deprecated and unused generalized-vector functions

Browse source 
* 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.
This commit is contained in:
Daniel Llorens 2015-02-20 19:49:34 +01:00
parent c17799dda9
commit cea5139e65
2 changed files with 2 additions and 37 deletions
Download patch file Download diff file Expand all files Collapse all files

31
libguile/generalized-vectors.c
View file

@ -69,19 +69,6 @@ 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)
@ -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 ()
{

4
libguile/generalized-vectors.h
View file

@ -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);