summaryrefslogtreecommitdiff
path: root/libguile/srcprop.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/srcprop.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/srcprop.c')
-rw-r--r--libguile/srcprop.c12
1 files changed, 6 insertions, 6 deletions
diff --git a/libguile/srcprop.c b/libguile/srcprop.c
index 3c679d3bd..a47dfc0ea 100644
--- a/libguile/srcprop.c
+++ b/libguile/srcprop.c
@@ -179,7 +179,7 @@ SCM_DEFINE (scm_source_properties, "source-properties", 1, 0, 0,
#define FUNC_NAME s_scm_source_properties
{
SCM p;
- SCM_VALIDATE_NIM (1,obj);
+ SCM_VALIDATE_NIM (1, obj);
if (SCM_MEMOIZEDP (obj))
obj = SCM_MEMOIZED_EXP (obj);
else if (!SCM_CONSP (obj))
@@ -200,7 +200,7 @@ SCM_DEFINE (scm_set_source_properties_x, "set-source-properties!", 2, 0, 0,
#define FUNC_NAME s_scm_set_source_properties_x
{
SCM handle;
- SCM_VALIDATE_NIM (1,obj);
+ SCM_VALIDATE_NIM (1, obj);
if (SCM_MEMOIZEDP (obj))
obj = SCM_MEMOIZED_EXP (obj);
else if (!SCM_CONSP (obj))
@@ -218,7 +218,7 @@ SCM_DEFINE (scm_source_property, "source-property", 2, 0, 0,
#define FUNC_NAME s_scm_source_property
{
SCM p;
- SCM_VALIDATE_NIM (1,obj);
+ SCM_VALIDATE_NIM (1, obj);
if (SCM_MEMOIZEDP (obj))
obj = SCM_MEMOIZED_EXP (obj);
else if (!SCM_CONSP (obj))
@@ -250,7 +250,7 @@ SCM_DEFINE (scm_set_source_property_x, "set-source-property!", 3, 0, 0,
{
scm_whash_handle h;
SCM p;
- SCM_VALIDATE_NIM (1,obj);
+ SCM_VALIDATE_NIM (1, obj);
if (SCM_MEMOIZEDP (obj))
obj = SCM_MEMOIZED_EXP (obj);
else if (!SCM_CONSP (obj))
@@ -284,7 +284,7 @@ SCM_DEFINE (scm_set_source_property_x, "set-source-property!", 3, 0, 0,
}
else if (SCM_EQ_P (scm_sym_line, key))
{
- SCM_VALIDATE_INUM (3,datum);
+ SCM_VALIDATE_INUM (3, datum);
if (SRCPROPSP (p))
SETSRCPROPLINE (p, SCM_INUM (datum));
else
@@ -294,7 +294,7 @@ SCM_DEFINE (scm_set_source_property_x, "set-source-property!", 3, 0, 0,
}
else if (SCM_EQ_P (scm_sym_column, key))
{
- SCM_VALIDATE_INUM (3,datum);
+ SCM_VALIDATE_INUM (3, datum);
if (SRCPROPSP (p))
SETSRCPROPCOL (p, SCM_INUM (datum));
else