diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-05-17 18:41:43 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-05-17 18:41:43 -0400 |
| commit | eaecb983d749637eaa651f641caf2136e889dfb0 (patch) | |
| tree | 815d7b44e23dc823893aabf1f75ef087c0037be1 /src/mono_reduce.sml | |
| parent | 7bbee7c3f41f0386072d0d73cd3477d0a4734ca9 (diff) | |
Redo Jscomp
Diffstat (limited to 'src/mono_reduce.sml')
| -rw-r--r-- | src/mono_reduce.sml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/mono_reduce.sml b/src/mono_reduce.sml index 77672acc..770aaa2e 100644 --- a/src/mono_reduce.sml +++ b/src/mono_reduce.sml @@ -74,7 +74,7 @@ fun impure (e, _) = | ELet (_, _, e1, e2) => impure e1 orelse impure e2 | EClosure (_, es) => List.exists impure es - | EJavaScript (_, e, _) => impure e + | EJavaScript (_, e) => impure e | ESignalReturn e => impure e | ESignalBind (e1, e2) => impure e1 orelse impure e2 | ESignalSource e => impure e @@ -344,7 +344,7 @@ fun reduce file = | EDml e => summarize d e @ [WriteDb] | ENextval e => summarize d e @ [WriteDb] | EUnurlify (e, _) => summarize d e - | EJavaScript (_, e, _) => summarize d e + | EJavaScript (_, e) => summarize d e | ESignalReturn e => summarize d e | ESignalBind (e1, e2) => summarize d e1 @ summarize d e2 | ESignalSource e => summarize d e |