diff options
author | Adam Chlipala <adamc@hcoop.net> | 2009-08-25 13:57:56 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2009-08-25 13:57:56 -0400 |
commit | 5afe50894b7214b796d734d9caf20ee574157b42 (patch) | |
tree | eccb7d719d3ca507893680773971963313bd56c2 /src/mono_opt.sml | |
parent | b57458e2117ab29e1f0754adaa80c081ea8b3fbd (diff) |
grid1 compiles but gets stuck in JS
Diffstat (limited to 'src/mono_opt.sml')
-rw-r--r-- | src/mono_opt.sml | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/src/mono_opt.sml b/src/mono_opt.sml index 7bfce88b..bf39b311 100644 --- a/src/mono_opt.sml +++ b/src/mono_opt.sml @@ -30,8 +30,6 @@ structure MonoOpt :> MONO_OPT = struct open Mono structure U = MonoUtil -val removeServerCalls = ref false - fun typ t = t fun decl d = d @@ -482,12 +480,6 @@ fun exp e = | [] => raise Fail "MonoOpt impossible nil") | NONE => e end - - | EServerCall (_, _, _, _, ue) => - if !removeServerCalls then - optExp ue - else - e | _ => e |