Lwt_sequence: Fix iteration going the wrong way (#405)

ocsigen · Jul 4, 2017 · f180e24 · f180e24
1 parent ccbb502
commit f180e24
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/lwt_sequence.ml b/src/core/lwt_sequence.ml
@@ -203,7 +203,7 @@ let fold_r f seq acc =
       if node.node_active then
         loop node.node_prev (f node.node_data acc)
       else
-        loop node.node_next acc
+        loop node.node_prev acc
   in
   loop seq.prev acc