X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Finterpreter%2Foutput.c;h=c4ed363e5270c617d4b0fc128661258b817bc119;hb=531d0d264fafd66aece5ca38d2bfcd266a8fd3e5;hp=ea6a585141ef7f229c66a578cc4fe0e92971ff8c;hpb=f88ac43f881583ec611edeafbb9e68419ba7ef4b;p=ghc-hetmet.git

diff --git a/ghc/interpreter/output.c b/ghc/interpreter/output.c
index ea6a585..c4ed363 100644
--- a/ghc/interpreter/output.c
+++ b/ghc/interpreter/output.c
@@ -10,11 +10,11 @@
  * included in the distribution.
  *
  * $RCSfile: output.c,v $
- * $Revision: 1.16 $
- * $Date: 2000/03/13 11:37:16 $
+ * $Revision: 1.18 $
+ * $Date: 2000/04/25 17:43:50 $
  * ------------------------------------------------------------------------*/
 
-#include "prelude.h"
+#include "hugsbasictypes.h"
 #include "storage.h"
 #include "connect.h"
 #include "errors.h"
@@ -188,6 +188,9 @@ Cell e; {
         case DOCOMP     : putStr("do {...}");
                           break;
 
+        case MDOCOMP    : putStr("do {...}");
+                          break;
+
         case COMP       : putComp(fst(snd(e)),snd(snd(e)));
                           break;