let mk_annot_list parse_state annot_lst pos = let range = get_annot_range parse_state pos in let sexp = List (List.rev (List.rev_map Annot.get_sexp annot_lst)) in Annot.List (range, annot_lst, sexp)