fix bug in PHashtbl

This commit is contained in:
Simon Cruanes 2015-08-25 09:48:02 +02:00
parent 73c84e14cc
commit 2be5f2f638

View file

@ -204,6 +204,7 @@ let map f t =
| Used (k, v, dist) ->
t'.buckets.(i) <- Used (k, f k v, dist)
done;
t'.size <- t.size;
t'
(** Destructive filter (remove bindings that do not satisfiy predicate) *)