diff options
author | Andy Wingo <wingo@pobox.com> | 2016-05-13 10:58:19 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2016-05-13 10:58:19 +0200 |
commit | 9a9e0cceae8433ba45e2ab9b37c02dd3b3c71d9a (patch) | |
tree | a51c40f49793c3c984a13d758001fb72097dee45 /libguile/filesys.c | |
parent | 8af64975be43a5055e6a74e9eef89a9c9955af7d (diff) | |
download | guile-9a9e0cceae8433ba45e2ab9b37c02dd3b3c71d9a.tar.gz |
Make port buffering fields private
* libguile/ports-internal.h (enum scm_port_buffer_field)
(scm_t_port_internal): Make port buffering fields private.
* libguile/ports.h (scm_t_port): Adapt.
* libguile/filesys.c (set_element):
* libguile/ioext.c (scm_redirect_port):
* libguile/poll.c (scm_primitive_poll):
* libguile/ports.c:
* libguile/read.c (scm_i_scan_for_encoding):
* libguile/rw.c (scm_write_string_partial): Adapt users.
Diffstat (limited to 'libguile/filesys.c')
-rw-r--r-- | libguile/filesys.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/filesys.c b/libguile/filesys.c index 3264b29f9..35e15cba8 100644 --- a/libguile/filesys.c +++ b/libguile/filesys.c @@ -651,18 +651,18 @@ set_element (fd_set *set, SCM *ports_ready, SCM element, int pos) if (pos == SCM_ARG1) { /* check whether port has buffered input. */ - scm_t_port *pt = SCM_PTAB_ENTRY (element); + scm_t_port_internal *pti = SCM_PORT_GET_INTERNAL (element); - if (scm_port_buffer_can_take (pt->read_buf) > 0) + if (scm_port_buffer_can_take (pti->read_buf) > 0) use_buf = 1; } else if (pos == SCM_ARG2) { /* check whether port's output buffer has room. */ - scm_t_port *pt = SCM_PTAB_ENTRY (element); + scm_t_port_internal *pti = SCM_PORT_GET_INTERNAL (element); /* > 1 since writing the last byte in the buffer causes flush. */ - if (scm_port_buffer_can_put (pt->write_buf) > 1) + if (scm_port_buffer_can_put (pti->write_buf) > 1) use_buf = 1; } fd = use_buf ? -1 : SCM_FPORT_FDES (element); |