From 4b4d925a619b9306f0389d726adbfc391fb5ee1b Mon Sep 17 00:00:00 2001 From: Vladimir Shabanov Date: Wed, 11 Apr 2012 03:06:23 +0400 Subject: Fixed 'onload' handling for img tag. --- src/monoize.sml | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'src') 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 -- cgit v1.2.3