Commit 17a3af36 authored by Pietro Abate's avatar Pietro Abate

[r2006-09-11 12:33:52 by afrisch] Empty log message

Original author: afrisch
Date: 2006-09-11 12:33:52+00:00
parent f5f702bb
......@@ -270,7 +270,7 @@ let rec print ppf v =
else match v with
| Pair (x,y) -> Format.fprintf ppf "(%a,%a)" print x print y
| Xml (x,y,z) | XmlNs (x,y,z,_) -> print_xml ppf x y z
| Record l -> Format.fprintf ppf "{%a }" print_record (Imap.elements l)
| Record l -> Format.fprintf ppf "@[{%a }@]" print_record (Imap.elements l)
| Atom a -> Atoms.V.print_quote ppf a
| Integer i -> Intervals.V.print ppf i
| Char c -> Chars.V.print ppf c
......@@ -341,7 +341,7 @@ and print_attr ppf = function
and print_record ppf = function
| [] -> ()
| f :: rem -> Format.fprintf ppf " %a" print_field f; print_record ppf rem
| f :: rem -> Format.fprintf ppf "@ %a" print_field f; print_record ppf rem
and print_field ppf (l,v) =
Format.fprintf ppf "%a=%a" Label.print_attr (Label.from_int l) print v
......
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