Commit cae7e8ce authored by simonmar's avatar simonmar
Browse files

[project @ 1999-07-14 13:38:27 by simonmar]

use shutdownHaskellAndExit().
parent 47a2e454
/* ----------------------------------------------------------------------------- /* -----------------------------------------------------------------------------
* $Id: Main.c,v 1.9 1999/07/06 15:05:49 sof Exp $ * $Id: Main.c,v 1.10 1999/07/14 13:38:27 simonmar Exp $
* *
* (c) The GHC Team 1998-1999 * (c) The GHC Team 1998-1999
* *
...@@ -77,8 +77,7 @@ int main(int argc, char *argv[]) ...@@ -77,8 +77,7 @@ int main(int argc, char *argv[])
case Interrupted: case Interrupted:
/* carry on */ /* carry on */
} }
shutdownHaskell(); shutdownHaskellAndExit(EXIT_SUCCESS);
stg_exit(EXIT_SUCCESS);
} }
# endif /* BATCH_MODE */ # endif /* BATCH_MODE */
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment