Mercurial > urweb

comparison 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
comparison
equal deleted inserted replaced
817:4585f744574a 818:066493f7f008
2536 SOME (L.EFfiApp ("Basis", "get_script", [(L.ERecord [], loc)]), loc)) 2536 SOME (L.EFfiApp ("Basis", "get_script", [(L.ERecord [], loc)]), loc))
2537 end 2537 end
2538 2538
2539 | "dyn" => 2539 | "dyn" =>
2540 (case attrs of 2540 (case attrs of
2541 (*[("Signal", (L'.EApp ((L'.EAbs (_, _, _, (L'.ESignalReturn (L'.ERel 0, _), _)), _), 2541 [("Signal", e, _)] =>
2542 e), _), _)] => (e, fm)
2543 |*) [("Signal", e, _)] =>
2544 ((L'.EStrcat 2542 ((L'.EStrcat
2545 ((L'.EPrim (Prim.String "<span><script type=\"text/javascript\">dyn("), loc), 2543 ((L'.EPrim (Prim.String "<span><script type=\"text/javascript\">dyn("), loc),
2546 (L'.EStrcat ((L'.EJavaScript (L'.Script, e), loc), 2544 (L'.EStrcat ((L'.EJavaScript (L'.Script, e), loc),
2547 (L'.EPrim (Prim.String ")</script></span>"), loc)), loc)), loc), 2545 (L'.EPrim (Prim.String ")</script></span>"), loc)), loc)), loc),
2548 fm) 2546 fm)