diff options
Diffstat (limited to 'libguile/bytevectors.c')
-rw-r--r-- | libguile/bytevectors.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/libguile/bytevectors.c b/libguile/bytevectors.c index 31703bf2e..30adbff57 100644 --- a/libguile/bytevectors.c +++ b/libguile/bytevectors.c @@ -482,6 +482,8 @@ SCM_DEFINE (scm_make_bytevector, "make-bytevector", 1, 1, 0, for (i = 0; i < c_len; i++) contents[i] = c_fill; } + else + memset (SCM_BYTEVECTOR_CONTENTS (bv), 0, c_len); return bv; } |