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

this by using SCM_ARG2 instead of `2' in the SCM_VALIDATE_CONS
macro call.

diff --git a/libguile/alist.c b/libguile/alist.c
index cb4ec62..541a349 100644 (file)
--- a/libguile/alist.c
+++ b/libguile/alist.c
@@ -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)) 
     {
       SCM tmp = SCM_CAR(alist);
-      SCM_VALIDATE_CONS(2, tmp);
+      SCM_VALIDATE_CONS(SCM_ARG2, tmp);
       if (SCM_CAR(tmp) == key) 
        return tmp;
     }
@@ -168,7 +168,7 @@ SCM_DEFINE (scm_assv, "assv", 2, 0, 0,
   for(; SCM_CONSP(alist); alist = SCM_CDR(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))
        return tmp;
     }
@@ -186,7 +186,7 @@ SCM_DEFINE (scm_assoc, "assoc", 2, 0, 0,
   for(; SCM_CONSP(alist); alist = SCM_CDR(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)) 
        return tmp;
     }