simon/iter
1
0
Fork 0
mirror of https://github.com/c-cube/iter.git synced 2025-12-06 03:05:29 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

bugfix in Sequence.MList.iter_rev

Browse source
This commit is contained in:
Simon Cruanes 2013-02-27 21:10:09 +01:00
parent 2ba0cfe2f4
commit 942023cdd7
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
sequence.ml
View file

@ -148,8 +148,8 @@ module MList = struct
if l.tl != _empty () then iteri (i+l.len) f l.tl if l.tl != _empty () then iteri (i+l.len) f l.tl
in iteri 0 f l in iteri 0 f l
let iter_rev f l = let rec iter_rev f l =
(if l.tl != _empty () then iter f l.tl); (if l.tl != _empty () then iter_rev f l.tl);
for i = l.len - 1 downto 0 do f l.content.(i); done for i = l.len - 1 downto 0 do f l.content.(i); done
let length l = let length l =