Mercurial > urweb

diff src/compiler.sml @ 567:1901db85acb4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Start of JsComp
author Adam Chlipala <adamc@hcoop.net>
date Sat, 20 Dec 2008 14:19:21 -0500
parents 4929cf86bc03
children 57018f21cd5c
line wrap: on
line diff
--- a/src/compiler.sml	Fri Dec 19 12:38:11 2008 -0500
+++ b/src/compiler.sml	Sat Dec 20 14:19:21 2008 -0500
@@ -511,7 +511,14 @@
 
 val toMono_shake = transform mono_shake "mono_shake1" o toMono_reduce
 
-val toMono_opt2 = transform mono_opt "mono_opt2" o toMono_shake
+val jscomp = {
+    func = JsComp.process,
+    print = MonoPrint.p_file MonoEnv.empty
+}
+
+val toJscomp = transform jscomp "jscomp" o toMono_reduce
+
+val toMono_opt2 = transform mono_opt "mono_opt2" o toJscomp
 
 val fuse = {
     func = Fuse.fuse,