From 101fc8a01efe4912db46840401ac22ab6bcf875c Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Tue, 19 Mar 2013 00:35:54 +0100
Subject: [PATCH] potential bugfix for Enum.to_rev_list

---
 enum.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/enum.ml b/enum.ml
index b30c8c06..49bd5583 100644
--- a/enum.ml
+++ b/enum.ml
@@ -170,7 +170,7 @@ let to_list enum =
 let to_rev_list enum =
   let rec fold acc gen =
     let acc', stop =
-      try gen () :: acc, true
+      try let x = gen () in x :: acc, true
       with EOG -> acc, false
     in if stop then acc' else fold acc' gen
   in