From e5e468f67bf1442ad295681039ce31e17931ba5d Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Thu, 17 Sep 2009 19:01:04 -0400
Subject: Grid changed to use Dlist.replace; filters stopped working

---
 src/compiler.sml | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'src/compiler.sml')

diff --git a/src/compiler.sml b/src/compiler.sml
index bb1a6add..67ce962e 100644
--- a/src/compiler.sml
+++ b/src/compiler.sml
@@ -779,7 +779,14 @@ val toShake3 = transform shake "shake3" o toSpecialize
 
 val toEspecialize = transform especialize "especialize" o toShake3
 
-val toReduce2 = transform reduce "reduce2" o toEspecialize
+val tailify = {
+    func = Tailify.frob,
+    print = CorePrint.p_file CoreEnv.empty
+}
+
+val toTailify = transform tailify "tailify" o toEspecialize
+
+val toReduce2 = transform reduce "reduce2" o toTailify
 
 val toShake4 = transform shake "shake4" o toReduce2
 
-- 
cgit v1.2.3