projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2000-12-20 15:58:35 by simonmar]
[ghc-hetmet.git]
/
ghc
/
interpreter
/
output.c
diff --git
a/ghc/interpreter/output.c
b/ghc/interpreter/output.c
index
ea6a585
..
c4ed363
100644
(file)
--- a/
ghc/interpreter/output.c
+++ b/
ghc/interpreter/output.c
@@
-10,11
+10,11
@@
* included in the distribution.
*
* $RCSfile: output.c,v $
* 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"
#include "storage.h"
#include "connect.h"
#include "errors.h"
@@
-188,6
+188,9
@@
Cell e; {
case DOCOMP : putStr("do {...}");
break;
case DOCOMP : putStr("do {...}");
break;
+ case MDOCOMP : putStr("do {...}");
+ break;
+
case COMP : putComp(fst(snd(e)),snd(snd(e)));
break;
case COMP : putComp(fst(snd(e)),snd(snd(e)));
break;