From 6001fa35c6ec8009472e040b9993f731a9b9a34b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Tue, 31 Mar 2015 21:26:17 +0200
Subject: [PATCH] Fix test in 'fport_write'.

Reported by Doug Evans <xdje42@gmail.com>
at <http://lists.gnu.org/archive/html/guile-devel/2015-03/msg00023.html>.

* libguile/fports.c (fport_write): Change SIZE to REMAINING in
  condition.  This doesn't have any observable effect.
---
 libguile/fports.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libguile/fports.c b/libguile/fports.c
index fdd34da1e..896380c5e 100644
--- a/libguile/fports.c
+++ b/libguile/fports.c
@@ -781,7 +781,7 @@ fport_write (SCM port, const void *data, size_t size)
 	  const void *ptr = ((const char *) data) + space;
 	  size_t remaining = size - space;
 
-	  if (size >= pt->write_buf_size)
+	  if (remaining >= pt->write_buf_size)
 	    {
 	      if (full_write (SCM_FPORT_FDES (port), ptr, remaining)
 		  < remaining)