projects
/
tatoo.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Print detailed statisticts of the run.
[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 =
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 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
try
T.find pool cell
with