summaryrefslogtreecommitdiff
path: root/libguile/srfi-4.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2004-11-02 22:46:26 +0000
committerMarius Vollmer <mvo@zagadka.de>2004-11-02 22:46:26 +0000
commit28d4aef1f0f3eff96d690077007c9bfc448de69a (patch)
tree9a09a3cc24f16c09fe5c1cba73bead2a0b5a6a32 /libguile/srfi-4.c
parenta95ba079dc682f352349efc947e8daf0b220dd7f (diff)
downloadguile-28d4aef1f0f3eff96d690077007c9bfc448de69a.tar.gz
(uvec_fast_ref): Avoid a compiler warning by returning
SCM_BOOL_F if no type matches.
Diffstat (limited to 'libguile/srfi-4.c')
-rw-r--r--libguile/srfi-4.c2
1 files changed, 2 insertions, 0 deletions
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