diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-05-14 13:18:31 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-05-14 13:18:31 -0400 |
| commit | c69e0c432107906261ab4c56cd88a8cfab3191fb (patch) | |
| tree | 2d38397e8bfd910828e32184e9adbda761b1ae84 /src/monoize.sml | |
| parent | ee2f4ffdf2f283c33fb7bb488fa88a1d9f2cf6be (diff) | |
Proper lifting of MonoEnv stored expressions; avoidance of onchange clobbering
Diffstat (limited to 'src/monoize.sml')
| -rw-r--r-- | src/monoize.sml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/monoize.sml b/src/monoize.sml index 86a27543..e8d8a122 100644 --- a/src/monoize.sml +++ b/src/monoize.sml @@ -2498,6 +2498,10 @@ fun monoExp (env, st, fm) (all as (e, loc)) = val assgns = List.mapPartial (fn ("Source", _, _) => NONE + | ("Onchange", e, _) => + SOME (strcat [str "addOnChange(d,", + (L'.EJavaScript (L'.Script, e, NONE), loc), + str ")"]) | (x, e, _) => SOME (strcat [str ("d." ^ lowercaseFirst x ^ "="), (L'.EJavaScript (L'.Script, e, NONE), loc), |