summaryrefslogtreecommitdiff
path: root/libguile/rw.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/rw.c')
-rw-r--r--libguile/rw.c3
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);