From 7c2ef9a87be97c259f729b86fb8d5cef1882f3f3 Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@zagadka.de>
Date: Sun, 9 Jan 2005 17:43:14 +0000
Subject: [PATCH] (scm_uniform_element_size): Deprecated implementation as
 well.

---
 libguile/srfi-4.c | 8 ++++++++
 1 file changed, 8 insertions(+)

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)
 {