[project @ 1997-03-14 03:14:25 by sof]

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

diff --git a/ghc/runtime/hooks/PatErrorHdr.lc b/ghc/runtime/hooks/PatErrorHdr.lc
index 5e175a4..2382049 100644 (file)
--- a/ghc/runtime/hooks/PatErrorHdr.lc
+++ b/ghc/runtime/hooks/PatErrorHdr.lc
@@ -4,6 +4,8 @@
 void
 PatErrorHdrHook (FILE *where)
 {
+    fflush( stdout );                  /* Flush out any pending output */
+
     fprintf(where, "\nFail: ");
 }
 \end{code}