--- a/tools/pas2c/Pas2C.hs	Wed Jan 08 23:49:08 2014 +0100
+++ b/tools/pas2c/Pas2C.hs	Thu Jan 09 23:54:40 2014 +0400
@@ -96,8 +96,8 @@
 docToLower :: Doc -> Doc
 docToLower = text . map toLower . render
 
-pas2C :: String -> String -> String -> String -> IO ()
-pas2C fn inputPath outputPath alternateInputPath = do
+pas2C :: String -> String -> String -> String -> [String] -> IO ()
+pas2C fn inputPath outputPath alternateInputPath symbols = do
     s <- flip execStateT initState $ f fn
     renderCFiles s outputPath
     where
@@ -111,7 +111,7 @@
             print ("Preprocessing '" ++ fileName ++ ".pas'... ")
             fc' <- liftIO
                 $ tryJust (guard . isDoesNotExistError)
-                $ preprocess inputPath alternateInputPath (fileName ++ ".pas")
+                $ preprocess inputPath alternateInputPath (fileName ++ ".pas") symbols
             case fc' of
                 (Left a) -> do
                     modify (Map.insert fileName (System []))