Escaping " in character constants

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@16420 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

Author: pierreweis

stdlib/bytes.ml

@@ -149,7 +149,7 @@ let escaped s =
   for i = 0 to length s - 1 do
     n := !n +
       (match unsafe_get s i with
-       | '"' | '\\' | '\n' | '\t' | '\r' | '\b' -> 2
+       | '\"' | '\\' | '\n' | '\t' | '\r' | '\b' -> 2
        | ' ' .. '~' -> 1
        | _ -> 4)
   done;
@@ -158,7 +158,7 @@ let escaped s =
     n := 0;
     for i = 0 to length s - 1 do
       begin match unsafe_get s i with
-      | ('"' | '\\') as c ->
+      | ('\"' | '\\') as c ->
           unsafe_set s' !n '\\'; incr n; unsafe_set s' !n c
       | '\n' ->
           unsafe_set s' !n '\\'; incr n; unsafe_set s' !n 'n'

stdlib/string.ml

@@ -87,7 +87,7 @@ let escaped s =
   let rec needs_escape i =
     if i >= length s then false else
       match unsafe_get s i with
-      | '"' | '\\' | '\n' | '\t' | '\r' | '\b' -> true
+      | '\"' | '\\' | '\n' | '\t' | '\r' | '\b' -> true
       | ' ' .. '~' -> needs_escape (i+1)
       | _ -> true
   in