[project @ 1996-03-21 12:46:33 by partain]

[ghc-hetmet.git] / ghc / compiler / parser / printtree.c

diff --git a/ghc/compiler/parser/printtree.c b/ghc/compiler/parser/printtree.c
index a5056ef..45c89be 100644 (file)
--- a/ghc/compiler/parser/printtree.c
+++ b/ghc/compiler/parser/printtree.c
@@ -500,7 +500,7 @@ prbind(b)
                          PUTTAG('e');
                          printf("#%lu\t",gibindline(b));
                          pid(gibindfile(b));
-                         pid(gibindmod(b));
+                         pid(gibindimod(b));
                          /* plist(pentid,giebindexp(b)); ??? */
                          /* prbind(giebinddef(b)); ???? */
                          break;
@@ -661,12 +661,12 @@ ppragma(p)
                                break;
 
       case iinst_simpl_pragma: PUTTAGSTR("Pis");
-                               pid(gprag_imod_simpl(p));
-                               ppragma(gprag_dfun_simpl(p));
+/*                             pid(gprag_imod_simpl(p));
+*/                             ppragma(gprag_dfun_simpl(p));
                                break;
       case iinst_const_pragma: PUTTAGSTR("Pic");
-                               pid(gprag_imod_const(p));
-                               ppragma(gprag_dfun_const(p));
+/*                             pid(gprag_imod_const(p));
+*/                             ppragma(gprag_dfun_const(p));
                                plist(ppragma, gprag_constms(p));
                                break;