@@ -3398,7 +3398,7 @@ var Types_TypeOps = {
33983398};
33993399
34003400var Types_Variance = {
3401- null: 0,
3401+ $$ null: 0,
34023402 full: 127,
34033403 covariant: 25,
34043404 may_inv: 7,
@@ -7688,7 +7688,7 @@ var Ast_helper_Exp = {
76887688 pack: pack,
76897689 open_: open_,
76907690 extension: extension$2,
7691- case: $$case
7691+ $$ case: $$case
76927692};
76937693
76947694var Ast_helper_Ctf = {
@@ -17372,13 +17372,13 @@ var yyact = /* array */[
1737217372 (function (__caml_parser_env) {
1737317373 var _1 = Parsing.peek_val(__caml_parser_env, 2);
1737417374 var _3 = Parsing.peek_val(__caml_parser_env, 0);
17375- return Curry._3(Ast_helper_Exp.case, _1, undefined, _3);
17375+ return Curry._3(Ast_helper_Exp.$$ case, _1, undefined, _3);
1737617376 }),
1737717377 (function (__caml_parser_env) {
1737817378 var _1 = Parsing.peek_val(__caml_parser_env, 4);
1737917379 var _3 = Parsing.peek_val(__caml_parser_env, 2);
1738017380 var _5 = Parsing.peek_val(__caml_parser_env, 0);
17381- return Curry._3(Ast_helper_Exp.case, _1, _3, _5);
17381+ return Curry._3(Ast_helper_Exp.$$ case, _1, _3, _5);
1738217382 }),
1738317383 (function (__caml_parser_env) {
1738417384 return Parsing.peek_val(__caml_parser_env, 0);
@@ -58599,7 +58599,7 @@ function type_expect_(in_function, env, sexp, ty_expected) {
5859958599 /* pexp_desc : Pexp_match */Block.__(6, [
5860058600 match$8[/* pvb_expr */1],
5860158601 /* :: */[
58602- Curry._3(Ast_helper_Exp.case, spat, undefined, match[2]),
58602+ Curry._3(Ast_helper_Exp.$$ case, spat, undefined, match[2]),
5860358603 /* [] */0
5860458604 ]
5860558605 ]),
@@ -58657,7 +58657,7 @@ function type_expect_(in_function, env, sexp, ty_expected) {
5865758657 ];
5865858658 }
5865958659 var default_loc = $$default[/* pexp_loc */1];
58660- var scases_000 = Curry._3(Ast_helper_Exp.case, construct(default_loc, undefined, /* record */[
58660+ var scases_000 = Curry._3(Ast_helper_Exp.$$ case, construct(default_loc, undefined, /* record */[
5866158661 /* txt : Ldot */Block.__(1, [
5866258662 /* Lident */Block.__(0, ["*predef*"]),
5866358663 "Some"
@@ -58671,7 +58671,7 @@ function type_expect_(in_function, env, sexp, ty_expected) {
5867158671 /* loc */none
5867258672 ]));
5867358673 var scases_001 = /* :: */[
58674- Curry._3(Ast_helper_Exp.case, construct(default_loc, undefined, /* record */[
58674+ Curry._3(Ast_helper_Exp.$$ case, construct(default_loc, undefined, /* record */[
5867558675 /* txt : Ldot */Block.__(1, [
5867658676 /* Lident */Block.__(0, ["*predef*"]),
5867758677 "None"
@@ -64424,7 +64424,7 @@ function get_variance(ty, visited) {
6442464424 }
6442564425 catch (exn){
6442664426 if (exn === Caml_builtin_exceptions.not_found) {
64427- return Types_Variance.null;
64427+ return Types_Variance.$$ null;
6442864428 } else {
6442964429 throw exn;
6443064430 }
@@ -64521,7 +64521,7 @@ function compute_variance(env, visited, vari, ty) {
6452164521 } else if (match.tag) {
6452264522 var upper = List.fold_left((function (s, f) {
6452364523 return Curry._3(Types_Variance.set, f, true, s);
64524- }), Types_Variance.null, /* :: */[
64524+ }), Types_Variance.$$ null, /* :: */[
6452564525 /* May_pos */0,
6452664526 /* :: */[
6452764527 /* May_neg */1,
@@ -64572,7 +64572,7 @@ function compute_variance(env, visited, vari, ty) {
6457264572}
6457364573
6457464574function make(p, n, i) {
64575- return Curry._3(Types_Variance.set, /* May_pos */0, p, Curry._3(Types_Variance.set, /* May_neg */1, n, Curry._3(Types_Variance.set, /* May_weak */2, n, Curry._3(Types_Variance.set, /* Inj */3, i, Types_Variance.null))));
64575+ return Curry._3(Types_Variance.set, /* May_pos */0, p, Curry._3(Types_Variance.set, /* May_neg */1, n, Curry._3(Types_Variance.set, /* May_weak */2, n, Curry._3(Types_Variance.set, /* Inj */3, i, Types_Variance.$$ null))));
6457664576}
6457764577
6457864578function compute_variance_type(env, check, param, decl, tyl) {
@@ -64673,7 +64673,7 @@ function compute_variance_type(env, check, param, decl, tyl) {
6467364673 } else {
6467464674 return v;
6467564675 }
64676- }), tvl2[0], Types_Variance.null);
64676+ }), tvl2[0], Types_Variance.$$ null);
6467764677 backtrack(snap);
6467864678 var match = Curry._1(Types_Variance.get_upper, v1);
6467964679 var n1 = match[1];
@@ -65022,7 +65022,7 @@ function compute_variance_fixpoint(env, decls, required, _variances) {
6502265022
6502365023function init_variance(param) {
6502465024 return List.map((function (param) {
65025- return Types_Variance.null;
65025+ return Types_Variance.$$ null;
6502665026 }), param[1][/* type_params */0]);
6502765027}
6502865028
@@ -69303,7 +69303,7 @@ function class_expr(cl_num, val_env, met_env, _scl) {
6930369303 if (match$5 !== undefined) {
6930469304 var $$default = match$5;
6930569305 var loc = $$default[/* pexp_loc */1];
69306- var scases_000 = Curry._3(Ast_helper_Exp.case, construct(loc, undefined, /* record */[
69306+ var scases_000 = Curry._3(Ast_helper_Exp.$$ case, construct(loc, undefined, /* record */[
6930769307 /* txt : Ldot */Block.__(1, [
6930869308 /* Lident */Block.__(0, ["*predef*"]),
6930969309 "Some"
@@ -69317,7 +69317,7 @@ function class_expr(cl_num, val_env, met_env, _scl) {
6931769317 /* loc */none
6931869318 ]));
6931969319 var scases_001 = /* :: */[
69320- Curry._3(Ast_helper_Exp.case, construct(loc, undefined, /* record */[
69320+ Curry._3(Ast_helper_Exp.$$ case, construct(loc, undefined, /* record */[
6932169321 /* txt : Ldot */Block.__(1, [
6932269322 /* Lident */Block.__(0, ["*predef*"]),
6932369323 "None"
@@ -72000,7 +72000,7 @@ function merge_constraint(initial_env, loc, sg, constr) {
7200072000 var p = !match[1];
7200172001 var n = !match[0];
7200272002 var i = false;
72003- return Curry._3(Types_Variance.set, /* May_pos */0, p, Curry._3(Types_Variance.set, /* May_neg */1, n, Curry._3(Types_Variance.set, /* May_weak */2, n, Curry._3(Types_Variance.set, /* Inj */3, i, Types_Variance.null))));
72003+ return Curry._3(Types_Variance.set, /* May_pos */0, p, Curry._3(Types_Variance.set, /* May_neg */1, n, Curry._3(Types_Variance.set, /* May_weak */2, n, Curry._3(Types_Variance.set, /* Inj */3, i, Types_Variance.$$ null))));
7200472004 }), sdecl[/* ptype_params */1]);
7200572005 var decl_row_007 = /* type_loc */sdecl[/* ptype_loc */7];
7200672006 var decl_row = /* record */[
0 commit comments