/* -----------------------------------------------------------------------------
- * $Id: Signals.c,v 1.13 2000/02/22 12:09:23 simonmar Exp $
+ * $Id: Signals.c,v 1.14 2000/02/29 14:38:19 simonmar Exp $
*
* (c) The GHC Team, 1998-1999
*
} else
#endif
- shutdownHaskellAndExit(EXIT_INTERRUPTED);
+ interruptStgRts();
}
/*