mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 08:50:23 +02:00
Code Activity

(s_scm_append): add patch from Kevin Ryde to track argnum

Browse source 
in error messages.
This commit is contained in:
Rob Browning 2003-10-11 21:37:03 +00:00
parent 33b482982a
commit b2e64b4cdd
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/list.c
View file

@ -260,6 +260,7 @@ SCM_DEFINE (scm_append, "append", 0, 0, 1,
SCM res = SCM_EOL; SCM res = SCM_EOL;
SCM *lloc = &res; SCM *lloc = &res;
SCM arg = SCM_CAR (args); SCM arg = SCM_CAR (args);
int argnum = 1;
args = SCM_CDR (args); args = SCM_CDR (args);
while (!SCM_NULLP (args)) { while (!SCM_NULLP (args)) {
while (SCM_CONSP (arg)) { while (SCM_CONSP (arg)) {
@ -267,9 +268,10 @@ SCM_DEFINE (scm_append, "append", 0, 0, 1,
lloc = SCM_CDRLOC (*lloc); lloc = SCM_CDRLOC (*lloc);
arg = SCM_CDR (arg); arg = SCM_CDR (arg);
} }
SCM_VALIDATE_NULL (SCM_ARGn, arg); SCM_VALIDATE_NULL (argnum, arg);
arg = SCM_CAR (args); arg = SCM_CAR (args);
args = SCM_CDR (args); args = SCM_CDR (args);
argnum++;
}; };
*lloc = arg; *lloc = arg;
return res; return res;