diff options
-rw-r--r-- | libguile/ports.c | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/libguile/ports.c b/libguile/ports.c index 8405a0a2a..2062f588b 100644 --- a/libguile/ports.c +++ b/libguile/ports.c @@ -2383,11 +2383,8 @@ scm_end_input (SCM port) size_t discarded; pt = SCM_PTAB_ENTRY (port); - - scm_i_pthread_mutex_lock (pt->lock); buf = SCM_PTAB_ENTRY (port)->read_buf; discarded = scm_port_buffer_take (buf, NULL, (size_t) -1); - scm_i_pthread_mutex_unlock (pt->lock); if (discarded != 0) SCM_PORT_DESCRIPTOR (port)->seek (port, -discarded, SEEK_CUR); |