1 files changed, 0 insertions, 4 deletions
diff --git a/lib/util.ml b/lib/util.ml
index c293e4dfda..9ade75147b 100644
--- a/lib/util.ml
+++ b/lib/util.ml
@@ -100,10 +100,6 @@ let iterate =
 let repeat n f x =
   let rec loop i = if i <> 0 then (f x; loop (i - 1)) in loop n
 
-let iterate_for a b f x =
-  let rec iterate i v = if i > b then v else iterate (succ i) (f i v) in
-  iterate a x
-
 let app_opt f x =
   match f with
   | Some f -> f x