Commit 8bc94f59 authored by bguillaum's avatar bguillaum

dead code

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/semagramme/libcaml-grew/trunk@8831 7838e531-6607-4d57-9587-6c381814729c
parent 16259e35
......@@ -390,13 +390,6 @@ module List_ = struct
| x1::t1, x2::t2 -> loop (t1, t2) in
loop (l1,l2)
let foldi_left f init l =
fst
(List.fold_left
(fun (acc,i) elt -> (f i acc elt, i+1))
(init,0) l
)
let prev_next_iter fct list =
let int_fct prev next elt = fct ?prev ?next elt in
let rec loop prev = function
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment