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= ...@@ -38,7 +38,7 @@ let string_of_xml v=
and text s = wds s in and text s = wds s in
let rec print_elt = function 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 let tag = Types.AtomPool.value tag in
element_start tag element_start tag
(List.map (fun (n,v) -> (List.map (fun (n,v) ->
......
...@@ -20,7 +20,7 @@ let fun sort (MPerson -> Man ; FPerson -> Woman) ...@@ -20,7 +20,7 @@ let fun sort (MPerson -> Man ; FPerson -> Woman)
;; ;;
let base : Person = let base : Person =
<person gender="M">[ <person gender="M">[
<name>"Claude" <nme>"Claude"
<children>[ <children>[
<person gender="F">[ <person gender="F">[
<name>"Vronique" <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