Mercurial > urweb

diff src/mono_reduce.sml @ 815:493f44759879

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Redo Jscomp
author Adam Chlipala <adamc@hcoop.net>
date Sun, 17 May 2009 18:41:43 -0400
parents 3f3b211f9bca
children 497c7dbcc695
line wrap: on
line diff
--- a/src/mono_reduce.sml	Sun May 17 14:36:55 2009 -0400
+++ b/src/mono_reduce.sml	Sun May 17 18:41:43 2009 -0400
@@ -74,7 +74,7 @@
       | 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 @@
                       | 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