From 76da80e7881947ebcdb647e5ce4be029fece29f2 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Mon, 24 Jan 2005 23:41:14 +0000 Subject: Reverted changed from 2005/01/24 19:14:54, which was a commit to the wrong branch. Sorry. --- libguile/ioext.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'libguile/ioext.c') diff --git a/libguile/ioext.c b/libguile/ioext.c index f49d697f3..22a2de57e 100644 --- a/libguile/ioext.c +++ b/libguile/ioext.c @@ -280,14 +280,14 @@ SCM_DEFINE (scm_fdes_to_ports, "fdes->ports", 1, 0, 0, int_fd = scm_to_int (fd); - scm_pthread_mutex_lock (&scm_i_port_table_mutex); + scm_mutex_lock (&scm_i_port_table_mutex); for (i = 0; i < scm_i_port_table_size; i++) { if (SCM_OPFPORTP (scm_i_port_table[i]->port) && ((scm_t_fport *) scm_i_port_table[i]->stream)->fdes == int_fd) result = scm_cons (scm_i_port_table[i]->port, result); } - pthread_mutex_unlock (&scm_i_port_table_mutex); + scm_mutex_unlock (&scm_i_port_table_mutex); return result; } #undef FUNC_NAME -- cgit v1.2.3