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/unif.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/unif.c')
-rw-r--r-- | libguile/unif.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/libguile/unif.c b/libguile/unif.c index 7d6c51ddd..60f5a10af 100644 --- a/libguile/unif.c +++ b/libguile/unif.c @@ -1071,7 +1071,7 @@ GUILE_PROC(scm_uniform_vector_ref, "uniform-vector-ref", 2, 0, 0, } else { - SCM_VALIDATE_INT(2,args); + SCM_VALIDATE_INUM(2,args); pos = SCM_INUM (args); } SCM_ASRTGO (pos >= 0 && pos < SCM_LENGTH (v), outrng); @@ -1261,7 +1261,7 @@ GUILE_PROC(scm_array_set_x, "array-set!", 2, 0, 1, } else { - SCM_VALIDATE_INT_COPY(3,args,pos); + SCM_VALIDATE_INUM_COPY(3,args,pos); } SCM_ASRTGO (pos >= 0 && pos < SCM_LENGTH (v), outrng); } @@ -1741,7 +1741,7 @@ GUILE_PROC(scm_bit_count, "bit-count", 2, 0, 0, { long i; register unsigned long cnt = 0, w; - SCM_VALIDATE_INT(2,seq); + SCM_VALIDATE_INUM(2,seq); switch SCM_TYP7 (seq) { default: @@ -1779,7 +1779,7 @@ range @code{#f} is returned.") long i, lenw, xbits, pos; register unsigned long w; SCM_VALIDATE_NIM (2,v); - SCM_VALIDATE_INT_COPY(3,k,pos); + SCM_VALIDATE_INUM_COPY(3,k,pos); SCM_ASSERT ((pos <= SCM_LENGTH (v)) && (pos >= 0), k, SCM_OUTOFRANGE, FUNC_NAME); if (pos == SCM_LENGTH (v)) @@ -2170,7 +2170,7 @@ appropriate type, no coercions are done.") SCM ra; scm_sizet k; long n; - SCM_VALIDATE_INT_COPY(1,ndim,k); + SCM_VALIDATE_INUM_COPY(1,ndim,k); while (k--) { n = scm_ilength (row); |