X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FSignals.c;h=0b9f3a99e85c347012a8af7867956cec7aed6068;hb=afb300f543ff11b13f07fa620df7ef8b07512c79;hp=36f223b6be9c9798c205e857685ce0bc5ab2bb3a;hpb=b310c854fc771255ffc8bb57a3a76e8ce856ab7f;p=ghc-hetmet.git

diff --git a/ghc/rts/Signals.c b/ghc/rts/Signals.c
index 36f223b..0b9f3a9 100644
--- a/ghc/rts/Signals.c
+++ b/ghc/rts/Signals.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Signals.c,v 1.13 2000/02/22 12:09:23 simonmar Exp $
+ * $Id: Signals.c,v 1.15 2000/03/15 15:31:36 simonmar Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -217,8 +217,9 @@ start_signal_handlers(void)
 
     next_pending_handler--;
 
-    createIOThread(RtsFlags.GcFlags.initialStkSize, 
-		   (StgClosure *) *next_pending_handler);
+    scheduleThread(
+       createIOThread(RtsFlags.GcFlags.initialStkSize, 
+		      (StgClosure *) *next_pending_handler));
   }
 
   unblockUserSignals();
@@ -263,7 +264,7 @@ shutdown_handler(int sig STG_UNUSED)
   } else
 #endif
 
-  shutdownHaskellAndExit(EXIT_INTERRUPTED);
+    interruptStgRts();
 }
 
 /*