Commit cb22215d authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2002-11-13 22:47:46 by cvscast] Empty log message

Original author: cvscast
Date: 2002-11-13 22:47:46+00:00
parent 2f8aca20
......@@ -38,7 +38,7 @@ let string_of_xml v=
and text s = wds s in
let rec print_elt = function
| Pair (Atom tag, Pair (Record attrs, content)) ->
| Xml (Atom tag, Pair (Record attrs, content)) ->
let tag = Types.AtomPool.value tag in
element_start tag
(List.map (fun (n,v) ->
......
......@@ -20,7 +20,7 @@ let fun sort (MPerson -> Man ; FPerson -> Woman)
;;
let base : Person =
<person gender="M">[
<name>"Claude"
<nme>"Claude"
<children>[
<person gender="F">[
<name>"Vronique"
......
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