summaryrefslogtreecommitdiff
path: root/libguile/srfi-4.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2005-01-09 17:43:14 +0000
committerMarius Vollmer <mvo@zagadka.de>2005-01-09 17:43:14 +0000
commit7c2ef9a87be97c259f729b86fb8d5cef1882f3f3 (patch)
tree4147549dbbf1ce16a81e6166fd0e48ea6fbd856e /libguile/srfi-4.c
parentcd5d55c76c7960a206612bb92da4b16c02b84372 (diff)
downloadguile-7c2ef9a87be97c259f729b86fb8d5cef1882f3f3.tar.gz
(scm_uniform_element_size): Deprecated implementation
as well.
Diffstat (limited to 'libguile/srfi-4.c')
-rw-r--r--libguile/srfi-4.c8
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)
{