diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-12-20 14:19:21 -0500 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-12-20 14:19:21 -0500 |
commit | a08075494d9c16a349215fbcaefa3e1d14d2e0f9 (patch) | |
tree | b3d519edc46498c2743994fbcf548dd1a2f3e66b /src/compiler.sml | |
parent | e478b4d432d65b33613a601f71204fc0c656c3db (diff) |
Start of JsComp
Diffstat (limited to 'src/compiler.sml')
-rw-r--r-- | src/compiler.sml | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/compiler.sml b/src/compiler.sml index 0ff4ee6a..ecee1065 100644 --- a/src/compiler.sml +++ b/src/compiler.sml @@ -511,7 +511,14 @@ val mono_shake = { 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, |