From 882d0c002a1cce7a775705ff2504656867cd4f8a Mon Sep 17 00:00:00 2001
From: Adam Sampson <ats@offog.org>
Date: Tue, 11 Mar 2008 17:43:54 +0000
Subject: [PATCH] Remove debugging code.

---
 backends/GenerateC.hs | 1 -
 1 file changed, 1 deletion(-)

diff --git a/backends/GenerateC.hs b/backends/GenerateC.hs
index 41d69a3..b4fc8c3 100644
--- a/backends/GenerateC.hs
+++ b/backends/GenerateC.hs
@@ -155,7 +155,6 @@ cgenTopLevel s
           sequence_ $ map (call genForwardDeclaration)
                           (listify (const True :: A.Specification -> Bool) s)
 
-          tell ["/* ", show $ csParProcs cs, " */\n"]
           sequence_ [do tell ["extern int " ++ nameString n ++ "_wrapper_stack_size;\n"]
                         cgenProcWrapper n
                      | n <- tlpName : (Set.toList $ csParProcs cs)]