Mercurial > urweb

diff src/monoize.sml @ 976:68eda5b0636d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
demo/react works with interpretation
author Adam Chlipala <adamc@hcoop.net>
date Tue, 22 Sep 2009 17:12:20 -0400
parents 8371d12ae63f
children 27a3412d23e4
line wrap: on
line diff
--- a/src/monoize.sml	Tue Sep 22 15:12:09 2009 -0400
+++ b/src/monoize.sml	Tue Sep 22 17:12:20 2009 -0400
@@ -2682,7 +2682,7 @@
                             [("Signal", e, _)] =>
                             ((L'.EStrcat
                                   ((L'.EPrim (Prim.String ("<script type=\"text/javascript\">dyn(\""
-                                                           ^ tag ^ "\", exec(")), loc),
+                                                           ^ tag ^ "\", execD(")), loc),
                                    (L'.EStrcat ((L'.EJavaScript (L'.Script, e), loc),
                                                 (L'.EPrim (Prim.String ("))</script>")), loc)), loc)), loc),
                              fm)