mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

* alist.c: Do not report mismatch errors on some uses of `tmp' (do

Browse source 
this by using SCM_ARG2 instead of `2' in the SCM_VALIDATE_CONS
macro call.
This commit is contained in:
Greg J. Badros 2000-01-06 19:22:43 +00:00
parent 9179dcdd2e
commit 7e9f965801
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/alist.c
View file

@ -150,7 +150,7 @@ return the entire alist entry found (i.e. both the key and the value).")
for (; SCM_CONSP(alist); alist = SCM_CDR(alist)) for (; SCM_CONSP(alist); alist = SCM_CDR(alist))
{ {
SCM tmp = SCM_CAR(alist); SCM tmp = SCM_CAR(alist);
SCM_VALIDATE_CONS(2, tmp); SCM_VALIDATE_CONS(SCM_ARG2, tmp);
if (SCM_CAR(tmp) == key) if (SCM_CAR(tmp) == key)
return tmp; return tmp;
} }
@ -168,7 +168,7 @@ SCM_DEFINE (scm_assv, "assv", 2, 0, 0,
for(; SCM_CONSP(alist); alist = SCM_CDR(alist)) for(; SCM_CONSP(alist); alist = SCM_CDR(alist))
{ {
SCM tmp = SCM_CAR(alist); SCM tmp = SCM_CAR(alist);
SCM_VALIDATE_CONS(2, tmp); SCM_VALIDATE_CONS(SCM_ARG2, tmp);
if SCM_NFALSEP(scm_eqv_p(SCM_CAR(tmp), key)) if SCM_NFALSEP(scm_eqv_p(SCM_CAR(tmp), key))
return tmp; return tmp;
} }
@ -186,7 +186,7 @@ SCM_DEFINE (scm_assoc, "assoc", 2, 0, 0,
for(; SCM_CONSP(alist); alist = SCM_CDR(alist)) for(; SCM_CONSP(alist); alist = SCM_CDR(alist))
{ {
SCM tmp = SCM_CAR(alist); SCM tmp = SCM_CAR(alist);
SCM_VALIDATE_CONS(2, tmp); SCM_VALIDATE_CONS(SCM_ARG2, tmp);
if SCM_NFALSEP(scm_equal_p(SCM_CAR(tmp), key)) if SCM_NFALSEP(scm_equal_p(SCM_CAR(tmp), key))
return tmp; return tmp;
} }