MAJ terminée. Nous sommes passés en version 14.6.2 . Pour consulter les "releases notes" associées c'est ici :

Commit 8bc94f59 authored by bguillaum's avatar bguillaum
Browse files

dead code

git-svn-id: svn+ssh:// 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 =
(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