Remove trailing white spaces

[SXSI/xpathcomp.git] / tag.ml

diff --git a/tag.ml b/tag.ml
index ec80df4..c692e98 100644 (file)
--- a/tag.ml
+++ b/tag.ml
@@ -13,9 +13,10 @@ type pool
 external null_pool : unit -> pool = "caml_xml_tree_nullt"
 external null_tag : unit -> t = "caml_xml_tree_nullt"
 external register_tag : pool -> string -> t = "caml_xml_tree_register_tag"
-external tag_name : pool -> t -> string = "caml_xml_tree_tag_name"
+external tag_name : pool -> t -> string = "caml_xml_tree_get_tag_name"
 
 let nullt = null_tag ()   
+let dummy = nullt
 (* Defined in XMLTree.cpp *)
 let document_node = 0
 let attribute = 1