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

style: small fix

Browse source
This commit is contained in:
Simon Cruanes 2019-10-22 17:31:15 -05:00
parent c4631b78dc
commit 1b8d9ca9a6
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/data/CCDeque.ml
View file

@ -370,9 +370,9 @@ let filter_in_place (d:_ t) f : unit =
new_cell new_cell
in in
let rec loop ~stop_at n : unit = let rec loop ~stop_at n : unit =
let n_prev = n.prev in
let n_next = n.next in
if n != stop_at then ( if n != stop_at then (
let n_prev = n.prev in
let n_next = n.next in
let new_cell = update_local_ n in let new_cell = update_local_ n in
(* merge into previous cell *) (* merge into previous cell *)
begin match n_prev.cell, new_cell with begin match n_prev.cell, new_cell with