Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug fix: Hashtbl.filter_map_inplace did not correctly update the size field.

master
Alain Frisch 2016-03-10 14:42:36 +01:00
parent 0310ff4415
commit af09eacaf2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
stdlib/hashtbl.ml
View File

@ -200,7 +200,7 @@ let filter_map_inplace f h =
Empty Empty
| Cons(k, d, rest) -> | Cons(k, d, rest) ->
match f k d with match f k d with
| None -> do_bucket rest | None -> h.size <- h.size - 1; do_bucket rest
| Some new_d -> Cons(k, new_d, do_bucket rest) | Some new_d -> Cons(k, new_d, do_bucket rest)
in in
let d = h.data in let d = h.data in