Mercurial > urweb

diff src/compiler.sml @ 572:57018f21cd5c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Handling singnal bind
author Adam Chlipala <adamc@hcoop.net>
date Sun, 21 Dec 2008 12:30:57 -0500
parents 1901db85acb4
children 7c3c21eb5b4c
line wrap: on
line diff
--- a/src/compiler.sml	Sun Dec 21 12:01:00 2008 -0500
+++ b/src/compiler.sml	Sun Dec 21 12:30:57 2008 -0500
@@ -511,21 +511,23 @@
 
 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 toJscomp = transform jscomp "jscomp" o toMono_opt2
 
-val toMono_opt2 = transform mono_opt "mono_opt2" o toJscomp
+val toMono_opt3 = transform mono_opt "mono_opt3" o toJscomp
 
 val fuse = {
     func = Fuse.fuse,
     print = MonoPrint.p_file MonoEnv.empty
 }
 
-val toFuse = transform fuse "fuse" o toMono_opt2
+val toFuse = transform fuse "fuse" o toMono_opt3
 
 val toUntangle2 = transform untangle "untangle2" o toFuse