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

potential bugfix for Enum.to_rev_list

Browse source
This commit is contained in:
Simon Cruanes 2013-03-19 00:35:54 +01:00
parent a3c7b70e53
commit 101fc8a01e
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
enum.ml
View file

@ -170,7 +170,7 @@ let to_list enum =
let to_rev_list enum = let to_rev_list enum =
let rec fold acc gen = let rec fold acc gen =
let acc', stop = let acc', stop =
try gen () :: acc, true try let x = gen () in x :: acc, true
with EOG -> acc, false with EOG -> acc, false
in if stop then acc' else fold acc' gen in if stop then acc' else fold acc' gen
in in