[Guile-commits] 01/01: put-bytevector: Allow start == bytevector length.

[Mark H. Weaver]

mhw pushed a commit to branch stable-2.0
in repository guile.

commit 72d80a1ea39455fb0e2b005be53bd83f7ce61f16
Author: Mark H Weaver <address@hidden>
Date:   Mon Jul 31 12:24:11 2017 -0400

    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.
---
 libguile/r6rs-ports.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libguile/r6rs-ports.c b/libguile/r6rs-ports.c
index 5d283d2..f6742a1 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;