[project @ 1997-12-17 11:21:44 by simonm]

[ghc-hetmet.git] / ghc / runtime / hooks / ErrorHdr.lc

diff --git a/ghc/runtime/hooks/ErrorHdr.lc b/ghc/runtime/hooks/ErrorHdr.lc
index 87435f9..3c04fec 100644 (file)
--- a/ghc/runtime/hooks/ErrorHdr.lc
+++ b/ghc/runtime/hooks/ErrorHdr.lc
@@ -2,9 +2,10 @@
 #include "rtsdefs.h"
 
 void
-ErrorHdrHook (where)
-  FILE *where;
+ErrorHdrHook (FILE *where)
 {
+    fflush( stdout );                  /* Flush out any pending output */
+
     fprintf(where, "\nFail: ");
 }
 \end{code}