X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=tag.ml;h=f0d90622bc4cc03c90e7643c0ec5331f69a97378;hb=b821684aac2e3114c2eb28188020d7a09b5de2a5;hp=2be3ee00128ddda2ef6a437c95a4e7c7b0fae8aa;hpb=3623eefccfb5fc69e19ad975a3669f51a2a8b276;p=SXSI%2Fxpathcomp.git

diff --git a/tag.ml b/tag.ml
index 2be3ee0..f0d9062 100644
--- 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
@@ -89,5 +90,5 @@ struct
 
 end
 
-include HTag
+include STag
 let _ = Callback.register "caml_hash_tag" tag