From 710266e09cffb6083ff7a381206bee43f154811b Mon Sep 17 00:00:00 2001
From: Dave Aitken <dave.aitken@gmail.com>
Date: Sun, 4 Feb 2018 17:34:30 +0000
Subject: [PATCH] Don't reverse twice in CCList.repeat

---
 src/core/CCList.ml | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/core/CCList.ml b/src/core/CCList.ml
index 3da6407f..acbcc57b 100644
--- a/src/core/CCList.ml
+++ b/src/core/CCList.ml
@@ -1253,11 +1253,15 @@ let replicate i x =
     else aux (x::acc) (i-1)
   in aux [] i
 
+
+(*$T
+  repeat 2 [1;2;3] = [1;2;3;1;2;3]
+*)
+
 let repeat i l =
-  let l' = List.rev l in
   let rec aux acc i =
     if i = 0 then List.rev acc
-    else aux (List.rev_append l' acc) (i-1)
+    else aux (List.rev_append l acc) (i-1)
   in aux [] i
 
 module Assoc = struct