summaryrefslogtreecommitdiff
path: root/libguile/unif.c
diff options
context:
space:
mode:
authorGary Houston <ghouston@arglist.com>1999-07-04 11:50:54 +0000
committerGary Houston <ghouston@arglist.com>1999-07-04 11:50:54 +0000
commit283a1a0e774770476d51aa47c6ee050f42d03957 (patch)
tree4b4e869bc6ec6c9aa327b5d932745648ad6350e1 /libguile/unif.c
parent6c9514275ba36bfdeb3aefae16f10bc8b462f19e (diff)
downloadguile-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.c4
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)
{