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 fixes

Browse source
This commit is contained in:
Simon Cruanes 2018-01-28 10:31:07 -06:00
parent 364890ca36
commit 3b8f7099cb
2 changed files with 9 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
src/core/CCHeap.ml
View file

@ -258,20 +258,19 @@ module Make(E : PARTIAL_ORD) : S with type elt = E.t = struct
let delete_one eq x h = let delete_one eq x h =
let rec aux = function let rec aux = function
| E -> false, E | E -> false, E
| N(_, y, l, r) as h -> begin | N(_, y, l, r) as h ->
if eq x y then true, merge l r if eq x y then true, merge l r
else begin else (
if E.leq y x if E.leq y x
then begin then (
let found_left, l1 = aux l in let found_left, l1 = aux l in
let found, r1 = if found_left then true, r else aux r in let found, r1 = if found_left then true, r else aux r in
if found if found
then true, _make_node y l1 r1 then true, _make_node y l1 r1
else false, h else false, h
end )
else false, h else false, h
end )
end
in in
snd (aux h) snd (aux h)
@ -279,11 +278,11 @@ module Make(E : PARTIAL_ORD) : S with type elt = E.t = struct
| E -> E | E -> E
| N (_, y, l, r) as h -> | N (_, y, l, r) as h ->
if eq x y then merge (delete_all eq x l) (delete_all eq x r) if eq x y then merge (delete_all eq x l) (delete_all eq x r)
else begin else (
if E.leq y x if E.leq y x
then _make_node y (delete_all eq x l) (delete_all eq x r) then _make_node y (delete_all eq x l) (delete_all eq x r)
else h else h
end )
let rec iter f h = match h with let rec iter f h = match h with
| E -> () | E -> ()