From e01ebf24512b47b424d5cf654dd71969f5381d0b Mon Sep 17 00:00:00 2001 From: Rob Browning Date: Sun, 29 Aug 2004 23:01:19 +0000 Subject: [PATCH] (s_scm_u32vector_set_x): fix typo in SCM_ASSERT_RANGE call. --- srfi/srfi-4.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/srfi/srfi-4.c b/srfi/srfi-4.c index 755b741b9..d081c7b47 100644 --- a/srfi/srfi-4.c +++ b/srfi/srfi-4.c @@ -1141,7 +1141,7 @@ SCM_DEFINE (scm_u32vector_set_x, "u32vector-set!", 3, 0, 0, f = scm_num2ulong (value, 3, FUNC_NAME); #if SIZEOF_LONG > 4 - SCM_ASSERT_RANGE (2, fill, (f <= (int_u32) 0xFFFFFFFFUL)); + SCM_ASSERT_RANGE (2, value, (f <= (int_u32) 0xFFFFFFFFUL)); #endif ((int_u32 *) SCM_UVEC_BASE (uvec))[idx] = (int_u32) f;