From b86b70feced7d2be203be0738e1bab8d1e81a11e Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Wed, 9 Nov 2011 23:02:02 +0100
Subject: [PATCH] disable port locking

* libguile/ports.h (scm_c_lock_port, scm_c_try_lock_port)
  (scm_c_unlock_port): Disable port locking until I have time to sort
  out the bugs that are coming up.
---
 libguile/ports.h | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/libguile/ports.h b/libguile/ports.h
index 624b7b860..b6db482b2 100644
--- a/libguile/ports.h
+++ b/libguile/ports.h
@@ -385,7 +385,7 @@ SCM_INTERNAL void scm_init_ports (void);
 SCM_INLINE_IMPLEMENTATION int
 scm_c_lock_port (SCM port)
 {
-#if SCM_USE_PTHREAD_THREADS
+#if 0 && SCM_USE_PTHREAD_THREADS
   return scm_i_pthread_mutex_lock (&SCM_PTAB_ENTRY (port)->lock);
 #else
   return 0;
@@ -395,7 +395,7 @@ scm_c_lock_port (SCM port)
 SCM_INLINE_IMPLEMENTATION int
 scm_c_try_lock_port (SCM port)
 {
-#if SCM_USE_PTHREAD_THREADS
+#if 0 && SCM_USE_PTHREAD_THREADS
   return scm_i_pthread_mutex_trylock (&SCM_PTAB_ENTRY (port)->lock);
 #else
   return 0;
@@ -405,7 +405,7 @@ scm_c_try_lock_port (SCM port)
 SCM_INLINE_IMPLEMENTATION int
 scm_c_unlock_port (SCM port)
 {
-#if SCM_USE_PTHREAD_THREADS
+#if 0 && SCM_USE_PTHREAD_THREADS
   return scm_i_pthread_mutex_unlock (&SCM_PTAB_ENTRY (port)->lock);
 #else
   return 0;