[r2003-05-10 14:58:18 by cvscast] Empty log message

Original author: cvscast
Date: 2003-05-10 14:58:18+00:00

runtime/value.ml

@@ -105,7 +105,9 @@ and print_quoted_str ppf = function
       Chars.print_v_in_string ppf c; 
       print_quoted_str ppf q
   | String_latin1 (i,j,s, q) ->
-      Format.fprintf ppf "%s" (String.escaped (String.sub s i (j-i)));
+      for k = i to j do
+	Chars.print_v_in_string ppf (Chars.mk_char s.[k])
+      done;
       print_quoted_str ppf q
   | String_utf8 (i,j,s, q) ->
       assert false