~ chicken-core (chicken-5) 0f65f998e9af551be9201594651794263f582666

commit 0f65f998e9af551be9201594651794263f582666
Author:     megane <meganeka@gmail.com>
AuthorDate: Wed Jul 17 19:43:51 2019 +0300
Commit:     Kooda <kooda@upyum.com>
CommitDate: Thu Jul 25 16:16:07 2019 +0200

    Fix C_u_i_s32vector_ref
    
    Signed-off-by: Kooda <kooda@upyum.com>

diff --git a/chicken.h b/chicken.h
index 88bf4ab3..376f5dd2 100644
--- a/chicken.h
+++ b/chicken.h
@@ -1421,7 +1421,7 @@ typedef void (C_ccall *C_proc)(C_word, C_word *) C_noret;
 
 /* these assume fixnum mode */
 #define C_u_i_u32vector_ref(x, i)       C_fix(((C_u32 *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ])
-#define C_u_i_s32vector_ref(x, i)       C_fix(((C_u32 *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ])
+#define C_u_i_s32vector_ref(x, i)       C_fix(((C_s32 *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ])
 
 #define C_a_u_i_u32vector_ref(ptr, c, x, i)  C_unsigned_int_to_num(ptr, ((C_u32 *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ])
 #define C_a_u_i_s32vector_ref(ptr, c, x, i)  C_int_to_num(ptr, ((C_s32 *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ])