diff options
| author | Greg J. Badros <gjb@cs.washington.edu> | 2000-01-05 19:00:03 +0000 |
|---|---|---|
| committer | Greg J. Badros <gjb@cs.washington.edu> | 2000-01-05 19:00:03 +0000 |
| commit | 47c6b75ea980821737e8030190d24b9aa30e978d (patch) | |
| tree | 94e1566e9a7bd7b8b4f3abfadde47faad8f45830 /libguile/vectors.c | |
| parent | f5421cfc2a694b6c4eb9e035d583cc461994b4ce (diff) | |
| download | guile-47c6b75ea980821737e8030190d24b9aa30e978d.tar.gz | |
* *.[ch]: Replace SCM_VALIDATE_INT w/ SCM_VALIDATE_INUM for
better consistency with the names of other SCM_VALIDATE_ macros
and better conformance to guile naming policy.
Diffstat (limited to 'libguile/vectors.c')
| -rw-r--r-- | libguile/vectors.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/libguile/vectors.c b/libguile/vectors.c index 10db47aa5..3f7217ab6 100644 --- a/libguile/vectors.c +++ b/libguile/vectors.c @@ -204,7 +204,7 @@ GUILE_PROC (scm_make_vector, "make-vector", 1, 1, 0, register long j; register SCM *velts; - SCM_VALIDATE_INT_MIN(1,k,0); + SCM_VALIDATE_INUM_MIN(1,k,0); if (SCM_UNBNDP(fill)) fill = SCM_UNSPECIFIED; i = SCM_INUM(k); @@ -275,10 +275,10 @@ GUILE_PROC (scm_vector_move_left_x, "vector-move-left!", 5, 0, 0, long e; SCM_VALIDATE_VECTOR(1,vec1); - SCM_VALIDATE_INT_COPY(2,start1,i); - SCM_VALIDATE_INT_COPY(3,end1,e); + SCM_VALIDATE_INUM_COPY(2,start1,i); + SCM_VALIDATE_INUM_COPY(3,end1,e); SCM_VALIDATE_VECTOR(4,vec2); - SCM_VALIDATE_INT_COPY(5,start2,j); + 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); @@ -298,10 +298,10 @@ GUILE_PROC (scm_vector_move_right_x, "vector-move-right!", 5, 0, 0, long e; SCM_VALIDATE_VECTOR(1,vec1); - SCM_VALIDATE_INT_COPY(2,start1,i); - SCM_VALIDATE_INT_COPY(3,end1,e); + SCM_VALIDATE_INUM_COPY(2,start1,i); + SCM_VALIDATE_INUM_COPY(3,end1,e); SCM_VALIDATE_VECTOR(4,vec2); - SCM_VALIDATE_INT_COPY(5,start2,j); + 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); |