mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 04:40:29 +02:00
Code Activity

(s_scm_u32vector_set_x): fix typo in SCM_ASSERT_RANGE call.

Browse source
This commit is contained in:
Rob Browning 2004-08-29 23:01:19 +00:00
parent 748ceca596
commit e01ebf2451
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
srfi/srfi-4.c
View file

@ -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;