val call_switcher_variant_constant :
(Lambda.scoped_location ->
Lambda.lambda option ->
Lambda.lambda ->
(int * (string * Lambda.lambda)) list ->
Lambda.switch_names option ->
Lambda.lambda)
refval call_switcher_variant_constr :
(Lambda.scoped_location ->
Lambda.lambda option ->
Lambda.lambda ->
(int * (string * Lambda.lambda)) list ->
Lambda.switch_names option ->
Lambda.lambda)
refval make_test_sequence_variant_constant :
(Lambda.lambda option ->
Lambda.lambda ->
(int * (string * Lambda.lambda)) list ->
Lambda.lambda)
refval for_function :
scopes:Debuginfo.Scoped_location.scopes ->
Location.t ->
int ref option ->
Lambda.lambda ->
(Typedtree.pattern * Lambda.lambda) list ->
Typedtree.partial ->
Lambda.lambdaval for_trywith :
scopes:Debuginfo.Scoped_location.scopes ->
Location.t ->
Lambda.lambda ->
(Typedtree.pattern * Lambda.lambda) list ->
Lambda.lambdaval for_let :
scopes:Debuginfo.Scoped_location.scopes ->
Location.t ->
Lambda.lambda ->
Typedtree.pattern ->
Lambda.lambda ->
Lambda.lambdaval for_multiple_match :
scopes:Debuginfo.Scoped_location.scopes ->
Location.t ->
Lambda.lambda list ->
(Typedtree.pattern * Lambda.lambda) list ->
Typedtree.partial ->
Lambda.lambdaval for_tupled_function :
scopes:Debuginfo.Scoped_location.scopes ->
Location.t ->
Ident.t list ->
(Typedtree.pattern list * Lambda.lambda) list ->
Typedtree.partial ->
Lambda.lambdaval flatten_pattern : int -> Typedtree.pattern -> Typedtree.pattern listval expand_stringswitch :
Lambda.scoped_location ->
Lambda.lambda ->
(string * Lambda.lambda) list ->
Lambda.lambda option ->
Lambda.lambdaval inline_lazy_force :
Lambda.lambda ->
Lambda.scoped_location ->
Lambda.lambdaval names_from_construct_pattern :
(Patterns.Head.desc Typedtree.pattern_data -> Lambda.switch_names option) ref