style: small fix

This commit is contained in:
Simon Cruanes 2019-10-22 17:31:15 -05:00
parent c4631b78dc
commit 1b8d9ca9a6

View file

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