[r2007-05-23 16:28:13 by afrisch] Empty log message

Original author: afrisch
Date: 2007-05-23 16:28:13+00:00

runtime/value.ml

@@ -264,7 +264,7 @@ let rec is_str = function
 let rec print ppf v =
   if is_str v then 
     (Format.fprintf ppf "\"";
-     print_quoted_str ppf v;
+     ignore (print_quoted_str ppf v);
      Format.fprintf ppf "\"")
   else if is_seq v then Format.fprintf ppf "[ @[<hv>%a@]]" print_seq v
   else  match v with