Mercurial > urweb

diff src/jscomp.sml @ 608:330a7de47914

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Export RPC functions and push RPC calls through to Mono
author Adam Chlipala <adamc@hcoop.net>
date Sun, 15 Feb 2009 09:27:36 -0500
parents b1064de2b1f9
children 56aaa1941dad
line wrap: on
line diff
--- a/src/jscomp.sml	Sat Feb 14 14:07:56 2009 -0500
+++ b/src/jscomp.sml	Sun Feb 15 09:27:36 2009 -0500
@@ -98,6 +98,7 @@
       | ESignalReturn e => varDepth e
       | ESignalBind (e1, e2) => Int.max (varDepth e1, varDepth e2)
       | ESignalSource e => varDepth e
+      | EServerCall (_, es, ek) => foldl Int.max (varDepth ek) (map varDepth es)
 
 fun closedUpto d =
     let
@@ -138,6 +139,7 @@
               | ESignalReturn e => cu inner e
               | ESignalBind (e1, e2) => cu inner e1 andalso cu inner e2
               | ESignalSource e => cu inner e
+              | EServerCall (_, es, ek) => List.all (cu inner) es andalso cu inner ek
     in
         cu 0
     end
@@ -809,6 +811,8 @@
                                          str ")"],
                                  st)
                             end
+
+                          | EServerCall _ => raise Fail "Jscomp EServerCall"
                     end
             in
                 jsE