Mercurial > urweb

diff src/compiler.sml @ 957:2831be2daf2e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Grid changed to use Dlist.replace; filters stopped working
author Adam Chlipala <adamc@hcoop.net>
date Thu, 17 Sep 2009 19:01:04 -0400
parents 6646b95f1860
children 34ba25d6af3b
line wrap: on
line diff
--- a/src/compiler.sml	Thu Sep 17 17:17:49 2009 -0400
+++ b/src/compiler.sml	Thu Sep 17 19:01:04 2009 -0400
@@ -779,7 +779,14 @@
 
 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