simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-18 16:46:40 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge 0c7f4a5d08 into c359b3d570

Browse source
This commit is contained in:
Thomas Gazagnaire 2017-01-25 15:49:54 +00:00 • committed by GitHub
commit f04fa87f45
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/data/CCCache.ml
View file

@ -290,7 +290,7 @@ module LRU(X:HASH) = struct
let set c x y = let set c x y =
let len = H.length c.table in let len = H.length c.table in
assert (len <= c.size); assert (len <= c.size);
if len = c.size if len = c.size || H.mem c.table x
then replace_ c x y then replace_ c x y
else insert_ c x y else insert_ c x y