let rename_query = fun query ~name ->
if query.qry_name <> name then begin
validate_name_exn name;
match query_by_name_opt query.qry_db name with
| None -> query.qry_name <- name
| Some _ -> raise (Duplicated_name name)
end