From: ross <unknown>
Date: Mon, 22 Sep 2003 11:11:54 +0000 (+0000)
Subject: [project @ 2003-09-22 11:11:54 by ross]
X-Git-Tag: nhc98-1-18-release~504
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=db180f39b7a709e51edd26a907ee0869ed2628e4;p=ghc-base.git

[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.
---

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