# HG changeset patch
# User Vladimir Shabanov <vshabanoff@gmail.com>
# Date 1334099126 -14400
# Node ID 355dc023fbb873652334a59b03e08e41e61d3599
# Parent  78ea155b6b1431c3a6b2fdc81d6f11555ee8b705
Saving uw_event for all events (so stopPropagation works everywhere)

diff -r 78ea155b6b14 -r 355dc023fbb8 src/monoize.sml
--- a/src/monoize.sml	Wed Apr 11 03:06:23 2012 +0400
+++ b/src/monoize.sml	Wed Apr 11 03:05:26 2012 +0400
@@ -3112,14 +3112,12 @@
                                                     end
                                                   | (L'.TFun (dom, _), _) =>
                                                     let
-                                                        val s' = " " ^ lowercaseFirst x ^ "='"
-                                                        val (e, s') =
+                                                        val e =
                                                             case #1 dom of
-                                                                L'.TRecord [] => ((L'.EApp (e, (L'.ERecord [], loc)), loc), s')
-                                                              | _ => ((L'.EApp ((L'.EApp (e, (L'.EFfiApp ("Basis", "kc", []), loc)),
-                                                                                 loc), (L'.ERecord [], loc)), loc),
-                                                                      s' ^ "uw_event=event;")
-                                                        val s' = s' ^ "exec("
+                                                                L'.TRecord [] => (L'.EApp (e, (L'.ERecord [], loc)), loc)
+                                                              | _ => (L'.EApp ((L'.EApp (e, (L'.EFfiApp ("Basis", "kc", []), loc)),
+                                                                                 loc), (L'.ERecord [], loc)), loc)
+                                                        val s' = " " ^ lowercaseFirst x ^ "='uw_event=event;exec("
                                                     in
                                                         ((L'.EStrcat (s,
                                                                       (L'.EStrcat (