diff options
| author | Andy Wingo <wingo@pobox.com> | 2014-02-07 14:43:42 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2014-02-07 14:43:42 +0100 |
| commit | 0dbc5e571aa3bdb73fd0b9b1631e502167c4325a (patch) | |
| tree | f0e462641e1503fdc1852b7c89be36fefbe829c6 /libguile/r6rs-ports.c | |
| parent | 7d484bfa15172982862b450db6a2a3620e95239d (diff) | |
| parent | 45a28515c13348dfd18e53038ad63dd091a5a3c1 (diff) | |
Merge commit '45a28515c13348dfd18e53038ad63dd091a5a3c1'
Diffstat (limited to 'libguile/r6rs-ports.c')
| -rw-r--r-- | libguile/r6rs-ports.c | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/libguile/r6rs-ports.c b/libguile/r6rs-ports.c index 6daa505f7..db0b3f6c3 100644 --- a/libguile/r6rs-ports.c +++ b/libguile/r6rs-ports.c @@ -387,9 +387,12 @@ cbip_fill_input (SCM port) (c_port->read_buf == (unsigned char *) SCM_BYTEVECTOR_CONTENTS (bv)); if (buffered) - /* Make sure the buffer isn't corrupt. BV can be passed directly - to READ_PROC. */ - assert (c_port->read_buf_size == SCM_BYTEVECTOR_LENGTH (bv)); + { + /* Make sure the buffer isn't corrupt. BV can be passed directly + to READ_PROC. */ + assert (c_port->read_buf_size == SCM_BYTEVECTOR_LENGTH (bv)); + c_port->read_pos = (unsigned char *) SCM_BYTEVECTOR_CONTENTS (bv); + } else { /* This is an unbuffered port. When called via the |