[project @ 1997-06-05 20:41:37 by sof]

updated to cope with pattern guards

diff --git a/ghc/compiler/parser/printtree.c b/ghc/compiler/parser/printtree.c
index 2d840a4..b72b977 100644 (file)
--- a/ghc/compiler/parser/printtree.c
+++ b/ghc/compiler/parser/printtree.c
@@ -502,6 +502,7 @@ prbind(b)
                          /* pid(gibindfile(b)); */
                          pid(gibindimod(b));
                          printf("#%lu\t",gibindqual(b)); /* 1 -- qualified */
+                         printf("#%lu\t",gibindsource(b)); /* 1 -- from source */
                          pmaybe(pid, gibindas(b));
                          pmaybe(pconstr, gibindspec(b));
                          /* plist(pentid,giebindexp(b)); ??? */
@@ -692,7 +693,7 @@ ppbinding(p)
                          break;
        case pgdexp     : 
                          PUTTAG('&');
-                         ptree(gpguard(p));
+                         plist(ptree, gpguard(p)); /* Experimental: pattern guards */
                          ptree(gpexp(p));
                          break;
        default         :