diff options
author | Adam Chlipala <adam@chlipala.net> | 2012-08-02 18:12:37 -0400 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2012-08-02 18:12:37 -0400 |
commit | a8ae5c1814db75525bf0ab199b0e5bd08c2c558a (patch) | |
tree | 212d4eb5fff81460457ee63a17c13dc26b79091b /src/compiler.sml | |
parent | fdc6c1310be60fbeb597400618473861f78676de (diff) |
New NameJs phase, still needing some debugging
Diffstat (limited to 'src/compiler.sml')
-rw-r--r-- | src/compiler.sml | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/src/compiler.sml b/src/compiler.sml index a9720cf6..d1d0484a 100644 --- a/src/compiler.sml +++ b/src/compiler.sml @@ -1346,12 +1346,21 @@ val iflow = { val toIflow = transform iflow "iflow" o toMono_opt2 +val namejs = { + func = NameJS.rewrite, + print = MonoPrint.p_file MonoEnv.empty +} + +val toNamejs = transform namejs "namejs" o toIflow + +val toNamejs_untangle = transform untangle "namejs_untangle" o toNamejs + val jscomp = { func = JsComp.process, print = MonoPrint.p_file MonoEnv.empty } -val toJscomp = transform jscomp "jscomp" o toIflow +val toJscomp = transform jscomp "jscomp" o toNamejs_untangle val toMono_opt3 = transform mono_opt "mono_opt3" o toJscomp |