summaryrefslogtreecommitdiff
path: root/libguile/list.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/list.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/list.c')
-rw-r--r--libguile/list.c18
1 files changed, 9 insertions, 9 deletions
diff --git a/libguile/list.c b/libguile/list.c
index fd815c7a6..e62ad5b37 100644
--- a/libguile/list.c
+++ b/libguile/list.c
@@ -59,7 +59,7 @@
/* creating lists */
-#define SCM_I_CONS(cell,x,y) \
+#define SCM_I_CONS(cell, x, y) \
do { \
cell = scm_cell ((scm_t_bits)x, (scm_t_bits)y); \
} while (0)
@@ -218,7 +218,7 @@ SCM_DEFINE (scm_length, "length", 1, 0, 0,
#define FUNC_NAME s_scm_length
{
long i;
- SCM_VALIDATE_LIST_COPYLEN (1,lst,i);
+ SCM_VALIDATE_LIST_COPYLEN (1, lst, i);
return SCM_MAKINUM (i);
}
#undef FUNC_NAME
@@ -398,7 +398,7 @@ SCM_DEFINE (scm_list_ref, "list-ref", 2, 0, 0,
{
SCM lst = list;
unsigned long int i;
- SCM_VALIDATE_INUM_MIN_COPY (2,k,0,i);
+ SCM_VALIDATE_INUM_MIN_COPY (2, k,0, i);
while (SCM_CONSP (lst)) {
if (i == 0)
return SCM_CAR (lst);
@@ -422,7 +422,7 @@ SCM_DEFINE (scm_list_set_x, "list-set!", 3, 0, 0,
{
SCM lst = list;
unsigned long int i;
- SCM_VALIDATE_INUM_MIN_COPY (2,k,0,i);
+ SCM_VALIDATE_INUM_MIN_COPY (2, k,0, i);
while (SCM_CONSP (lst)) {
if (i == 0) {
SCM_SETCAR (lst, val);
@@ -453,9 +453,9 @@ SCM_DEFINE (scm_list_tail, "list-tail", 2, 0, 0,
#define FUNC_NAME s_scm_list_tail
{
register long i;
- SCM_VALIDATE_INUM_MIN_COPY (2,k,0,i);
+ SCM_VALIDATE_INUM_MIN_COPY (2, k,0, i);
while (i-- > 0) {
- SCM_VALIDATE_CONS (1,lst);
+ SCM_VALIDATE_CONS (1, lst);
lst = SCM_CDR(lst);
}
return lst;
@@ -470,7 +470,7 @@ SCM_DEFINE (scm_list_cdr_set_x, "list-cdr-set!", 3, 0, 0,
{
SCM lst = list;
unsigned long int i;
- SCM_VALIDATE_INUM_MIN_COPY (2,k,0,i);
+ SCM_VALIDATE_INUM_MIN_COPY (2, k,0, i);
while (SCM_CONSP (lst)) {
if (i == 0) {
SCM_SETCDR (lst, val);
@@ -501,12 +501,12 @@ SCM_DEFINE (scm_list_head, "list-head", 2, 0, 0,
SCM * pos;
register long i;
- SCM_VALIDATE_INUM_MIN_COPY (2,k,0,i);
+ SCM_VALIDATE_INUM_MIN_COPY (2, k,0, i);
answer = SCM_EOL;
pos = &answer;
while (i-- > 0)
{
- SCM_VALIDATE_CONS (1,lst);
+ SCM_VALIDATE_CONS (1, lst);
*pos = scm_cons (SCM_CAR (lst), SCM_EOL);
pos = SCM_CDRLOC (*pos);
lst = SCM_CDR(lst);