# HG changeset patch
# User Adam Chlipala <adamc@hcoop.net>
# Date 1227800805 18000
# Node ID 4929cf86bc0334d24d17e637d6e6c87d72b442ae
# Parent  0fc08d1750e1b7fa8e7d8229cf529444870e6c08
Stop using redundant Defunc pass

diff -r 0fc08d1750e1 -r 4929cf86bc03 src/compiler.sig
--- a/src/compiler.sig	Thu Nov 27 10:40:29 2008 -0500
+++ b/src/compiler.sig	Thu Nov 27 10:46:45 2008 -0500
@@ -66,7 +66,6 @@
     val especialize : (Core.file, Core.file) phase
     val core_untangle : (Core.file, Core.file) phase
     val shake : (Core.file, Core.file) phase
-    val defunc : (Core.file, Core.file) phase
     val tag : (Core.file, Core.file) phase
     val reduce : (Core.file, Core.file) phase
     val unpoly : (Core.file, Core.file) phase
@@ -92,8 +91,6 @@
     val toEspecialize : (string, Core.file) transform 
     val toCore_untangle : (string, Core.file) transform
     val toShake1 : (string, Core.file) transform
-    val toDefunc : (string, Core.file) transform
-    val toShake1' : (string, Core.file) transform
     val toTag : (string, Core.file) transform
     val toReduce : (string, Core.file) transform
     val toUnpoly : (string, Core.file) transform 
diff -r 0fc08d1750e1 -r 4929cf86bc03 src/compiler.sml
--- a/src/compiler.sml	Thu Nov 27 10:40:29 2008 -0500
+++ b/src/compiler.sml	Thu Nov 27 10:46:45 2008 -0500
@@ -446,22 +446,12 @@
 
 val toShake1 = transform shake "shake1" o toCore_untangle
 
-val defunc = {
-    func = Defunc.defunc,
-    print = CorePrint.p_file CoreEnv.empty
-}
-
-val toDefunc = transform defunc "defunc" o toShake1
-
-val toCore_untangle' = transform core_untangle "core_untangle'" o toDefunc
-val toShake1' = transform shake "shake1'" o toCore_untangle'
-
 val tag = {
     func = Tag.tag,
     print = CorePrint.p_file CoreEnv.empty
 }
 
-val toTag = transform tag "tag" o toShake1'
+val toTag = transform tag "tag" o toShake1
 
 val reduce = {
     func = Reduce.reduce,