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 | 7c866487f8ab0dd9b9c73bee013c18805a0c4489 (patch) | |
| tree | eccb7d719d3ca507893680773971963313bd56c2 /src/mono_opt.sml | |
| parent | dadc173e9a2d4f130a573f59adce2e386901c18d (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 |