From: sof <unknown>
Date: Thu, 5 Jun 1997 20:41:37 +0000 (+0000)
Subject: [project @ 1997-06-05 20:41:37 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~389
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=236fe8ff08307884d2da83b1d910c139dad41bab;p=ghc-hetmet.git

[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
--- 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	        :