--- a/tools/PascalUnitSyntaxTree.hs Sun Feb 05 22:22:46 2012 -0500
+++ b/tools/PascalUnitSyntaxTree.hs Mon Feb 06 23:17:45 2012 +0400
@@ -99,6 +99,7 @@
| BTChar
| BTString
| BTInt
+ | BTBool
| BTRecord [(String, BaseType)]
| BTArray BaseType BaseType
| BTFunction