From c9e150bab76af44addd99799ac8dbf4d50088762 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Sun, 20 Jun 2010 00:11:07 +0100
Subject: [PATCH] fix PL_cleanup_fork (avoid two definitions).

---
 library/yap2swi/yap2swi.c   | 7 -------
 packages/PLStream/pl-file.c | 2 +-
 2 files changed, 1 insertion(+), 8 deletions(-)

diff --git a/library/yap2swi/yap2swi.c b/library/yap2swi/yap2swi.c
index 796982e14..f70f2ee86 100755
--- a/library/yap2swi/yap2swi.c
+++ b/library/yap2swi/yap2swi.c
@@ -2888,13 +2888,6 @@ PL_foreign_context_address(control_t ctx)
   }
 }
 
-X_API void 
-PL_cleanup_fork(void)
-{
-  Yap_CloseStreams(FALSE);
-}
-
-
 static int
 SWI_ctime(void)
 {
diff --git a/packages/PLStream/pl-file.c b/packages/PLStream/pl-file.c
index 637ee31a7..ccf36ba82 100755
--- a/packages/PLStream/pl-file.c
+++ b/packages/PLStream/pl-file.c
@@ -868,7 +868,7 @@ in use by Prolog. This can't work as   the  table is guarded by a mutex.
 Now we use the FD_CLOEXEC flag in Snew();
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
 
-void
+X_API void
 PL_cleanup_fork(void)
 { stopItimer();
 }