From 3a0cf656110bf02a345dfc4fea463549e11ae6e6 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Mon, 10 Jan 2005 01:50:29 +0000 Subject: [PATCH] (check_args): Bugfix to change from 2005-01-02: ARGV is the vector to check, not ARGS. --- srfi/srfi-1.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/srfi/srfi-1.c b/srfi/srfi-1.c index 11a66f7c1..d6432bbd4 100644 --- a/srfi/srfi-1.c +++ b/srfi/srfi-1.c @@ -535,7 +535,7 @@ check_map_args (SCM argv, 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; if (!(SCM_NULLP (elt) || SCM_CONSP (elt)))