From 508e4a55df353ec50f005307eb98557c7da79c82 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Thu, 23 Feb 2012 14:20:48 +0100
Subject: [PATCH] remove atfork on revealed mutex in fports.c

* libguile/fports.c: Remove atfork call.
---
 libguile/fports.c | 1 -
 1 file changed, 1 deletion(-)

diff --git a/libguile/fports.c b/libguile/fports.c
index 9fcfbcb1f..2dc23758f 100644
--- a/libguile/fports.c
+++ b/libguile/fports.c
@@ -642,7 +642,6 @@ fport_input_waiting (SCM port)
 
 static SCM revealed_ports = SCM_EOL;
 static scm_i_pthread_mutex_t revealed_lock = SCM_I_PTHREAD_MUTEX_INITIALIZER;
-SCM_PTHREAD_ATFORK_LOCK_STATIC_MUTEX (revealed_lock);
 
 /* Find a port in the table and return its revealed count.
    Also used by the garbage collector.