X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=src%2Fhcons.ml;h=cc7327aeec4e33c87020713481acbfd2a031dd7e;hp=3fc3e71a9de341af365f327cab962a3df0b99ef5;hb=974dacbf4f625bfd8ea83db69d6b346050141fea;hpb=b00bff88c7902e828804c06b7f9dc55222fdc84e

diff --git a/src/hcons.ml b/src/hcons.ml
index 3fc3e71..cc7327a 100644
--- a/src/hcons.ml
+++ b/src/hcons.ml
@@ -14,7 +14,7 @@
 (***********************************************************************)
 
 (*
-  Time-stamp: <Last modified on 2013-03-04 22:39:39 CET by Kim Nguyen>
+  Time-stamp: <Last modified on 2013-03-18 00:16:08 CET by Kim Nguyen>
 *)
 
 include Hcons_sig
@@ -51,7 +51,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