Eta expand (land) and (lor) to fun a b -> a land b

[SXSI/xpathcomp.git] / tag.ml

diff --git a/tag.ml b/tag.ml
index b692df7..8c77691 100644 (file)
--- a/tag.ml
+++ b/tag.ml
@@ -29,13 +29,16 @@ struct
 end
 
 module HMap = Map.Make (struct type t = int  let compare x y = x - y end)
+
 module HTag =
 struct
 type t = int
 let attribute =  T.hash T.attribute
 let pcdata = T.hash  T.pcdata
+
 let pool = ref HMap.empty
 
+
 let add_pool s =
   let hash = T.hash s in 
     pool := HMap.add hash s !pool
@@ -45,10 +48,11 @@ let clear_pool () =
   add_pool "";
   add_pool T.attribute;
   add_pool T.pcdata
-
   
 let _ = clear_pool ()
 
+let init l = 
+  clear_pool ()
 
 let tag s = 
   let hash = T.hash s in
@@ -82,6 +86,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
@@ -90,4 +95,3 @@ struct
 end
 
 include STag
-let _ = Callback.register "caml_hash_tag" tag