diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-02-15 09:27:36 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-02-15 09:27:36 -0500 |
| commit | e27335a18e8f4b1cca2749e8d41863b3cbef9b62 (patch) | |
| tree | ce010b2988315e7b327f46f1c2b0ee9fef759f4f /src/mono_util.sml | |
| parent | f7db36644bdbde7b0ed48daffeb760bd5418bd2e (diff) | |
Export RPC functions and push RPC calls through to Mono
Diffstat (limited to 'src/mono_util.sml')
| -rw-r--r-- | src/mono_util.sml | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/mono_util.sml b/src/mono_util.sml index 9ce3293b..13e0d32c 100644 --- a/src/mono_util.sml +++ b/src/mono_util.sml @@ -349,6 +349,13 @@ fun mapfoldB {typ = fc, exp = fe, bind} = S.map2 (mfe ctx e, fn e' => (ESignalSource e', loc)) + + | EServerCall (n, es, ek) => + S.bind2 (ListUtil.mapfold (fn e => mfe ctx e) es, + fn es' => + S.map2 (mfe ctx ek, + fn ek' => + (EServerCall (n, es', ek'), loc))) in mfe end |