-
- external get_text : t -> [`Text] node -> string = "caml_text_collection_get_text"
- let is_empty t (n : [`Text] node) = "" = (get_text t n)
+ external nullt : unit -> [`Text ] node = "caml_xml_tree_nullt"
+ let nil = nullt ()
+ external get_text1 : t -> [`Text] node -> string = "caml_text_collection_get_text"
+
+ let get_text t n = Printf.printf "@@@@@@%i\n%!" (Obj.magic n);
+ if equal nil n then ""
+ else get_text1 t n
+
+ let is_empty t (n : [`Text] node) = (get_text t n) = ""
+
+ end
+