diff options
Diffstat (limited to 'libguile/rw.c')
-rw-r--r-- | libguile/rw.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/rw.c b/libguile/rw.c index 16dee5802..70bcd81a0 100644 --- a/libguile/rw.c +++ b/libguile/rw.c @@ -232,6 +232,7 @@ SCM_DEFINE (scm_write_string_partial, "write-string/partial", 1, 3, 0, SCM port = (SCM_UNBNDP (port_or_fdes)? scm_current_output_port () : port_or_fdes); SCM write_buf; + size_t end; SCM_VALIDATE_OPFPORT (2, port); SCM_VALIDATE_OUTPUT_PORT (2, port); @@ -239,7 +240,7 @@ SCM_DEFINE (scm_write_string_partial, "write-string/partial", 1, 3, 0, /* Filling the last character in the buffer would require a flush. */ - if (write_len < scm_port_buffer_can_put (write_buf)) + if (write_len < scm_port_buffer_can_put (write_buf, &end)) { scm_c_write (port, src, write_len); return scm_from_long (write_len); |