diff options
Diffstat (limited to 'libguile/srfi-4.i.c')
-rw-r--r-- | libguile/srfi-4.i.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/libguile/srfi-4.i.c b/libguile/srfi-4.i.c index 48cc29eae..1df4c3651 100644 --- a/libguile/srfi-4.i.c +++ b/libguile/srfi-4.i.c @@ -53,6 +53,14 @@ SCM_DEFINE (F(scm_make_,TAG,vector), "make-"S(TAG)"vector", 1, 1, 0, } #undef FUNC_NAME +SCM +F(scm_take_,TAG,vector) (const CTYPE *data, size_t n) +{ + scm_gc_register_collectable_memory ((void *)data, n*sizeof(CTYPE), + uvec_names[TYPE]); + return take_uvec (TYPE, data, n); +} + SCM_DEFINE (F(scm_,TAG,vector), S(TAG)"vector", 0, 0, 1, (SCM l), "Return a newly allocated homogeneous numeric vector containing\n" |