Commit d9699baa authored by Pietro Abate's avatar Pietro Abate

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

Original author: afrisch
Date: 2007-05-23 16:28:13+00:00
parent 12acb29b
......@@ -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