Mercurial > urweb
diff src/compiler.sml @ 1200:5eac14322548
Generated basic dummy Iflow conditions
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sun, 04 Apr 2010 14:37:19 -0400 |
parents | a4ac900d3085 |
children | a7b773f1d053 |
line wrap: on
line diff
--- a/src/compiler.sml Sun Apr 04 12:29:34 2010 -0400 +++ b/src/compiler.sml Sun Apr 04 14:37:19 2010 -0400 @@ -1071,12 +1071,19 @@ val toMono_opt2 = transform mono_opt "mono_opt2" o toMono_shake +val iflow = { + func = (fn file => (Iflow.check file; file)), + print = MonoPrint.p_file MonoEnv.empty +} + +val toIflow = transform iflow "iflow" o toMono_opt2 + val jscomp = { func = JsComp.process, print = MonoPrint.p_file MonoEnv.empty } -val toJscomp = transform jscomp "jscomp" o toMono_opt2 +val toJscomp = transform jscomp "jscomp" o toIflow val toMono_opt3 = transform mono_opt "mono_opt3" o toJscomp