From 28d4aef1f0f3eff96d690077007c9bfc448de69a Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Tue, 2 Nov 2004 22:46:26 +0000 Subject: [PATCH] (uvec_fast_ref): Avoid a compiler warning by returning SCM_BOOL_F if no type matches. --- libguile/srfi-4.c | 2 ++ 1 file changed, 2 insertions(+) diff --git a/libguile/srfi-4.c b/libguile/srfi-4.c index eb1cbe5c6..28e5e7120 100644 --- a/libguile/srfi-4.c +++ b/libguile/srfi-4.c @@ -282,6 +282,8 @@ uvec_fast_ref (int type, void *base, size_t c_idx) else if (type == SCM_UVEC_C64) return scm_c_make_rectangular (((double*)base)[2*c_idx], ((double*)base)[2*c_idx+1]); + else + return SCM_BOOL_F; } static SCM_C_INLINE void