diff options
Diffstat (limited to 'libguile/rw.c')
-rw-r--r-- | libguile/rw.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/rw.c b/libguile/rw.c index b2f8f3a1d..b3d1f1614 100644 --- a/libguile/rw.c +++ b/libguile/rw.c @@ -242,7 +242,7 @@ SCM_DEFINE (scm_write_string_partial, "write-string/partial", 1, 3, 0, flush. */ if (write_len < scm_port_buffer_can_put (write_buf)) { - scm_c_write_unlocked (port, src, write_len); + scm_c_write (port, src, write_len); return scm_from_long (write_len); } |