From e79ccf1b460a01efafc25bbf82e9fe5a4cf8c22e Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Thu, 27 Nov 2008 09:24:31 +0000
Subject: [PATCH] Fixed it so that names beginning with an upper-case letter
 are prefixed by an underscore in the CHP backend

---
 backends/GenerateCHP.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/backends/GenerateCHP.hs b/backends/GenerateCHP.hs
index a56d234..350afbf 100644
--- a/backends/GenerateCHP.hs
+++ b/backends/GenerateCHP.hs
@@ -88,7 +88,12 @@ withIndent :: CGen () -> CGen ()
 withIndent f = pushIndent >> f >> popIndent
 
 genName :: A.Name -> CGen ()
-genName n = tell [[if c == '.' then '_' else c | c <- A.nameName n]]
+genName n = let unders = [if c == '.' then '_' else c | c <- A.nameName n] in
+  -- Prefix underscore to anything beginning with upper-case:
+  if isUpper (head unders)
+    then tell ["_",unders]
+    else tell [unders]
+
 
 genMissing = flip genMissing' ()