1 /* -----------------------------------------------------------------------------
2 * $Id: NoRunnableThreads.c,v 1.4 2002/07/18 06:05:31 sof Exp $
4 * User-overridable RTS hooks.
6 * ---------------------------------------------------------------------------*/
14 Hook to invoke when there's nothing left on the runnable threads
15 queue {\em and} we've got nothing to wait for. The value
16 returned is the exit code to report back.
18 NOTE: This hook is really CONCURRENT specific, but we include
19 it in the way-independent libHSclib.a.
23 NoRunnableThreadsHook (void)
26 fprintf(stderr, "No runnable threads!\n");