Mercurial > urweb

diff src/mono_util.sml @ 614:5891f47d7cff

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Parameterized RPC query
author Adam Chlipala <adamc@hcoop.net>
date Sun, 15 Feb 2009 13:03:09 -0500
parents 56aaa1941dad
children 4a125bbc602d
line wrap: on
line diff
--- a/src/mono_util.sml	Sun Feb 15 12:33:41 2009 -0500
+++ b/src/mono_util.sml	Sun Feb 15 13:03:09 2009 -0500
@@ -350,14 +350,12 @@
                      fn e' =>
                         (ESignalSource e', loc))
 
-              | EServerCall (n, es, ek, t) =>
-                S.bind2 (ListUtil.mapfold (fn e => mfe ctx e) es,
-                      fn es' =>
-                         S.bind2 (mfe ctx ek,
-                                 fn ek' =>
-                                    S.map2 (mft t,
-                                            fn t' =>
-                                               (EServerCall (n, es', ek', t'), loc))))
+              | EServerCall (n, ek, t) =>
+                S.bind2 (mfe ctx ek,
+                      fn ek' =>
+                         S.map2 (mft t,
+                              fn t' =>
+                                 (EServerCall (n, ek', t'), loc)))
     in
         mfe
     end