Commit 61f370d7 authored by Pietro Abate's avatar Pietro Abate
Browse files

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

Original author: cvscast
Date: 2003-05-10 15:07:38+00:00
parent dda6d588
......@@ -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 "\' ";
......
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