summaryrefslogtreecommitdiff
path: root/libguile/unif.c
diff options
context:
space:
mode:
authorGary Houston <ghouston@arglist.com>1999-07-14 13:55:01 +0000
committerGary Houston <ghouston@arglist.com>1999-07-14 13:55:01 +0000
commit5c070ca7fdce71d333a4d8ac0c504a77d4feaa89 (patch)
treed6535b59db9622f8661d00c5c6166ed2e3acf6be /libguile/unif.c
parent3fe6190f46da0ac53fc7f4af860789cb33bd642e (diff)
downloadguile-5c070ca7fdce71d333a4d8ac0c504a77d4feaa89.tar.gz
1999-07-14 Gary Houston <ghouston@easynet.co.uk>
* unif.c (scm_uniform_array_read_x), ports.c (scm_getc): increment read_pos after scm_fill_buffer. * ioext.c (scm_do_read_line): simplify by ignoring the fill_buffer return char. * vports.c (sf_fill_buffer), strports.c (stfill_buffer), fports.c (fport_fill_buffer): implement the interface change. * ports.c (scm_fill_buffer): interface change: no longer increments read_pos past the character that's returned. it seems clearer to leave it to the caller to decide what to do (thanks Jim). * vports.c (sf_fill_buffer): put the read char into the buffer as well as returning it. * ports.c (scm_grow_port_cbuf): residue of this deleted procedure deleted.
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--;
}
}