From 236fe8ff08307884d2da83b1d910c139dad41bab Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 5 Jun 1997 20:41:37 +0000
Subject: [PATCH] [project @ 1997-06-05 20:41:37 by sof] updated to cope with
 pattern guards

---
 ghc/compiler/parser/printtree.c |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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