let record_superfluous_fields ~what ~loc rev_fld_names sexp = let fld_names_str = String.concat " " (List.rev rev_fld_names) in let msg = sprintf "%s_of_sexp: %s: %s" loc what fld_names_str in of_sexp_error msg sexp