X-Git-Url: http://git.joshuawise.com/snipe.git/blobdiff_plain/459e54ac227128d4980ee40293b4b9fdd7b8ef26..f716a180ca5458e19643c902d4fb97785b9fd88e:/top/top.sml

diff --git a/top/top.sml b/top/top.sml
index 4b58d00..5263317 100644
--- a/top/top.sml
+++ b/top/top.sml
@@ -29,12 +29,12 @@ struct
   exception EXIT
   
   val alloptimizations =
-    [ConstantFold.optimizer,
+    [(*ConstantFold.optimizer,
      StupidFunctionElim.optimizer,
      FeckfulnessAnalysis.optimizer,
      ConstantFold.optimizer,
      LabelCoalescing.optimizer,
-     Peephole.optimizer]
+     Peephole.optimizer*)]
   
   val uniqopts =
     foldr