unofficial mirror of guile-devel@gnu.org 
 help / color / mirror / Atom feed
From: Kevin Ryde <user42@zip.com.au>
Subject: append argnum for error
Date: Sat, 11 Oct 2003 08:23:58 +1000	[thread overview]
Message-ID: <87y8vs3f5t.fsf@zip.com.au> (raw)

[-- 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

             reply	other threads:[~2003-10-10 22:23 UTC|newest]

Thread overview: 2+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2003-10-10 22:23 Kevin Ryde [this message]
2003-10-11 21:35 ` append argnum for error Rob Browning

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.gnu.org/software/guile/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=87y8vs3f5t.fsf@zip.com.au \
    --to=user42@zip.com.au \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body. 
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).