Small optimization (replace lor 1 by + 1)

[SXSI/xpathcomp.git] / src / finiteCofinite.ml

diff --git a/src/finiteCofinite.ml b/src/finiteCofinite.ml
index ecd0a56..db6ce31 100644 (file)
--- a/src/finiteCofinite.ml
+++ b/src/finiteCofinite.ml
@@ -62,7 +62,7 @@ struct
                                 | _ -> false
                             let hash = function
                               Finite (s) -> (E.hash s) lsl 1
-                            | CoFinite(s) -> ((E.hash s) lsl 1 ) lor 1
+                            | CoFinite(s) -> ((E.hash s) lsl 1 ) + 1
                           end)
   type t = Node.t
   let empty = Node.make (Finite E.empty)