Commit 7271cba4 authored by Pietro Abate's avatar Pietro Abate
Browse files

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

Original author: afrisch
Date: 2007-05-23 16:28:13+00:00
parent d12207a5
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment