let no_matching_variant_found loc sexp =
  of_sexp_error (loc ^ ": no matching variant found") sexp