diff options
| -rw-r--r-- | lib/util.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/util.ml b/lib/util.ml index bc6a1ceac5..a5ed584cde 100644 --- a/lib/util.ml +++ b/lib/util.ml @@ -87,9 +87,9 @@ let compose f g x = f (g x) let const x _ = x -let iterate f = - let rec iterate_f n x = - if n <= 0 then x else iterate_f (pred n) (f x) +let iterate = + let rec iterate_f f n x = + if n <= 0 then x else iterate_f f (pred n) (f x) in iterate_f |