diff options
author | Gary Houston <ghouston@arglist.com> | 1999-07-14 13:55:01 +0000 |
---|---|---|
committer | Gary Houston <ghouston@arglist.com> | 1999-07-14 13:55:01 +0000 |
commit | 5c070ca7fdce71d333a4d8ac0c504a77d4feaa89 (patch) | |
tree | d6535b59db9622f8661d00c5c6166ed2e3acf6be /libguile/unif.c | |
parent | 3fe6190f46da0ac53fc7f4af860789cb33bd642e (diff) | |
download | guile-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.c | 7 |
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--; } } |