Mercurial > urweb

diff src/compiler.sml @ 482:9117a7bf229c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Especialize working reasonably well; need to add new closure representation pass
author Adam Chlipala <adamc@hcoop.net>
date Sun, 09 Nov 2008 11:53:52 -0500
parents 04b91c33ef54
children 685b41e85634
line wrap: on
line diff
--- a/src/compiler.sml	Sat Nov 08 16:47:04 2008 -0500
+++ b/src/compiler.sml	Sun Nov 09 11:53:52 2008 -0500
@@ -411,6 +411,13 @@
 
 val toCorify = transform corify "corify" o toExplify
 
+(*val reduce_local = {
+    func = ReduceLocal.reduce,
+    print = CorePrint.p_file CoreEnv.empty
+}
+
+val toReduce_local = transform reduce_local "reduce_local" o toCorify*)
+
 val especialize = {
     func = ESpecialize.specialize,
     print = CorePrint.p_file CoreEnv.empty