any->u8vector and family now implemented in Scheme

[bpt/guile.git] / libguile / srfi-4.i.c

diff --git a/libguile/srfi-4.i.c b/libguile/srfi-4.i.c
index 84553c8..cecd6c6 100644 (file)
--- a/libguile/srfi-4.i.c
+++ b/libguile/srfi-4.i.c
@@ -121,17 +121,6 @@ SCM_DEFINE (F(scm_list_to_,TAG,vector), "list->"S(TAG)"vector", 1, 0, 0,
 }
 #undef FUNC_NAME
 
-SCM_DEFINE (F(scm_any_to_,TAG,vector), "any->"S(TAG)"vector", 1, 0, 0,
-           (SCM obj),
-           "Convert @var{obj}, which can be a list, vector, or\n"
-           "uniform vector, to a numeric uniform vector of\n"
-           "type " S(TAG)".")
-#define FUNC_NAME s_F(scm_any_to_,TAG,vector)
-{
-  return coerce_to_uvec (TYPE, obj);
-}
-#undef FUNC_NAME
-
 #ifdef CTYPE
 
 SCM