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/list.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/list.c')
-rw-r--r-- | libguile/list.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/libguile/list.c b/libguile/list.c index 4bad708ad..af1ce636b 100644 --- a/libguile/list.c +++ b/libguile/list.c @@ -332,7 +332,7 @@ GUILE_PROC(scm_list_ref, "list-ref", 2, 0, 0, #define FUNC_NAME s_scm_list_ref { register long i; - SCM_VALIDATE_INT_MIN_COPY(2,k,0,i); + SCM_VALIDATE_INUM_MIN_COPY(2,k,0,i); while (i-- > 0) { SCM_ASRTGO(SCM_CONSP(lst), erout); lst = SCM_CDR(lst); @@ -350,7 +350,7 @@ GUILE_PROC(scm_list_set_x, "list-set!", 3, 0, 0, #define FUNC_NAME s_scm_list_set_x { register long i; - SCM_VALIDATE_INT_MIN_COPY(2,k,0,i); + SCM_VALIDATE_INUM_MIN_COPY(2,k,0,i); while (i-- > 0) { SCM_ASRTGO(SCM_CONSP(lst), erout); lst = SCM_CDR(lst); @@ -377,7 +377,7 @@ or returning the results of cdring @var{k} times down @var{lst}.") #define FUNC_NAME s_scm_list_tail { register long i; - SCM_VALIDATE_INT_MIN_COPY(2,k,0,i); + SCM_VALIDATE_INUM_MIN_COPY(2,k,0,i); while (i-- > 0) { SCM_VALIDATE_CONS(1,lst); lst = SCM_CDR(lst); @@ -393,7 +393,7 @@ GUILE_PROC(scm_list_cdr_set_x, "list-cdr-set!", 3, 0, 0, #define FUNC_NAME s_scm_list_cdr_set_x { register long i; - SCM_VALIDATE_INT_MIN_COPY(2,k,0,i); + SCM_VALIDATE_INUM_MIN_COPY(2,k,0,i); while (i-- > 0) { SCM_ASRTGO(SCM_CONSP(lst), erout); lst = SCM_CDR(lst); @@ -420,7 +420,7 @@ return it.") SCM * pos; register long i; - SCM_VALIDATE_INT_MIN_COPY(2,k,0,i); + SCM_VALIDATE_INUM_MIN_COPY(2,k,0,i); answer = SCM_EOL; pos = &answer; while (i-- > 0) |