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 | 4b4d925a619b9306f0389d726adbfc391fb5ee1b (patch) | |
| tree | de47cec1545dc9a0001c7de7ab8cdc3c49f22c96 /src/monoize.sml | |
| parent | f5c735f49ae6a3bac15a39f7367f518d87907219 (diff) | |
Fixed 'onload' handling for img tag.
Diffstat (limited to 'src/monoize.sml')
| -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 |