summaryrefslogtreecommitdiff
path: root/libguile/srfi-4.i.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-07-18 13:26:18 +0200
committerAndy Wingo <wingo@pobox.com>2009-07-19 15:15:44 +0200
commitac8ed3db31769d7ede5e75fba1697e8dde55fae4 (patch)
treef594767406a6b8f4ed2a12273e22d656480d59a2 /libguile/srfi-4.i.c
parent943a0a8759504c4a367c1904bef4a8afbc6208dd (diff)
downloadguile-ac8ed3db31769d7ede5e75fba1697e8dde55fae4.tar.gz
any->u8vector and family now implemented in Scheme
* module/Makefile.am: * module/srfi/srfi-4/gnu.scm: New module, for extensions to srfi-4. Currently defines the any->FOOvector family. * libguile/srfi-4.c: * libguile/srfi-4.i.c: Dispatch scm_any_to_FOOvector calls to the scheme-implemented functions in (srfi srfi-4 gnu).
Diffstat (limited to 'libguile/srfi-4.i.c')
-rw-r--r--libguile/srfi-4.i.c11
1 files changed, 0 insertions, 11 deletions
diff --git a/libguile/srfi-4.i.c b/libguile/srfi-4.i.c
index 84553c804..cecd6c638 100644
--- 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