From 0d4adcb412e7857dfbf987038caad30a6f3f832d Mon Sep 17 00:00:00 2001
From: andy <unknown>
Date: Tue, 9 Nov 1999 00:41:19 +0000
Subject: [PATCH] [project @ 1999-11-09 00:41:19 by andy] Debugging wibble.

---
 ghc/interpreter/output.c |   11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/ghc/interpreter/output.c b/ghc/interpreter/output.c
index 9c7cf65..af88c66 100644
--- a/ghc/interpreter/output.c
+++ b/ghc/interpreter/output.c
@@ -10,8 +10,8 @@
  * included in the distribution.
  *
  * $RCSfile: output.c,v $
- * $Revision: 1.9 $
- * $Date: 1999/10/28 22:37:27 $
+ * $Revision: 1.10 $
+ * $Date: 1999/11/09 00:41:19 $
  * ------------------------------------------------------------------------*/
 
 #include "prelude.h"
@@ -51,6 +51,7 @@ static Void local putApType      Args((Type,Int,Int));
 static Void local putKind        Args((Kind));
 static Void local putKinds       Args((Kinds));
 
+
 /* --------------------------------------------------------------------------
  * Basic output routines:
  * ------------------------------------------------------------------------*/
@@ -920,6 +921,12 @@ Kinds ks; {
  * Main drivers:
  * ------------------------------------------------------------------------*/
 
+extern FILE *mystdout Args((Void));
+FILE *mystdout() {
+  /* We use this from the gdb command line when debugging */
+  return stdout;
+}
+
 Void printExp(fp,e)                     /* print expr on specified stream  */
 FILE *fp;
 Cell e; {
-- 
1.7.10.4