simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 03:05:28 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix

Browse source
This commit is contained in:
Simon Cruanes 2022-07-04 14:37:24 -04:00
parent 2b5b2a0e02
commit 856e73d2b2
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/data/CCBV.ml
View file

@ -144,7 +144,7 @@ let resize_minimize_memory bv size =
let is_empty bv = let is_empty bv =
try try
for i = 0 to Bytes.length bv.b - 1 do for i = 0 to Bytes.length bv.b - 1 do
if get_ bv.b i <> 1 then raise_notrace Exit if get_ bv.b i <> 0 then raise_notrace Exit
done; done;
true true
with Exit -> false with Exit -> false