X-Git-Url: http://git.joshuawise.com/snipe.git/blobdiff_plain/5c79bb689ab446551bc7ec4497e6c9b75582837e..f285fa8903ee50118b6d92150c18cb3a32f52ed2:/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