# HG changeset patch
# User Vladimir Shabanov <vshabanoff@gmail.com>
# Date 1334099183 -14400
# Node ID 78ea155b6b1431c3a6b2fdc81d6f11555ee8b705
# Parent  540df112ff624e57a2aa5e6d8dc31d992c95f019
Fixed 'onload' handling for img tag.

diff -r 540df112ff62 -r 78ea155b6b14 src/monoize.sml
--- a/src/monoize.sml	Sun Apr 15 12:40:53 2012 -0400
+++ b/src/monoize.sml	Wed Apr 11 03:06:23 2012 +0400
@@ -3047,7 +3047,11 @@
                       | ("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