summaryrefslogtreecommitdiff
path: root/libguile/unif.c
diff options
context:
space:
mode:
authorGreg J. Badros <gjb@cs.washington.edu>2000-01-05 19:00:03 +0000
committerGreg J. Badros <gjb@cs.washington.edu>2000-01-05 19:00:03 +0000
commit47c6b75ea980821737e8030190d24b9aa30e978d (patch)
tree94e1566e9a7bd7b8b4f3abfadde47faad8f45830 /libguile/unif.c
parentf5421cfc2a694b6c4eb9e035d583cc461994b4ce (diff)
downloadguile-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.c10
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);