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/read.c | |
| parent | 8af64975be43a5055e6a74e9eef89a9c9955af7d (diff) | |
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/read.c')
| -rw-r--r-- | libguile/read.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/read.c b/libguile/read.c index a4183d9a6..ede8a613c 100644 --- a/libguile/read.c +++ b/libguile/read.c @@ -2057,7 +2057,7 @@ is_encoding_char (char c) char * scm_i_scan_for_encoding (SCM port) { - scm_t_port *pt; + scm_t_port_internal *pti; SCM buf; char header[SCM_ENCODING_SEARCH_SIZE+1]; size_t bytes_read, encoding_length, i; @@ -2065,10 +2065,10 @@ scm_i_scan_for_encoding (SCM port) char *pos, *encoding_start; int in_comment; - pt = SCM_PTAB_ENTRY (port); - buf = pt->read_buf; + pti = SCM_PORT_GET_INTERNAL (port); + buf = pti->read_buf; - if (pt->rw_random) + if (pti->rw_random) scm_flush (port); if (scm_port_buffer_can_take (buf) == 0) |