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

fix: CCRAL.remove does not remove

Browse source
This commit is contained in:
Josh Berdine 2021-04-15 21:35:43 +01:00 • committed by Simon Cruanes
parent b19cd0db5f
commit 0ab8597b78
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/CCRAL.ml
View file

@ -116,7 +116,7 @@ let front_exn l = match l with
let rec _remove prefix l i = let rec _remove prefix l i =
let x, l' = front_exn l in let x, l' = front_exn l in
if i=0 if i=0
then List.fold_left (fun l x -> cons x l) l prefix then List.fold_left (fun l x -> cons x l) l' prefix
else _remove (x::prefix) l' (i-1) else _remove (x::prefix) l' (i-1)
let remove l i = _remove [] l i let remove l i = _remove [] l i