From b2e64b4cdde3bc9d3616b29d7662da851d0ef1c2 Mon Sep 17 00:00:00 2001
From: Rob Browning <rlb@defaultvalue.org>
Date: Sat, 11 Oct 2003 21:37:03 +0000
Subject: [PATCH] (s_scm_append): add patch from Kevin Ryde to track argnum in
 error messages.

---
 libguile/list.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/libguile/list.c b/libguile/list.c
index 4ecf1e208..a22044e62 100644
--- a/libguile/list.c
+++ b/libguile/list.c
@@ -260,6 +260,7 @@ SCM_DEFINE (scm_append, "append", 0, 0, 1,
     SCM res = SCM_EOL;
     SCM *lloc = &res;
     SCM arg = SCM_CAR (args);
+    int argnum = 1;
     args = SCM_CDR (args);
     while (!SCM_NULLP (args)) {
       while (SCM_CONSP (arg)) {
@@ -267,9 +268,10 @@ SCM_DEFINE (scm_append, "append", 0, 0, 1,
 	lloc = SCM_CDRLOC (*lloc);
 	arg = SCM_CDR (arg);
       }
-      SCM_VALIDATE_NULL (SCM_ARGn, arg);
+      SCM_VALIDATE_NULL (argnum, arg);
       arg = SCM_CAR (args);
       args = SCM_CDR (args);
+      argnum++;
     };
     *lloc = arg;
     return res;