summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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