Mercurial > urweb

diff src/mono_opt.sml @ 905:7a4b026e45dd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Library improvements; proper list [un]urlification; remove server-side ServerCalls; eta reduction in type inference
author Adam Chlipala <adamc@hcoop.net>
date Sun, 09 Aug 2009 16:13:27 -0400
parents dae141d911d9
children 8e540df3294d
line wrap: on
line diff
--- a/src/mono_opt.sml	Thu Aug 06 15:23:04 2009 -0400
+++ b/src/mono_opt.sml	Sun Aug 09 16:13:27 2009 -0400
@@ -30,6 +30,8 @@
 open Mono
 structure U = MonoUtil
 
+val removeServerCalls = ref false
+
 fun typ t = t
 fun decl d = d
 
@@ -480,6 +482,12 @@
                    | [] => raise Fail "MonoOpt impossible nil")
               | NONE => e
         end
+
+      | EServerCall (_, _, _, _, ue) =>
+        if !removeServerCalls then
+            optExp ue
+        else
+            e
         
       | _ => e