summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2008-11-27 10:46:45 -0500
committerGravatar Adam Chlipala <adamc@hcoop.net>2008-11-27 10:46:45 -0500
commitca833ef09c3bbb51e38b98f70c480a767c83c829 (patch)
tree96563b578170d86459afeab9a2ffa7ece83ef2bf /src
parent59bc998793e4c715d038555143ac3d83f2b3bc42 (diff)
Stop using redundant Defunc pass
Diffstat (limited to 'src')
-rw-r--r--src/compiler.sig3
-rw-r--r--src/compiler.sml12
2 files changed, 1 insertions, 14 deletions
diff --git a/src/compiler.sig b/src/compiler.sig
index 8c52ea32..59ad32be 100644
--- a/src/compiler.sig
+++ b/src/compiler.sig
@@ -66,7 +66,6 @@ signature COMPILER = sig
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 @@ signature COMPILER = sig
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 --git a/src/compiler.sml b/src/compiler.sml
index aac4a924..0ff4ee6a 100644
--- a/src/compiler.sml
+++ b/src/compiler.sml
@@ -446,22 +446,12 @@ val shake = {
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,