--- a/tools/PascalPreprocessor.hs	Thu May 10 11:29:18 2012 +0400
+++ b/tools/PascalPreprocessor.hs	Thu May 10 13:16:31 2012 +0400
@@ -15,7 +15,11 @@
         , (try $ string "//") >> manyTill anyChar (try newline) >> return "\n"
         ]
 
-initDefines = Map.fromList [("FPC", ""), ("PAS2C", "")]
+initDefines = Map.fromList [
+    ("FPC", "")
+    , ("PAS2C", "")
+    , ("USE_SDLTHREADS", "")
+    ]
         
 preprocess :: String -> IO String
 preprocess fn = do