- Removed the direct calls to TextCollection, use XMLTree wrapper instead

[SXSI/xpathcomp.git] / tag.ml

diff --git a/tag.ml b/tag.ml
index b692df7..f0d9062 100644 (file)
--- a/tag.ml
+++ b/tag.ml
@@ -82,6 +82,7 @@ struct
   let pcdata = T.pcdata
   external tag : string -> t = "%identity"
   external clear_pool : unit -> unit = "%identity"
+  let init _ = ()
   let compare = String.compare
   let equal = (=)
   let print fmt s = Format.fprintf fmt "%s" s