mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 09:10:22 +02:00
Code Activity

(coerce_to_uvec, scm_any_to_u8vector, etc): New.

Browse source 
(scm_uniform_element_size, scm_uniform_vector_length): Do no longer
handle old-style uniform vectors.
This commit is contained in:
Marius Vollmer 2004-11-02 19:34:30 +00:00
parent f738b51d25
commit 90d4368c88
3 changed files with 67 additions and 61 deletions
Download patch file Download diff file Expand all files Collapse all files

11
libguile/srfi-4.i.c
View file

@ -127,6 +127,17 @@ 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"
"homogenous vector, to a numeric homogenous 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
CTYPE *
F(scm_,TAG,vector_elements) (SCM obj)
{