summaryrefslogtreecommitdiff
path: root/libguile/gh_data.c
diff options
context:
space:
mode:
authorHan-Wen Nienhuys <hanwen@lilypond.org>2002-07-20 14:08:34 +0000
committerHan-Wen Nienhuys <hanwen@lilypond.org>2002-07-20 14:08:34 +0000
commit34d19ef64368a8bac8a32f799b71dc05dd587654 (patch)
treebdf482155a8d561207b1a9c780f98ca666b77317 /libguile/gh_data.c
parentdd897aafbd218685874256405f740a0e9e1e7303 (diff)
downloadguile-34d19ef64368a8bac8a32f799b71dc05dd587654.tar.gz
2002-07-20 Han-Wen <hanwen@cs.uu.nl>
* *.c: add space after commas everywhere. * *.c: use SCM_VECTOR_SET everywhere, where a vector is written. Document cases where SCM_WRITABLE_VELTS() is used. * vectors.h (SCM_VELTS): prepare for write barrier, and let SCM_VELTS() return a const pointer (SCM_VECTOR_SET): add macro. * autogen.sh (mscripts): find and check version number of autoconf. Complain if 2.53 is not found.
Diffstat (limited to 'libguile/gh_data.c')
-rw-r--r--libguile/gh_data.c7
1 files changed, 2 insertions, 5 deletions
diff --git a/libguile/gh_data.c b/libguile/gh_data.c
index 31c9ea730..edcc290d3 100644
--- a/libguile/gh_data.c
+++ b/libguile/gh_data.c
@@ -122,10 +122,8 @@ gh_ints2scm (const int *d, long n)
{
long i;
SCM v = scm_c_make_vector (n, SCM_UNSPECIFIED);
- SCM *velts = SCM_VELTS(v);
-
for (i = 0; i < n; ++i)
- velts[i] = (SCM_FIXABLE (d[i]) ? SCM_MAKINUM (d[i]) : scm_i_long2big (d[i]));
+ SCM_VECTOR_SET (v, i, (SCM_FIXABLE (d[i]) ? SCM_MAKINUM (d[i]) : scm_i_long2big (d[i])));
return v;
}
@@ -135,10 +133,9 @@ gh_doubles2scm (const double *d, long n)
{
long i;
SCM v = scm_c_make_vector (n, SCM_UNSPECIFIED);
- SCM *velts = SCM_VELTS(v);
for(i = 0; i < n; i++)
- velts[i] = scm_make_real (d[i]);
+ SCM_VECTOR_SET (v, i, scm_make_real (d[i]));
return v;
}