Mercurial > urweb
diff src/jscomp.sml @ 703:a5d8b470d7ca
Fixing some regressions and other bugs
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Sun, 05 Apr 2009 16:17:32 -0400 |
| parents | 500e93aa436f |
| children | 6fc633d990e7 |
line wrap: on
line diff
--- a/src/jscomp.sml Sun Apr 05 12:41:41 2009 -0400 +++ b/src/jscomp.sml Sun Apr 05 16:17:32 2009 -0400 @@ -364,7 +364,7 @@ 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 @@ 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 @@ 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 ")"],