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

fixed stupid bug in FHashble.Flat

Browse source
This commit is contained in:
Simon Cruanes 2013-03-07 16:12:53 +01:00
parent 0320630b2d
commit b5a9ae03e7
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
fHashtbl.ml
View file

@ -353,8 +353,10 @@ module Flat(X : HASH) = struct
else match PArray.get buckets i with
| Used (key, value) ->
(* insert key -> value into new array *)
insert buckets' (X.hash key) key value
| _ -> buckets'
let buckets' = insert buckets' (X.hash key) key value in
tranfer buckets' (i+1)
| _ ->
tranfer buckets' (i+1)
in tranfer buckets' 0
(** Lookup [key] in the table *)