simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 11:15:31 -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 else match PArray.get buckets i with
| Used (key, value) -> | Used (key, value) ->
(* insert key -> value into new array *) (* insert key -> value into new array *)
insert buckets' (X.hash key) key value let buckets' = insert buckets' (X.hash key) key value in
| _ -> buckets' tranfer buckets' (i+1)
| _ ->
tranfer buckets' (i+1)
in tranfer buckets' 0 in tranfer buckets' 0
(** Lookup [key] in the table *) (** Lookup [key] in the table *)