1 files changed, 1 insertions, 0 deletions
diff --git a/Optimiser.hs b/Optimiser.hs
index a349803..a6c5e10 100644
--- a/Optimiser.hs
+++ b/Optimiser.hs
@@ -14,6 +14,7 @@ optimise :: IRProgram -> IRProgram
 optimise (IRProgram bbs gfds datas) =
     let optf = foldl (.) id
                      [ tailCallIntro
+                     , deadBBElim gfds, mergeRets
                      , deadStoreElim, deadBBElim gfds
                      , map propAssigns
                      , mergeRets, mergeBlocks]