summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorGravatar Sergey Mironov <grrwlf@gmail.com>2013-12-06 14:52:47 +0400
committerGravatar Sergey Mironov <grrwlf@gmail.com>2013-12-06 14:52:47 +0400
commit0eee402a615c957f006c01d0424dae45713a9376 (patch)
tree5608da67b0ecac2ce7970688afecced61a7a7e13 /src
parenteb64746b388cd3a3864e70039a0c04929b6bbd61 (diff)
activeHead: don't modify the head. just execute the code provided
Diffstat (limited to 'src')
-rw-r--r--src/monoize.sml4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/monoize.sml b/src/monoize.sml
index 8889937e..d382194f 100644
--- a/src/monoize.sml
+++ b/src/monoize.sml
@@ -3604,9 +3604,9 @@ fun monoExp (env, st, fm) (all as (e, loc)) =
(case attrs of
[("Code", e, _)] =>
((L'.EStrcat
- ((L'.EPrim (Prim.String ("<script type=\"text/javascript\">active(execD(")), loc),
+ ((L'.EPrim (Prim.String ("<script type=\"text/javascript\">execD(")), loc),
(L'.EStrcat ((L'.EJavaScript (L'.Script, e), loc),
- (L'.EPrim (Prim.String ("))</script>")), loc)), loc)), loc),
+ (L'.EPrim (Prim.String (")</script>")), loc)), loc)), loc),
fm)
| _ => raise Fail "Monoize: Bad <activeHead> attributes")