let
stag_no_args loc sexp =
of_sexp_error (loc ^
"_of_sexp: sum tag does not take arguments"
) sexp