mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-06 03:05:28 -05:00
fix build
This commit is contained in:
parent
04440deb39
commit
8dca0ea78d
1 changed files with 2 additions and 2 deletions
|
|
@ -127,7 +127,7 @@ let rec insert_tail_ (self : _ tree) shift i (tail : _ A.t) : _ tree =
|
||||||
if must_push then
|
if must_push then
|
||||||
A.push a new_sub
|
A.push a new_sub
|
||||||
else
|
else
|
||||||
A.set ~mut:false a idx new_sub
|
A.set a idx new_sub
|
||||||
in
|
in
|
||||||
Node a
|
Node a
|
||||||
|
|
||||||
|
|
@ -167,7 +167,7 @@ let rec pop_tail_from_tree_ (self : _ tree) shift i : 'a A.t * 'a tree =
|
||||||
else
|
else
|
||||||
Node a
|
Node a
|
||||||
) else
|
) else
|
||||||
Node (A.set ~mut:false a idx new_sub)
|
Node (A.set a idx new_sub)
|
||||||
in
|
in
|
||||||
tail, new_tree
|
tail, new_tree
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue