diff options
Diffstat (limited to 'libguile/vectors.c')
-rw-r--r-- | libguile/vectors.c | 28 |
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); |