mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00
Code Activity

(check_args): Bugfix to change from 2005-01-02: ARGV is the vector to

Browse source 
check, not ARGS.
This commit is contained in:
Marius Vollmer 2005-01-10 01:50:29 +00:00
parent 74c58fce0f
commit 3a0cf65611
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
srfi/srfi-1.c
View file

@ -535,7 +535,7 @@ check_map_args (SCM argv,
for (i = SCM_SIMPLE_VECTOR_LENGTH (argv) - 1; i >= 1; i--) for (i = SCM_SIMPLE_VECTOR_LENGTH (argv) - 1; i >= 1; i--)
{ {
SCM elt = SCM_SIMPLE_VECTOR_REF (args, i); SCM elt = SCM_SIMPLE_VECTOR_REF (argv, i);
long elt_len; long elt_len;
if (!(SCM_NULLP (elt) || SCM_CONSP (elt))) if (!(SCM_NULLP (elt) || SCM_CONSP (elt)))