Implement set-theoretic operation on 2WSATA (union, intersection,

[tatoo.git] / src / hcons.ml

diff --git a/src/hcons.ml b/src/hcons.ml
index 3fc3e71..c950458 100644 (file)
--- a/src/hcons.ml
+++ b/src/hcons.ml
@@ -13,10 +13,6 @@
 (*                                                                     *)
 (***********************************************************************)
 
-(*
-  Time-stamp: <Last modified on 2013-03-04 22:39:39 CET by Kim Nguyen>
-*)
-
 include Hcons_sig
 
 module type TableBuilder =
@@ -51,7 +47,7 @@ struct
   let dummy x = { id = Uid.dummy; hash = H.hash x; node = x }
 
   let make x =
-    let cell = { id = Uid.dummy; hash = H.hash x; node = x } in
+    let cell = dummy x in
     try
       T.find pool cell
     with