1 files changed, 3 insertions, 1 deletions
diff --git a/Main.hs b/Main.hs
index ef98b62..70991c0 100644
--- a/Main.hs
+++ b/Main.hs
@@ -5,6 +5,7 @@ import System.Environment
 import System.Exit
 
 import Compiler
+import CompilerMacros
 import Optimiser
 import Parser
 import VM
@@ -23,7 +24,8 @@ main = do
         _ -> usage >> exitFailure
 
     prog <- parseProgram mfname source >>= either (die . show) return
-    irprog <- either die return (compileProgram prog)
+    let prog' = compilerMacros prog
+    irprog <- either die return (compileProgram prog')
     let opt = optimise irprog
     -- print opt
     vmRun opt