diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-02-15 10:32:50 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-02-15 10:32:50 -0500 |
| commit | 7bfdd9349b08b82f4e8fceb75749c17f8e8324e2 (patch) | |
| tree | 97a0ff4ed73faa83667f997d5fa13306ba98789b /src/mono_reduce.sml | |
| parent | 4d6b4140314ee47c6278d75a196fb81da3fedc26 (diff) | |
First gimpy RPC
Diffstat (limited to 'src/mono_reduce.sml')
| -rw-r--r-- | src/mono_reduce.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/mono_reduce.sml b/src/mono_reduce.sml index 7d39648a..2d0412fd 100644 --- a/src/mono_reduce.sml +++ b/src/mono_reduce.sml @@ -346,7 +346,7 @@ fun reduce file = | ESignalBind (e1, e2) => summarize d e1 @ summarize d e2 | ESignalSource e => summarize d e - | EServerCall (_, es, ek) => List.concat (map (summarize d) es) @ summarize d ek @ [Unsure] + | EServerCall (_, es, ek, _) => List.concat (map (summarize d) es) @ summarize d ek @ [Unsure] in (*Print.prefaces "Summarize" [("e", MonoPrint.p_exp MonoEnv.empty (e, ErrorMsg.dummySpan)), |