summaryrefslogtreecommitdiff
path: root/libguile/vectors.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/vectors.c')
-rw-r--r--libguile/vectors.c28
1 files changed, 14 insertions, 14 deletions
diff --git a/libguile/vectors.c b/libguile/vectors.c
index 35c0e5d89..e8f04d043 100644
--- a/libguile/vectors.c
+++ b/libguile/vectors.c
@@ -204,7 +204,7 @@ SCM_DEFINE (scm_make_vector, "make-vector", 1, 1, 0,
register long j;
register SCM *velts;
- SCM_VALIDATE_INUM_MIN(1,k,0);
+ SCM_VALIDATE_INUM_MIN (1,k,0);
if (SCM_UNBNDP(fill))
fill = SCM_UNSPECIFIED;
i = SCM_INUM(k);
@@ -221,7 +221,7 @@ SCM_DEFINE (scm_make_vector, "make-vector", 1, 1, 0,
#undef FUNC_NAME
-SCM_DEFINE(scm_vector_to_list, "vector->list", 1, 0, 0,
+SCM_DEFINE (scm_vector_to_list, "vector->list", 1, 0, 0,
(SCM v),
"")
#define FUNC_NAME s_scm_vector_to_list
@@ -229,7 +229,7 @@ SCM_DEFINE(scm_vector_to_list, "vector->list", 1, 0, 0,
SCM res = SCM_EOL;
long i;
SCM *data;
- SCM_VALIDATE_VECTOR(1,v);
+ SCM_VALIDATE_VECTOR (1,v);
data = SCM_VELTS(v);
for(i = SCM_LENGTH(v)-1;i >= 0;i--) res = scm_cons(data[i], res);
return res;
@@ -244,7 +244,7 @@ SCM_DEFINE (scm_vector_fill_x, "vector-fill!", 2, 0, 0,
{
register long i;
register SCM *data;
- SCM_VALIDATE_VECTOR(1,v);
+ SCM_VALIDATE_VECTOR (1,v);
data = SCM_VELTS(v);
for(i = SCM_LENGTH(v) - 1; i >= 0; i--)
data[i] = fill_x;
@@ -274,11 +274,11 @@ SCM_DEFINE (scm_vector_move_left_x, "vector-move-left!", 5, 0, 0,
long j;
long e;
- SCM_VALIDATE_VECTOR(1,vec1);
- SCM_VALIDATE_INUM_COPY(2,start1,i);
- SCM_VALIDATE_INUM_COPY(3,end1,e);
- SCM_VALIDATE_VECTOR(4,vec2);
- SCM_VALIDATE_INUM_COPY(5,start2,j);
+ SCM_VALIDATE_VECTOR (1,vec1);
+ SCM_VALIDATE_INUM_COPY (2,start1,i);
+ SCM_VALIDATE_INUM_COPY (3,end1,e);
+ SCM_VALIDATE_VECTOR (4,vec2);
+ SCM_VALIDATE_INUM_COPY (5,start2,j);
SCM_ASSERT (i <= SCM_LENGTH (vec1) && i >= 0, start1, SCM_OUTOFRANGE, FUNC_NAME);
SCM_ASSERT (j <= SCM_LENGTH (vec2) && j >= 0, start2, SCM_OUTOFRANGE, FUNC_NAME);
SCM_ASSERT (e <= SCM_LENGTH (vec1) && e >= 0, end1, SCM_OUTOFRANGE, FUNC_NAME);
@@ -297,11 +297,11 @@ SCM_DEFINE (scm_vector_move_right_x, "vector-move-right!", 5, 0, 0,
long j;
long e;
- SCM_VALIDATE_VECTOR(1,vec1);
- SCM_VALIDATE_INUM_COPY(2,start1,i);
- SCM_VALIDATE_INUM_COPY(3,end1,e);
- SCM_VALIDATE_VECTOR(4,vec2);
- SCM_VALIDATE_INUM_COPY(5,start2,j);
+ SCM_VALIDATE_VECTOR (1,vec1);
+ SCM_VALIDATE_INUM_COPY (2,start1,i);
+ SCM_VALIDATE_INUM_COPY (3,end1,e);
+ SCM_VALIDATE_VECTOR (4,vec2);
+ SCM_VALIDATE_INUM_COPY (5,start2,j);
SCM_ASSERT (i <= SCM_LENGTH (vec1) && i >= 0, start1, SCM_OUTOFRANGE, FUNC_NAME);
SCM_ASSERT (j <= SCM_LENGTH (vec2) && j >= 0, start2, SCM_OUTOFRANGE, FUNC_NAME);
SCM_ASSERT (e <= SCM_LENGTH (vec1) && e >= 0, end1, SCM_OUTOFRANGE, FUNC_NAME);