diff options
author | Adam Chlipala <adamc@hcoop.net> | 2009-04-05 16:17:32 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2009-04-05 16:17:32 -0400 |
commit | 69400f0524e8bcaa264eed203b8581992a4d1f7d (patch) | |
tree | 8ad97a4f06d9ca9987b23c38c3907354a316eb1f /src/jscomp.sml | |
parent | 2fe043a303f84c2b96ec4ac116b5a6a509994459 (diff) |
Fixing some regressions and other bugs
Diffstat (limited to 'src/jscomp.sml')
-rw-r--r-- | src/jscomp.sml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/jscomp.sml b/src/jscomp.sml index 9cefc60f..9a621906 100644 --- a/src/jscomp.sml +++ b/src/jscomp.sml @@ -364,7 +364,7 @@ fun process file = else e in - ("(uu=t[i++],uu==\"Some\"?" ^ e ^ ":null)", st) + ("(t[i++]==\"Some\"?" ^ e ^ ":null)", st) end | TDatatype (n, ref (dk, cs)) => @@ -861,7 +861,7 @@ fun process file = let val (e, st) = jsE inner (e, st) in - (strcat [str "alert(\"ERROR: \"+", e, str ")"], + (strcat [str "alert(cat(\"ERROR: \",", e, str "))"], st) end @@ -952,9 +952,9 @@ fun process file = val (ek, st) = jsE inner (ek, st) val (unurl, st) = unurlifyExp loc (t, st) in - (strcat [str ("rc(\"" ^ !Monoize.urlPrefix ^ "\"+"), + (strcat [str ("rc(cat(\"" ^ !Monoize.urlPrefix ^ "\","), e, - str (", function(s){var t=s.split(\"/\");var i=0;return " + str ("), function(s){var t=s.split(\"/\");var i=0;return " ^ unurl ^ "},"), ek, str ")"], |