[r2003-05-10 15:07:38 by cvscast] Empty log message

Original author: cvscast
Date: 2003-05-10 15:07:38+00:00

runtime/value.ml

@@ -126,8 +126,7 @@ and print_seq ppf = function
   | _ -> ()
 and print_str ppf = function
   | Pair (Char c,y) ->
-      let c = Chars.to_char c in
-      Format.fprintf ppf "%s" (Char.escaped c);
+      Chars.print_v_in_string ppf c;
       print_str ppf y
   | v ->
       Format.fprintf ppf "\' ";