mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-02 23:50:47 +02:00
Code Activity

Simplify vector constructor

Browse source 
* libguile/vectors.c: Remove redundant list check.
This commit is contained in:
Daniel Llorens 2020-02-13 12:26:19 +01:00
parent 5a2f73faf5
commit 82d8f025b1
1 changed files with 5 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

14
libguile/vectors.c
View file

@ -122,20 +122,16 @@ SCM_DEFINE (scm_vector, "vector", 0, 0, 1,
"@end lisp")
#define FUNC_NAME s_scm_vector
{
SCM res;
SCM *data;
long i, len;
long len;
SCM_VALIDATE_LIST_COPYLEN (1, l, len);
SCM res = scm_c_make_vector (len, SCM_UNSPECIFIED);
SCM *data = SCM_I_VECTOR_WELTS (res);
res = scm_c_make_vector (len, SCM_UNSPECIFIED);
data = SCM_I_VECTOR_WELTS (res);
i = 0;
while (scm_is_pair (l) && i < len)
for (long i=0; i < len; ++i)
{
data[i] = SCM_CAR (l);
l = SCM_CDR (l);
i += 1;
}
return res;