X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=src%2Fhcons.ml;h=1fc059c636252dc46791f1e81de3b983be9e2453;hp=6a40b06b1dd326c2b02bef712e87be51ad141fd7;hb=d9c0e4863807eaf472e875a4bad35cfefe985c95;hpb=9c0b145d050a5981010435f54848dc862782709c

diff --git a/src/hcons.ml b/src/hcons.ml
index 6a40b06..1fc059c 100644
--- a/src/hcons.ml
+++ b/src/hcons.ml
@@ -14,7 +14,7 @@
 (***********************************************************************)
 
 (*
-  Time-stamp: <Last modified on 2013-01-30 19:08:47 CET by Kim Nguyen>
+  Time-stamp: <Last modified on 2013-02-06 14:26:22 CET by Kim Nguyen>
 *)
 
 include Sigs.HCONS
@@ -48,6 +48,7 @@ struct
   let init () =
     T.clear pool;
     uid_make := Uid.make_maker ()
+  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
@@ -76,7 +77,7 @@ struct
   let hash v = v
 
   let uid v = Uid.of_int v
-
+  let dummy _ = ~-1
   let equal x y = x == y
 
   let init () = ()