diff options
author | 2009-05-16 12:41:33 -0400 | |
---|---|---|
committer | 2009-05-16 12:41:33 -0400 | |
commit | 768fd72de4842c23813cd45bfae4918c7395e0c1 (patch) | |
tree | b05b4f028035c9fbcc9f2477a69002c8b0034312 /src/monoize.sml | |
parent | 79655b086c036d07806d0c345ffc9e6683891fe4 (diff) |
Fix a Core_untangle bug that missed closure variable references; XHTMLize
Diffstat (limited to 'src/monoize.sml')
-rw-r--r-- | src/monoize.sml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/monoize.sml b/src/monoize.sml index e8d8a122..31b80479 100644 --- a/src/monoize.sml +++ b/src/monoize.sml @@ -2450,7 +2450,7 @@ fun monoExp (env, st, fm) (all as (e, loc)) = val (ts, fm) = tagStart "input" in ((L'.EStrcat (ts, - (L'.EPrim (Prim.String (" type=\"" ^ typ ^ "\" name=\"" ^ name ^ "\"/>")), + (L'.EPrim (Prim.String (" type=\"" ^ typ ^ "\" name=\"" ^ name ^ "\" />")), loc)), loc), fm) end | _ => (Print.prefaces "Targs" (map (fn t => ("T", CorePrint.p_con env t)) targs); @@ -2486,7 +2486,7 @@ fun monoExp (env, st, fm) (all as (e, loc)) = _), _), (L.EPrim (Prim.String s), _)), _) => if CharVector.all Char.isSpace s then - ((L'.EStrcat (tagStart, (L'.EPrim (Prim.String "/>"), loc)), loc), fm) + ((L'.EStrcat (tagStart, (L'.EPrim (Prim.String " />"), loc)), loc), fm) else normal () | _ => normal () @@ -2561,7 +2561,7 @@ fun monoExp (env, st, fm) (all as (e, loc)) = val (ts, fm) = tagStart "input" in ((L'.EStrcat (ts, - (L'.EPrim (Prim.String (" name=\"" ^ name ^ "\"/>")), + (L'.EPrim (Prim.String (" name=\"" ^ name ^ "\" />")), loc)), loc), fm) end | SOME (_, src, _) => @@ -2632,7 +2632,7 @@ fun monoExp (env, st, fm) (all as (e, loc)) = val (ts, fm) = tagStart "input" in ((L'.EStrcat (ts, - (L'.EPrim (Prim.String "/>"), loc)), + (L'.EPrim (Prim.String " />"), loc)), loc), fm) end | SOME (_, src, _) => @@ -2655,7 +2655,7 @@ fun monoExp (env, st, fm) (all as (e, loc)) = val (ts, fm) = tagStart "select" in ((L'.EStrcat (ts, - (L'.EPrim (Prim.String "/>"), loc)), + (L'.EPrim (Prim.String " />"), loc)), loc), fm) end | SOME (_, src, _) => |