summaryrefslogtreecommitdiff
path: root/libguile/filesys.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2016-05-13 10:58:19 +0200
committerAndy Wingo <wingo@pobox.com>2016-05-13 10:58:19 +0200
commit9a9e0cceae8433ba45e2ab9b37c02dd3b3c71d9a (patch)
treea51c40f49793c3c984a13d758001fb72097dee45 /libguile/filesys.c
parent8af64975be43a5055e6a74e9eef89a9c9955af7d (diff)
downloadguile-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.c8
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);