From db180f39b7a709e51edd26a907ee0869ed2628e4 Mon Sep 17 00:00:00 2001
From: ross <unknown>
Date: Mon, 22 Sep 2003 11:11:54 +0000
Subject: [PATCH] [project @ 2003-09-22 11:11:54 by ross] cosmetic: move
 comments inside #ifdefs to avoid confusing people (like
 Hugs users) who look at the preprocessed output.

---
 Control/Concurrent.hs |    7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/Control/Concurrent.hs b/Control/Concurrent.hs
index 9b98930..c0352df 100644
--- a/Control/Concurrent.hs
+++ b/Control/Concurrent.hs
@@ -62,9 +62,9 @@ module Control.Concurrent (
 #endif
 	-- $merge
 
+#ifdef __GLASGOW_HASKELL__
 	-- * Bound Threads
 	-- $boundthreads
-#ifdef __GLASGOW_HASKELL__
 	rtsSupportsBoundThreads,
 	forkOS,
 	isCurrentThreadBound,
@@ -307,6 +307,7 @@ nmergeIO lss
     mapIO f xs = sequence (map f xs)
 #endif /* __HUGS__ */
 
+#ifdef __GLASGOW_HASKELL__
 -- ---------------------------------------------------------------------------
 -- Bound Threads
 
@@ -345,8 +346,6 @@ libraries (OpenGL, for example) will not work from a thread created using
 from @main@ or from a @foreign export@.
 -}
 
-#ifdef __GLASGOW_HASKELL__
-
 -- | 'True' if bound threads are supported.
 -- If @rtsSupportsBoundThreads@ is 'False', 'isCurrentThreadBound'
 -- will always return 'False' and both 'forkOS' and 'runInBoundThread' will
@@ -456,7 +455,7 @@ runInUnboundThread action = do
 			Right result -> return result
 		else action
 	
-#endif
+#endif /* __GLASGOW_HASKELL__ */
 
 -- ---------------------------------------------------------------------------
 -- More docs
-- 
1.7.10.4