Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix parsing of 'if': identifiers can also contain underscores
authorsheepluva
Sat, 01 Sep 2012 10:40:22 +0200
changeset 7642 91fce82f9c6f
parent 7641 42dba3e7fed2
child 7643 97b98bcfd056
fix parsing of 'if': identifiers can also contain underscores
tools/PascalParser.hs file | annotate | diff | comparison | revisions 
--- a/tools/PascalParser.hs	Fri Aug 31 22:08:29 2012 +0200
+++ b/tools/PascalParser.hs	Sat Sep 01 10:40:22 2012 +0200
@@ -438,7 +438,7 @@
     return o
 
 ifBlock = do
-    try $ string "if" >> notFollowedBy alphaNum
+    try $ string "if" >> notFollowedBy (alphaNum <|> char '_')
     comments
     e <- expression
     comments
hedgewars