From 79fc30416b4f7976cd0a0f9558cd0875cd024c1f Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Wed, 24 Sep 1997 00:58:27 +0000
Subject: [PATCH] [project @ 1997-09-24 00:58:27 by sof] Enable fork# with
 __CONCURRENT_HASKELL__

---
 ghc/lib/ghc/ConcBase.lhs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/ghc/lib/ghc/ConcBase.lhs b/ghc/lib/ghc/ConcBase.lhs
index 5763723be466..20d0346745ff 100644
--- a/ghc/lib/ghc/ConcBase.lhs
+++ b/ghc/lib/ghc/ConcBase.lhs
@@ -69,11 +69,16 @@ par, fork :: Eval a => a -> b -> b
 
 #if defined(__PARALLEL_HASKELL__) || defined (__GRANSIM__)
 par  x y = case (par#  x) of { 0# -> parError; _ -> y }
-fork x y = case (fork# x) of { 0# -> parError; _ -> y }
 #else
 par  x y = y
+#endif
+
+#if defined(__CONCURRENT_HASKELL__) || defined (__GRANSIM__)
+fork x y = case (fork# x) of { 0# -> parError; _ -> y }
+#else
 fork x y = y
 #endif
+
 \end{code}
 
 %************************************************************************
-- 
GitLab