summaryrefslogtreecommitdiff
path: root/libguile/unif.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/unif.c')
-rw-r--r--libguile/unif.c7
1 files changed, 1 insertions, 6 deletions
diff --git a/libguile/unif.c b/libguile/unif.c
index 4619d7cf5..83206f860 100644
--- a/libguile/unif.c
+++ b/libguile/unif.c
@@ -1564,9 +1564,7 @@ loop:
}
else
{
- int ch = scm_fill_buffer (port_or_fd);
-
- if (ch == EOF)
+ if (scm_fill_buffer (port_or_fd) == EOF)
{
if (remaining % sz != 0)
{
@@ -1577,9 +1575,6 @@ loop:
ans -= remaining / sz;
break;
}
-
- *dest++ = ch;
- remaining--;
}
}