diff options
author | Mark H Weaver <mhw@netris.org> | 2017-07-31 12:24:11 -0400 |
---|---|---|
committer | Mark H Weaver <mhw@netris.org> | 2017-07-31 12:24:11 -0400 |
commit | 72d80a1ea39455fb0e2b005be53bd83f7ce61f16 (patch) | |
tree | f862b8836da72aa482d5546c09158a17448fa55f | |
parent | 73d9d1848850802f091ec9a8a69ba57c7e6702a0 (diff) | |
download | guile-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.c | 2 |
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; |