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/ioext.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/ioext.c')
-rw-r--r-- | libguile/ioext.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/ioext.c b/libguile/ioext.c index f282d94cb..08229765a 100644 --- a/libguile/ioext.c +++ b/libguile/ioext.c @@ -198,7 +198,7 @@ scm_do_read_line (SCM port, int *len_p) /* Get more characters. I think having fill_buffer return a character is not terribly graceful... */ - c = scm_fill_buffer (port, pt); + c = scm_fill_buffer (port); if (c == EOF) { /* If we're missing a final newline in the file, return @@ -360,7 +360,7 @@ scm_redirect_port (old, new) if (pt->rw_active == SCM_PORT_WRITE) ptob->fflush (new); else if (pt->rw_active == SCM_PORT_READ) - ptob->read_flush (new); + scm_read_flush (new); ans = dup2 (oldfd, newfd); if (ans == -1) scm_syserror (s_redirect_port); |