let parse_scripts file = if Sys.file_exists file then let input = Script.open_file file in try collect_scripts input ; Script.close input ; with e -> Script.close input ; raise e