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)