[project @ 2003-09-22 11:11:54 by ross]
[packages/random.git] / Control / Concurrent.hs
index 9b98930..c0352df 100644 (file)
@@ -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