diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-04-22 15:31:12 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-04-23 12:09:14 +0200 |
| commit | 74ddca99c649f2f8c203582a9b82bddf64fb6b52 (patch) | |
| tree | f23aa6340c2630619864666ef5eed257d3d765d9 /lib/util.ml | |
| parent | d23c7539887366202bc370d0f80c26a557486e1c (diff) | |
Removing dead code, thanks to new OCaml warnings and a bit of scripting.
Diffstat (limited to 'lib/util.ml')
| -rw-r--r-- | lib/util.ml | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/lib/util.ml b/lib/util.ml index c293e4dfd..9ade75147 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 |