let find_list mode filenames options = let l = ref [] in find mode filenames options (fun s -> l := s :: !l); List.rev !l