append argnum for error

append argnum for error

[Kevin Ryde]

[-- Attachment #1: Type: text/plain, Size: 72 bytes --]

        * list.c (scm_append): Track argument number and use in error.


[-- Attachment #2: list.c.append-argnum.diff --]
[-- Type: text/plain, Size: 612 bytes --]

--- list.c.~1.71.~	1970-01-01 10:00:01.000000000 +1000
+++ list.c	2003-10-09 14:58:27.000000000 +1000
@@ -231,6 +231,7 @@
     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)) {
@@ -238,9 +239,10 @@
 	lloc = SCM_CDRLOC (*lloc);
 	arg = SCM_CDR (arg);
       }
-      SCM_VALIDATE_NULL_OR_NIL (SCM_ARGn, arg);
+      SCM_VALIDATE_NULL_OR_NIL (argnum, arg);
       arg = SCM_CAR (args);
       args = SCM_CDR (args);
+      argnum++;
     };
     *lloc = arg;
     return res;

[-- Attachment #3: Type: text/plain, Size: 142 bytes --]

_______________________________________________
Guile-devel mailing list
Guile-devel@gnu.org
http://mail.gnu.org/mailman/listinfo/guile-devel

Re: append argnum for error

[Rob Browning]

Kevin Ryde <user42@zip.com.au> writes:

>         * list.c (scm_append): Track argument number and use in error.

Looks good.  I've added it to 1.6 too.

Thanks
-- 
Rob Browning
rlb @defaultvalue.org and @debian.org; previously @cs.utexas.edu
GPG starting 2002-11-03 = 14DD 432F AE39 534D B592  F9A0 25C8 D377 8C7E 73A4


_______________________________________________
Guile-devel mailing list
Guile-devel@gnu.org
http://mail.gnu.org/mailman/listinfo/guile-devel