fix stupid typo

This commit is contained in:
Simon Cruanes 2022-02-03 19:13:43 -05:00
parent 0baa4fddec
commit 02c0953468
No known key found for this signature in database
GPG key ID: 4AC01D0849AA62B6

View file

@ -84,7 +84,7 @@ let[@inline] array_is_empty_ v =
(* next capacity, if current one is [n] *)
let[@inline] next_grow_ n =
min Sys.max_array_length (n + n lsl 1 + 5)
min Sys.max_array_length (n + n lsr 1 + 5)
(* resize the underlying array using x to temporarily fill the array *)
let resize_ v newcapacity x =