diff -r b1b7eb9c8cc9 -r bcf9d8e64e92 tools/PascalParser.hs
--- a/tools/PascalParser.hs	Sat May 12 22:50:33 2012 +0400
+++ b/tools/PascalParser.hs	Sat May 12 23:55:09 2012 +0400
@@ -382,7 +382,6 @@
            , Infix (try (string ">=") >> return (BinOp ">=")) AssocNone
            , Infix (char '<' >> return (BinOp "<")) AssocNone
            , Infix (char '>' >> return (BinOp ">")) AssocNone
-           , Infix (char '=' >> return (BinOp "=")) AssocNone
           ]
         , [  Infix (try $ string "shl" >> return (BinOp "shl")) AssocNone
            , Infix (try $ string "shr" >> return (BinOp "shr")) AssocNone
@@ -391,6 +390,9 @@
            , Infix (try $ string "or" >> return (BinOp "or")) AssocLeft
            , Infix (try $ string "xor" >> return (BinOp "xor")) AssocLeft
           ]
+        , [
+             Infix (char '=' >> return (BinOp "=")) AssocNone
+          ]
         ]
     strOrChar [a] = CharCode . show . ord $ a
     strOrChar a = StringLiteral a