let
unexpected_stag loc sexp =
of_sexp_error (loc ^
"_of_sexp: unexpected sum tag"
) sexp