diff -r 12cc2bd84b0b -r f98ec3aecf4e tools/PascalPreprocessor.hs
--- a/tools/PascalPreprocessor.hs	Sat May 12 22:13:56 2012 +0400
+++ b/tools/PascalPreprocessor.hs	Sat May 12 22:44:39 2012 +0400
@@ -121,7 +121,7 @@
         i <- identifier        
         d <- ((string ":=" >> return ())<|> spaces) >> many (noneOf "}")
         char '}'
-        updateState $ \(m, b) -> (if and b then Map.insert i d m else m, b)
+        updateState $ \(m, b) -> (if (and b) && (head i /= '_') then Map.insert i d m else m, b)
         return ""
     replace s = do
         (m, _) <- getState