/* ----------------------------------------------------------------------------
- * $Id: RtsAPI.h,v 1.6 1999/07/03 18:39:41 sof Exp $
+ * $Id: RtsAPI.h,v 1.8 1999/11/02 15:05:52 simonmar Exp $
*
* (c) The GHC Team, 1998-1999
*
#ifndef RTSAPI_H
#define RTSAPI_H
-#include "SchedAPI.h" /* for SchedulerStatus */
-
+/*
+ * Running the scheduler
+ */
+typedef enum {
+ NoStatus, /* not finished yet */
+ Success,
+ Killed, /* another thread killed us */
+ Interrupted, /* stopped in response to a call to interruptStgRts */
+ Deadlock,
+ AllBlocked, /* subtly different from Deadlock */
+} SchedulerStatus;
+
typedef StgClosure *HaskellObj;
/* ----------------------------------------------------------------------------