mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 16:50:21 +02:00
Code Activity

Fix test in 'fport_write'.

Browse source 
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.
This commit is contained in:
Ludovic Courtès 2015-03-31 21:26:17 +02:00
parent d574d96f87
commit 6001fa35c6
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/fports.c
View file

@ -781,7 +781,7 @@ fport_write (SCM port, const void *data, size_t size)
const void *ptr = ((const char *) data) + space; const void *ptr = ((const char *) data) + space;
size_t remaining = size - 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) if (full_write (SCM_FPORT_FDES (port), ptr, remaining)
< remaining) < remaining)