--- a/tools/PascalParser.hs Fri Aug 31 22:00:31 2012 +0200
+++ b/tools/PascalParser.hs Fri Aug 31 22:08:29 2012 +0200
@@ -438,7 +438,7 @@
return o
ifBlock = do
- try $ string "if"
+ try $ string "if" >> notFollowedBy alphaNum
comments
e <- expression
comments