let insert_query = fun db ~name ~query ~comment ->
validate_name_exn name;
if query_by_name_opt db name <> None then
raise (Duplicated_name name);
let query = { qry_name = name;
qry_db = db;
qry_query = query;
qry_comment = comment; }
in
db.db_queries <- db.db_queries @ [query];
query