# HG changeset patch
# User sheepluva
# Date 1346488822 -7200
# Node ID 91fce82f9c6f100d9138a8cdea521b4bddf58d84
# Parent  42dba3e7fed232dedcb63242baf9e2ca9e5f3115
fix parsing of 'if': identifiers can also contain underscores

diff -r 42dba3e7fed2 -r 91fce82f9c6f tools/PascalParser.hs
--- 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