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
end
-include HTag
+include STag
let _ = Callback.register "caml_hash_tag" tag