Genprintval.Maketype t = O.tval outval_of_untyped_exception : t -> Outcometree.out_valueval outval_of_value :
int ->
int ->
(int -> t -> Types.type_expr -> Outcometree.out_value option) ->
Env.t ->
t ->
Types.type_expr ->
Outcometree.out_value