let has_import env filename = let rec loop = function | [] -> false | s:: tl -> if s = filename then true else loop tl in loop env.imported