summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMark H Weaver <mhw@netris.org>2017-07-31 12:24:11 -0400
committerMark H Weaver <mhw@netris.org>2017-07-31 12:24:11 -0400
commit72d80a1ea39455fb0e2b005be53bd83f7ce61f16 (patch)
treef862b8836da72aa482d5546c09158a17448fa55f
parent73d9d1848850802f091ec9a8a69ba57c7e6702a0 (diff)
downloadguile-72d80a1ea39455fb0e2b005be53bd83f7ce61f16.tar.gz
put-bytevector: Allow start == bytevector length.
* libguile/r6rs-ports.c (scm_put_bytevector): When three arguments (port bv start) are provided, allow start to be equal to the length of the bytevector, resulting in a zero-length write.
-rw-r--r--libguile/r6rs-ports.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/r6rs-ports.c b/libguile/r6rs-ports.c
index 5d283d2cf..f6742a136 100644
--- a/libguile/r6rs-ports.c
+++ b/libguile/r6rs-ports.c
@@ -800,7 +800,7 @@ SCM_DEFINE (scm_put_bytevector, "put-bytevector", 2, 2, 0,
}
else
{
- if (SCM_UNLIKELY (c_start >= c_len))
+ if (SCM_UNLIKELY (c_start > c_len))
scm_out_of_range (FUNC_NAME, start);
else
c_count = c_len - c_start;