projects
/
tatoo.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'master' of ssh://git.nguyen.vg/tatoo
[tatoo.git]
/
src
/
hcons.ml
diff --git
a/src/hcons.ml
b/src/hcons.ml
index
3fc3e71
..
cc7327a
100644
(file)
--- 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
*)
include Hcons_sig
@@
-51,7
+51,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