From 1c6ab1d890a9560561319d7a8cfa923bd7e96a60 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Fri, 26 Feb 1999 16:46:50 +0000
Subject: [PATCH] [project @ 1999-02-26 16:46:50 by simonm] Back out
 accidental commits.

---
 ghc/rts/Main.c     |    4 +---
 ghc/rts/Schedule.c |   10 +---------
 2 files changed, 2 insertions(+), 12 deletions(-)

diff --git a/ghc/rts/Main.c b/ghc/rts/Main.c
index c286b98..9f2c9c1 100644
--- a/ghc/rts/Main.c
+++ b/ghc/rts/Main.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Main.c,v 1.4 1999/02/26 16:44:13 simonm Exp $
+ * $Id: Main.c,v 1.5 1999/02/26 16:46:50 simonm Exp $
  *
  * (c) The GHC Team 1998-1999
  *
@@ -68,8 +68,6 @@ int main(int argc, char *argv[])
     case Interrupted:
       /* carry on */
     }
-    /* run all threads */
-    run_all_threads();
     shutdownHaskell();
     stg_exit(EXIT_SUCCESS);
 }
diff --git a/ghc/rts/Schedule.c b/ghc/rts/Schedule.c
index ccb6b74..a5a2362 100644
--- a/ghc/rts/Schedule.c
+++ b/ghc/rts/Schedule.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Schedule.c,v 1.11 1999/02/26 16:44:13 simonm Exp $
+ * $Id: Schedule.c,v 1.12 1999/02/26 16:46:50 simonm Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -315,14 +315,6 @@ void initScheduler(void)
   enteredCAFs = END_CAF_LIST;
 }
 
-void 
-run_all_threads ( void )
-{
-  while (run_queue_hd != END_TSO_QUEUE) {
-    schedule(run_queue_hd, NULL);
-  }
-}
-
 /* -----------------------------------------------------------------------------
    Main scheduling loop.
 
-- 
1.7.10.4