diff options
author | Gary Houston <ghouston@arglist.com> | 1999-07-04 11:50:54 +0000 |
---|---|---|
committer | Gary Houston <ghouston@arglist.com> | 1999-07-04 11:50:54 +0000 |
commit | 283a1a0e774770476d51aa47c6ee050f42d03957 (patch) | |
tree | 4b4e869bc6ec6c9aa327b5d932745648ad6350e1 /libguile/unif.c | |
parent | 6c9514275ba36bfdeb3aefae16f10bc8b462f19e (diff) | |
download | guile-283a1a0e774770476d51aa47c6ee050f42d03957.tar.gz |
1999-07-04 Gary Houston <ghouston@easynet.co.uk>
* unif.c (scm_uniform_array_write): likewise.
* ioext.c (scm_redirect_port): likewise.
* ports.c (scm_putc): call scm_read_flush.
(scm_puts): likewise.
(scm_lfwrite): likewise.
(scm_lseek): likewise.
(scm_ftruncate): likewise.
* ports.c (scm_fill_buffer): don't take pt argument. change callers.
(read_flush_void_port): new proc, for void port ptob.
* vports.c (sf_read_flush): likewise.
* strports.c (st_read_flush): take offset arg.
* fports.c (local_read_flush): use offset, don't reset putback
buffer here.
* ports.h (scm_ptobfuns): let read_flush take an offset argument,
which is the number of chars from the putback buffer.
* ports.c (scm_read_flush): new procedure, resets the putback
buffer before calling the ptob routine.
Diffstat (limited to 'libguile/unif.c')
-rw-r--r-- | libguile/unif.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/unif.c b/libguile/unif.c index 210a228ae..5889405a7 100644 --- a/libguile/unif.c +++ b/libguile/unif.c @@ -1564,7 +1564,7 @@ loop: } else { - int ch = scm_fill_buffer (port_or_fd, pt); + int ch = scm_fill_buffer (port_or_fd); if (ch == EOF) { @@ -1704,7 +1704,7 @@ loop: ans = cend - offset; if (pt->rw_active == SCM_PORT_READ) - ptob->read_flush (port_or_fd); + scm_read_flush (port_or_fd); while (remaining > 0) { |