diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2010-08-10 15:55:43 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2010-08-10 15:55:43 -0400 |
| commit | 06f9a1fcbb40856fae744e49be3bf0e166246293 (patch) | |
| tree | 407556eab027f66694f1ddc3a0d4c1813e1b120f /src/jscomp.sml | |
| parent | 55a669bc95cb2831f5a4fc084d2aa828863a1f07 (diff) | |
Better UTF-8 escaping for JavaScript and SQL literals
Diffstat (limited to 'src/jscomp.sml')
| -rw-r--r-- | src/jscomp.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/jscomp.sml b/src/jscomp.sml index 4b04194c..f97725eb 100644 --- a/src/jscomp.sml +++ b/src/jscomp.sml @@ -435,7 +435,7 @@ fun process file = | #"\r" => "\\r" | #"\t" => "\\t" | ch => - if Char.isPrint ch then + if Char.isPrint ch orelse ord ch >= 128 then String.str ch else "\\" ^ padWith (#"0", |