Mercurial > urweb

diff src/monoize.sml @ 818:066493f7f008

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Change List.mapM' to avoid leaving functions around
author Adam Chlipala <adamc@hcoop.net>
date Thu, 21 May 2009 11:45:04 -0400
parents 4585f744574a
children 91f465ded07e
line wrap: on
line diff
--- a/src/monoize.sml	Thu May 21 10:34:56 2009 -0400
+++ b/src/monoize.sml	Thu May 21 11:45:04 2009 -0400
@@ -2538,9 +2538,7 @@
 
                   | "dyn" =>
                     (case attrs of
-                         (*[("Signal", (L'.EApp ((L'.EAbs (_, _, _, (L'.ESignalReturn (L'.ERel 0, _), _)), _),
-                                               e), _), _)] => (e, fm)
-                       |*) [("Signal", e, _)] =>
+                         [("Signal", e, _)] =>
                          ((L'.EStrcat
                                ((L'.EPrim (Prim.String "<span><script type=\"text/javascript\">dyn("), loc),
                                 (L'.EStrcat ((L'.EJavaScript (L'.Script, e), loc),