From ff51de66bd212ded421a7a118a4f55ad2006f918 Mon Sep 17 00:00:00 2001
From: Mark H Weaver <mhw@netris.org>
Date: Wed, 9 Mar 2016 02:58:59 -0500
Subject: [PATCH] unget-bytevector: Allow start == length when count is not
 given.

* libguile/r6rs-ports.c (scm_unget_bytevector): Allow 'start' to be
  equal to the bytevector length when the 'count' optional argument is
  not passed.
---
 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 1bf766c58..bd8a1c4a3 100644
--- a/libguile/r6rs-ports.c
+++ b/libguile/r6rs-ports.c
@@ -843,7 +843,7 @@ SCM_DEFINE (scm_unget_bytevector, "unget-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;