diff options
author | 2009-08-25 13:57:56 -0400 | |
---|---|---|
committer | 2009-08-25 13:57:56 -0400 | |
commit | 7c866487f8ab0dd9b9c73bee013c18805a0c4489 (patch) | |
tree | eccb7d719d3ca507893680773971963313bd56c2 /src/compiler.sml | |
parent | dadc173e9a2d4f130a573f59adce2e386901c18d (diff) |
grid1 compiles but gets stuck in JS
Diffstat (limited to 'src/compiler.sml')
-rw-r--r-- | src/compiler.sml | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/src/compiler.sml b/src/compiler.sml index 13bb77f9..c99c0eeb 100644 --- a/src/compiler.sml +++ b/src/compiler.sml @@ -805,7 +805,7 @@ val monoize = { val toMonoize = transform monoize "monoize" o toEffectize val mono_opt = { - func = (fn x => (MonoOpt.removeServerCalls := false; MonoOpt.optimize x)), + func = MonoOpt.optimize, print = MonoPrint.p_file MonoEnv.empty } @@ -841,12 +841,7 @@ val jscomp = { val toJscomp = transform jscomp "jscomp" o toMono_opt2 -val mono_opt' = { - func = (fn x => (MonoOpt.removeServerCalls := true; MonoOpt.optimize x)), - print = MonoPrint.p_file MonoEnv.empty -} - -val toMono_opt3 = transform mono_opt' "mono_opt3" o toJscomp +val toMono_opt3 = transform mono_opt "mono_opt3" o toJscomp val fuse = { func = Fuse.fuse, |