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