comparison src/monoize.sml @ 926:358fca527886

Prevent event bubbling
author Adam Chlipala <adamc@hcoop.net>
date Sat, 12 Sep 2009 10:03:12 -0400
parents b873feb3eb52
children 2a50da66ffd8
comparison
equal deleted inserted replaced
925:552c989c1601 926:358fca527886
2521 ((L'.EStrcat (s, 2521 ((L'.EStrcat (s,
2522 (L'.EStrcat ( 2522 (L'.EStrcat (
2523 (L'.EPrim (Prim.String s'), loc), 2523 (L'.EPrim (Prim.String s'), loc),
2524 (L'.EStrcat ( 2524 (L'.EStrcat (
2525 (L'.EJavaScript (L'.Attribute, e), loc), 2525 (L'.EJavaScript (L'.Attribute, e), loc),
2526 (L'.EPrim (Prim.String "'"), loc)), loc)), 2526 (L'.EPrim (Prim.String ";return false'"), loc)), loc)),
2527 loc)), loc), 2527 loc)), loc),
2528 fm) 2528 fm)
2529 end 2529 end
2530 | _ => 2530 | _ =>
2531 let 2531 let