diff options
author | Marius Vollmer <mvo@zagadka.de> | 2005-01-09 17:43:14 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2005-01-09 17:43:14 +0000 |
commit | 7c2ef9a87be97c259f729b86fb8d5cef1882f3f3 (patch) | |
tree | 4147549dbbf1ce16a81e6166fd0e48ea6fbd856e /libguile/srfi-4.c | |
parent | cd5d55c76c7960a206612bb92da4b16c02b84372 (diff) | |
download | guile-7c2ef9a87be97c259f729b86fb8d5cef1882f3f3.tar.gz |
(scm_uniform_element_size): Deprecated implementation
as well.
Diffstat (limited to 'libguile/srfi-4.c')
-rw-r--r-- | libguile/srfi-4.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/libguile/srfi-4.c b/libguile/srfi-4.c index 32b8ae40d..71f649644 100644 --- a/libguile/srfi-4.c +++ b/libguile/srfi-4.c @@ -670,18 +670,26 @@ scm_array_handle_uniform_element_size (scm_t_array_handle *h) return uvec_sizes[SCM_UVEC_TYPE(vec)]; scm_wrong_type_arg_msg (NULL, 0, h->array, "uniform array"); } + +#if SCM_ENABLE_DEPRECATED /* return the size of an element in a uniform array or 0 if type not found. */ size_t scm_uniform_element_size (SCM obj) { + scm_c_issue_deprecation_warning + ("scm_uniform_element_size is deprecated. " + "Use scm_array_handle_uniform_element_size instead."); + if (SCM_IS_UVEC (obj)) return uvec_sizes[SCM_UVEC_TYPE(obj)]; else return 0; } +#endif + const void * scm_array_handle_uniform_elements (scm_t_array_handle *h) { |