summaryrefslogtreecommitdiff
path: root/libguile/bytevectors.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/bytevectors.c')
-rw-r--r--libguile/bytevectors.c3
1 files changed, 3 insertions, 0 deletions
diff --git a/libguile/bytevectors.c b/libguile/bytevectors.c
index 6d9f6476d..6b14c7246 100644
--- a/libguile/bytevectors.c
+++ b/libguile/bytevectors.c
@@ -357,6 +357,9 @@ SCM_DEFINE (scm_bytevector_slice, "bytevector-slice", 2, 1, 0,
else
c_size = scm_to_size_t (size);
+ if (c_offset == 0 && c_size == SCM_BYTEVECTOR_LENGTH (bv))
+ return bv;
+
if (INT_ADD_OVERFLOW (c_offset, c_size)
|| (c_offset + c_size > SCM_BYTEVECTOR_LENGTH (bv)))
scm_out_of_range (FUNC_NAME, offset);