[r2003-05-22 14:32:04 by cvscast] print 'false' XML elements

Original author: cvscast
Date: 2003-05-22 14:32:04+00:00

runtime/value.ml

@@ -141,12 +141,18 @@ and print_seq ppf = function
   | _ -> ()
 
 and print_xml ppf = function
-  | (Atom tag, Pair (Record attr,content)) ->
+  | (tag, Pair (attr,content)) ->
       Format.fprintf ppf "@[<hv2><%a%a>[@ %a@]]"
-      Utf8.print (Atoms.value tag)
-      print_record (LabelMap.get attr)
+      print_tag tag
+      print_attr attr
       print_seq content
   | _ -> assert false
+and print_tag ppf = function
+  | Atom tag -> Utf8.print ppf (Atoms.value tag)
+  | tag -> Format.fprintf ppf "(%a)" print tag
+and print_attr ppf = function
+  | Record attr -> print_record ppf (LabelMap.get attr)
+  | attr -> Format.fprintf ppf "(%a)" print attr
 
 and print_record ppf = function
   | [] -> ()