X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2Fcmm%2FCmmLex.x;h=6ae52007bd6a73e9254ea7668c7b0aca8169e7dd;hb=8226f00b071ea156753324dc9f2967dabc3cc571;hp=cc477964fdae5a848945d74f34c96273e5ed924a;hpb=f8ec4ec53ba9377254af4c0c0d3787bbe1e27be3;p=ghc-hetmet.git

diff --git a/compiler/cmm/CmmLex.x b/compiler/cmm/CmmLex.x
index cc47796..6ae5200 100644
--- a/compiler/cmm/CmmLex.x
+++ b/compiler/cmm/CmmLex.x
@@ -46,7 +46,7 @@ $unismall  = \x04 -- Trick Alex into handling Unicode. See alexGetChar.
 $ascsmall  = [a-z \xdf-\xf6 \xf8-\xff]
 $small     = [$ascsmall $unismall \_]
 
-$namebegin = [$large $small \_ \. \$ \@]
+$namebegin = [$large $small \. \$ \@]
 $namechar  = [$namebegin $digit]
 
 @decimal     = $digit+