[project @ 1999-11-22 11:46:25 by sewardj]

Add comment about Hugs (non-)compliance.

diff --git a/ghc/lib/std/System.lhs b/ghc/lib/std/System.lhs
index a5d6a51..d3ad1af 100644 (file)
--- a/ghc/lib/std/System.lhs
+++ b/ghc/lib/std/System.lhs
@@ -214,6 +214,9 @@ fromExitCode                :: ExitCode -> Int
 fromExitCode ExitSuccess     = 0
 fromExitCode (ExitFailure n) = n
 
+-- Note. exitWith is supposed to flush and close all open or 
+-- semi-open handles.  The code below doesn't do that -- 
+-- we'd have to keep a list of them somewhere.
 exitWith :: ExitCode -> IO a
 exitWith c
    = do nh_exitwith (fromExitCode c)