let make_absolute path_base path_path =
    if is_relative path_base then
      raise FilePathBaseFilenameRelative
    else if is_relative path_path then
      reduce (path_base @ path_path)
    else
      reduce (path_path)