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

Original author: cvscast
Date: 2002-11-13 22:47:46+00:00

runtime/print_xml.ml

@@ -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) -> 

tests/overloading.cd

@@ -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"