[project @ 1997-03-17 20:34:25 by simonpj]

[ghc-hetmet.git] / ghc / runtime / prims / PrimMisc.lc

diff --git a/ghc/runtime/prims/PrimMisc.lc b/ghc/runtime/prims/PrimMisc.lc
index 953ed15..021e0aa 100644 (file)
--- a/ghc/runtime/prims/PrimMisc.lc
+++ b/ghc/runtime/prims/PrimMisc.lc
@@ -43,6 +43,8 @@ stg_exit (n) /* can't call regular "exit" from Haskell
                because it has no return value */
   I_ n;
 {
+    /* Storage manager shutdown */
+    shutdownHaskell();
     EXIT(n);
     return(0); /* GCC warning food */
 }