This commit is contained in:
Simon Cruanes 2021-08-20 18:16:42 -04:00
parent 1ab7d34a7d
commit 4cada7e7b6
No known key found for this signature in database
GPG key ID: 4AC01D0849AA62B6

View file

@ -38,7 +38,7 @@ let resize_cap_ self new_cap =
let ensure_cap self (n:int) =
if n > A.dim self.data then (
let new_cap = max n (A.dim self.data * 2 + 10) in
let new_cap = max n (max 4 (A.dim self.data * 2)) in
resize_cap_ self new_cap;
)