list_ext.ml
picos_std.event
picos_std.finally
picos_std.structured
picos_std.sync
1 2 3 let[@tail_mod_cons] rec drop_first_or_not_found x' = function | [] -> raise_notrace Not_found | x :: xs -> if x == x' then xs else x :: drop_first_or_not_found x' xs
1 2 3
let[@tail_mod_cons] rec drop_first_or_not_found x' = function | [] -> raise_notrace Not_found | x :: xs -> if x == x' then xs else x :: drop_first_or_not_found x' xs