diff src/monoize.sml @ 1712:355dc023fbb8

Saving uw_event for all events (so stopPropagation works everywhere)
author Vladimir Shabanov <vshabanoff@gmail.com>
date Wed, 11 Apr 2012 03:05:26 +0400
parents 78ea155b6b14
children 1b3f82b09bb0
line wrap: on
line diff
--- 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 (