summaryrefslogtreecommitdiff
path: root/libguile/fluids.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/fluids.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/fluids.c')
-rw-r--r--libguile/fluids.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/fluids.c b/libguile/fluids.c
index 267918249..c975be49b 100644
--- a/libguile/fluids.c
+++ b/libguile/fluids.c
@@ -76,12 +76,12 @@ grow_fluids (scm_root_state *root_state, int new_length)
i = 0;
while (i < old_length)
{
- SCM_VELTS(new_fluids)[i] = SCM_VELTS(old_fluids)[i];
+ SCM_VECTOR_SET (new_fluids, i, SCM_VELTS(old_fluids)[i]);
i++;
}
while (i < new_length)
{
- SCM_VELTS(new_fluids)[i] = SCM_BOOL_F;
+ SCM_VECTOR_SET (new_fluids, i, SCM_BOOL_F);
i++;
}
@@ -171,7 +171,7 @@ SCM_DEFINE (scm_fluid_set_x, "fluid-set!", 2, 0, 0,
if (SCM_VECTOR_LENGTH (scm_root->fluids) <= n)
grow_fluids (scm_root, n+1);
- SCM_VELTS (scm_root->fluids)[n] = value;
+ SCM_VECTOR_SET (scm_root->fluids, n, value);
return SCM_UNSPECIFIED;
}
#undef FUNC_NAME