Mercurial > urweb
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 (