let env_path = lazy begin
  let path_var = Sys.getenv "PATH" in
  let paths =
    try
      Lexers.parse_environment_path (Lexing.from_string path_var)
    with Lexers.Error msg -> raise (Lexers.Error ("$PATH: " ^ msg))
  in
  let norm_current_dir_name path =
    if path = "" then Filename.current_dir_name else path
  in
  List.map norm_current_dir_name paths
end