diff options
| author |  Vladimir Shabanov <vshabanoff@gmail.com> | 2012-04-11 03:06:23 +0400 |
|---|---|---|
| committer | Vladimir Shabanov <vshabanoff@gmail.com> | 2012-04-11 03:06:23 +0400 |
| commit | c9f1b6fdf50c4dc75af8a0eaea932a69e57f400c (patch) | |
| tree | de47cec1545dc9a0001c7de7ab8cdc3c49f22c96 | |
| parent | e46dce41e7632b7a0e439c2f106eb1b4202b2ec7 (diff) | |
Fixed 'onload' handling for img tag.
| -rw-r--r-- | src/monoize.sml | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/monoize.sml b/src/monoize.sml index d0be7449..5e0e2599 100644 --- a/src/monoize.sml +++ b/src/monoize.sml @@ -3047,7 +3047,11 @@ fun monoExp (env, st, fm) (all as (e, loc)) = | ("Onunload", e, _) :: rest => findOnload (rest, onload, SOME e, acc) | x :: rest => findOnload (rest, onload, onunload, x :: acc) - val (onload, onunload, attrs) = findOnload (attrs, NONE, NONE, []) + val (onload, onunload, attrs) = + if tag = "body" then + findOnload (attrs, NONE, NONE, []) + else + (NONE, NONE, attrs) val (class, fm) = monoExp (env, st, fm) class val (dynClass, fm) = monoExp (env, st, fm) dynClass |