diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-11-02 22:46:26 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-11-02 22:46:26 +0000 |
commit | 28d4aef1f0f3eff96d690077007c9bfc448de69a (patch) | |
tree | 9a09a3cc24f16c09fe5c1cba73bead2a0b5a6a32 /libguile/srfi-4.c | |
parent | a95ba079dc682f352349efc947e8daf0b220dd7f (diff) | |
download | guile-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.c | 2 |
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 |