From ff7984c67c6ec048bd37b92d272aa74dbf19433c Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Sun, 5 Oct 1997 20:30:17 +0000
Subject: [PATCH] [project @ 1997-10-05 20:30:17 by sof] Removed CONCURRENT
 #ifdef protection; updated docs

---
 ghc/runtime/hooks/NoRunnableThrds.lc |   13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/ghc/runtime/hooks/NoRunnableThrds.lc b/ghc/runtime/hooks/NoRunnableThrds.lc
index c9b351c..4bb693e 100644
--- a/ghc/runtime/hooks/NoRunnableThrds.lc
+++ b/ghc/runtime/hooks/NoRunnableThrds.lc
@@ -1,14 +1,19 @@
 
+Hook to invoke when there's nothing left on the runnable threads
+queue {\em and} we've got nothing to wait for. The value
+returned is the exit code to report back. 
+
+NOTE: This hook is really CONCURRENT specific, but we include
+it in the way-independent libHSclib.a.
 
 \begin{code}
-#ifdef CONCURRENT /* the whole thing! */
 #include "rtsdefs.h"
 
-void
+int
 NoRunnableThreadsHook (void)
 {
+    fflush(stdout);
     fprintf(stderr, "No runnable threads!\n");
+    return(EXIT_FAILURE);
 }
-#endif /* CONCURRENT */
-
 \end{code}
-- 
1.7.10.4