[project @ 1999-11-23 10:32:37 by sewardj]

Fix typo in exitWith.

diff --git a/ghc/lib/std/System.lhs b/ghc/lib/std/System.lhs
index ba31873..e62b7d4 100644 (file)
--- a/ghc/lib/std/System.lhs
+++ b/ghc/lib/std/System.lhs
@@ -217,7 +217,7 @@ fromExitCode (ExitFailure n) = n
 -- see comment in Prelude.hs near primRunIO_hugs_toplevel
 exitWith :: ExitCode -> IO a
 exitWith c
-   = do cleanup_action <- readIORef prelExitWithAction
+   = do cleanup_action <- readIORef prelCleanupAfterRunAction
         case cleanup_action of
            Just xx -> xx
            Nothing -> return ()