diff --git a/ocaml/boot/menhir/parser.ml b/ocaml/boot/menhir/parser.ml index 1c36399345e..369b0a1a773 100644 --- a/ocaml/boot/menhir/parser.ml +++ b/ocaml/boot/menhir/parser.ml @@ -1758,7 +1758,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4915 "parsing/parser.mly" +# 4916 "parsing/parser.mly" ( "+" ) # 1764 "parsing/parser.ml" in @@ -1783,7 +1783,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4916 "parsing/parser.mly" +# 4917 "parsing/parser.mly" ( "+." ) # 1789 "parsing/parser.ml" in @@ -1808,7 +1808,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = -# 4247 "parsing/parser.mly" +# 4248 "parsing/parser.mly" ( _1 ) # 1814 "parsing/parser.ml" in @@ -1855,7 +1855,7 @@ module Tables = struct let _endpos = _endpos_tyvar_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 4250 "parsing/parser.mly" +# 4251 "parsing/parser.mly" ( Ptyp_alias(ty, tyvar) ) # 1861 "parsing/parser.ml" in @@ -1870,7 +1870,7 @@ module Tables = struct in -# 4252 "parsing/parser.mly" +# 4253 "parsing/parser.mly" ( _1 ) # 1876 "parsing/parser.ml" in @@ -1946,7 +1946,7 @@ module Tables = struct let _v : (Parsetree.core_type) = let name = let _2 = _2_inlined1 in -# 3938 "parsing/parser.mly" +# 3939 "parsing/parser.mly" ( Some _2 ) # 1952 "parsing/parser.ml" @@ -1955,7 +1955,7 @@ module Tables = struct let _symbolstartpos = _startpos_aliased_type_ in let _sloc = (_symbolstartpos, _endpos) in -# 4259 "parsing/parser.mly" +# 4260 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) (Ltyp_alias { aliased_type; name; jkind }) ) # 1962 "parsing/parser.ml" @@ -2023,7 +2023,7 @@ module Tables = struct let _startpos = _startpos_aliased_type_ in let _endpos = _endpos__7_ in let _v : (Parsetree.core_type) = let name = -# 3940 "parsing/parser.mly" +# 3941 "parsing/parser.mly" ( None ) # 2029 "parsing/parser.ml" in @@ -2031,7 +2031,7 @@ module Tables = struct let _symbolstartpos = _startpos_aliased_type_ in let _sloc = (_symbolstartpos, _endpos) in -# 4259 "parsing/parser.mly" +# 4260 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) (Ltyp_alias { aliased_type; name; jkind }) ) # 2038 "parsing/parser.ml" @@ -2082,7 +2082,7 @@ module Tables = struct let _v : (let_binding) = let attrs3 = let _1 = _1_inlined2 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) # 2088 "parsing/parser.ml" @@ -2091,7 +2091,7 @@ module Tables = struct let attrs1 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 2097 "parsing/parser.ml" @@ -2129,7 +2129,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4787 "parsing/parser.mly" +# 4788 "parsing/parser.mly" ( _1 ) # 2135 "parsing/parser.ml" in @@ -2154,7 +2154,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4788 "parsing/parser.mly" +# 4789 "parsing/parser.mly" ( Lident _1 ) # 2160 "parsing/parser.ml" in @@ -2191,7 +2191,7 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4389 "parsing/parser.mly" +# 4390 "parsing/parser.mly" ( mkloc _1 (make_loc _sloc) ) @@ -2199,7 +2199,7 @@ module Tables = struct in -# 4395 "parsing/parser.mly" +# 4396 "parsing/parser.mly" (_2) # 2205 "parsing/parser.ml" in @@ -2232,7 +2232,7 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Mode.t) = let _loc__2_ = (_startpos__2_, _endpos__2_) in -# 4396 "parsing/parser.mly" +# 4397 "parsing/parser.mly" ( expecting _loc__2_ "mode expression" ) # 2238 "parsing/parser.ml" in @@ -2269,7 +2269,7 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4389 "parsing/parser.mly" +# 4390 "parsing/parser.mly" ( mkloc _1 (make_loc _sloc) ) @@ -2277,7 +2277,7 @@ module Tables = struct in -# 4412 "parsing/parser.mly" +# 4413 "parsing/parser.mly" (_2) # 2283 "parsing/parser.ml" in @@ -2310,7 +2310,7 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Mode.t) = let _loc__2_ = (_startpos__2_, _endpos__2_) in -# 4413 "parsing/parser.mly" +# 4414 "parsing/parser.mly" ( expecting _loc__2_ "mode expression" ) # 2316 "parsing/parser.ml" in @@ -2349,7 +2349,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.core_type) = -# 4475 "parsing/parser.mly" +# 4476 "parsing/parser.mly" ( _2 ) # 2355 "parsing/parser.ml" in @@ -2414,7 +2414,7 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4543 "parsing/parser.mly" +# 4544 "parsing/parser.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in let descr = Ptyp_package (lid, cstrs) in mktyp ~loc:_sloc ~attrs descr ) @@ -2426,13 +2426,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 2432 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 2438 "parsing/parser.ml" @@ -2441,7 +2441,7 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4477 "parsing/parser.mly" +# 4478 "parsing/parser.mly" ( wrap_typ_attrs ~loc:_sloc (reloc_typ ~loc:_sloc _4) _3 ) # 2447 "parsing/parser.ml" in @@ -2474,7 +2474,7 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 4480 "parsing/parser.mly" +# 4481 "parsing/parser.mly" ( Ptyp_var _2 ) # 2480 "parsing/parser.ml" in @@ -2489,7 +2489,7 @@ module Tables = struct in -# 4515 "parsing/parser.mly" +# 4516 "parsing/parser.mly" ( _1 ) # 2495 "parsing/parser.ml" in @@ -2515,7 +2515,7 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 4482 "parsing/parser.mly" +# 4483 "parsing/parser.mly" ( Ptyp_any ) # 2521 "parsing/parser.ml" in @@ -2529,7 +2529,7 @@ module Tables = struct in -# 4515 "parsing/parser.mly" +# 4516 "parsing/parser.mly" ( _1 ) # 2535 "parsing/parser.ml" in @@ -2567,13 +2567,13 @@ module Tables = struct in let (_endpos_tid_, _startpos_tid_) = (_endpos__1_, _startpos__1_) in let tys = -# 4536 "parsing/parser.mly" +# 4537 "parsing/parser.mly" ( [] ) # 2573 "parsing/parser.ml" in let _loc_tid_ = (_startpos_tid_, _endpos_tid_) in -# 4485 "parsing/parser.mly" +# 4486 "parsing/parser.mly" ( unboxed_type _loc_tid_ tid.txt tys ) # 2579 "parsing/parser.ml" @@ -2588,7 +2588,7 @@ module Tables = struct in -# 4515 "parsing/parser.mly" +# 4516 "parsing/parser.mly" ( _1 ) # 2594 "parsing/parser.ml" in @@ -2633,13 +2633,13 @@ module Tables = struct in let (_endpos_tid_, _startpos_tid_) = (_endpos__1_, _startpos__1_) in let tys = -# 4538 "parsing/parser.mly" +# 4539 "parsing/parser.mly" ( [ty] ) # 2639 "parsing/parser.ml" in let _loc_tid_ = (_startpos_tid_, _endpos_tid_) in -# 4485 "parsing/parser.mly" +# 4486 "parsing/parser.mly" ( unboxed_type _loc_tid_ tid.txt tys ) # 2645 "parsing/parser.ml" @@ -2655,7 +2655,7 @@ module Tables = struct in -# 4515 "parsing/parser.mly" +# 4516 "parsing/parser.mly" ( _1 ) # 2661 "parsing/parser.ml" in @@ -2728,14 +2728,14 @@ module Tables = struct in -# 4540 "parsing/parser.mly" +# 4541 "parsing/parser.mly" ( tys ) # 2734 "parsing/parser.ml" in let _loc_tid_ = (_startpos_tid_, _endpos_tid_) in -# 4485 "parsing/parser.mly" +# 4486 "parsing/parser.mly" ( unboxed_type _loc_tid_ tid.txt tys ) # 2741 "parsing/parser.ml" @@ -2751,7 +2751,7 @@ module Tables = struct in -# 4515 "parsing/parser.mly" +# 4516 "parsing/parser.mly" ( _1 ) # 2757 "parsing/parser.ml" in @@ -2788,12 +2788,12 @@ module Tables = struct in let tys = -# 4536 "parsing/parser.mly" +# 4537 "parsing/parser.mly" ( [] ) # 2794 "parsing/parser.ml" in -# 4488 "parsing/parser.mly" +# 4489 "parsing/parser.mly" ( Ptyp_constr(tid, tys) ) # 2799 "parsing/parser.ml" @@ -2808,7 +2808,7 @@ module Tables = struct in -# 4515 "parsing/parser.mly" +# 4516 "parsing/parser.mly" ( _1 ) # 2814 "parsing/parser.ml" in @@ -2852,12 +2852,12 @@ module Tables = struct in let tys = -# 4538 "parsing/parser.mly" +# 4539 "parsing/parser.mly" ( [ty] ) # 2858 "parsing/parser.ml" in -# 4488 "parsing/parser.mly" +# 4489 "parsing/parser.mly" ( Ptyp_constr(tid, tys) ) # 2863 "parsing/parser.ml" @@ -2873,7 +2873,7 @@ module Tables = struct in -# 4515 "parsing/parser.mly" +# 4516 "parsing/parser.mly" ( _1 ) # 2879 "parsing/parser.ml" in @@ -2945,13 +2945,13 @@ module Tables = struct in -# 4540 "parsing/parser.mly" +# 4541 "parsing/parser.mly" ( tys ) # 2951 "parsing/parser.ml" in -# 4488 "parsing/parser.mly" +# 4489 "parsing/parser.mly" ( Ptyp_constr(tid, tys) ) # 2957 "parsing/parser.ml" @@ -2967,7 +2967,7 @@ module Tables = struct in -# 4515 "parsing/parser.mly" +# 4516 "parsing/parser.mly" ( _1 ) # 2973 "parsing/parser.ml" in @@ -3007,7 +3007,7 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 4490 "parsing/parser.mly" +# 4491 "parsing/parser.mly" ( let (f, c) = _2 in Ptyp_object (f, c) ) # 3013 "parsing/parser.ml" in @@ -3022,7 +3022,7 @@ module Tables = struct in -# 4515 "parsing/parser.mly" +# 4516 "parsing/parser.mly" ( _1 ) # 3028 "parsing/parser.ml" in @@ -3055,7 +3055,7 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 4492 "parsing/parser.mly" +# 4493 "parsing/parser.mly" ( Ptyp_object ([], Closed) ) # 3061 "parsing/parser.ml" in @@ -3070,7 +3070,7 @@ module Tables = struct in -# 4515 "parsing/parser.mly" +# 4516 "parsing/parser.mly" ( _1 ) # 3076 "parsing/parser.ml" in @@ -3114,12 +3114,12 @@ module Tables = struct in let tys = -# 4536 "parsing/parser.mly" +# 4537 "parsing/parser.mly" ( [] ) # 3120 "parsing/parser.ml" in -# 4496 "parsing/parser.mly" +# 4497 "parsing/parser.mly" ( Ptyp_class(cid, tys) ) # 3125 "parsing/parser.ml" @@ -3135,7 +3135,7 @@ module Tables = struct in -# 4515 "parsing/parser.mly" +# 4516 "parsing/parser.mly" ( _1 ) # 3141 "parsing/parser.ml" in @@ -3186,12 +3186,12 @@ module Tables = struct in let tys = -# 4538 "parsing/parser.mly" +# 4539 "parsing/parser.mly" ( [ty] ) # 3192 "parsing/parser.ml" in -# 4496 "parsing/parser.mly" +# 4497 "parsing/parser.mly" ( Ptyp_class(cid, tys) ) # 3197 "parsing/parser.ml" @@ -3207,7 +3207,7 @@ module Tables = struct in -# 4515 "parsing/parser.mly" +# 4516 "parsing/parser.mly" ( _1 ) # 3213 "parsing/parser.ml" in @@ -3286,13 +3286,13 @@ module Tables = struct in -# 4540 "parsing/parser.mly" +# 4541 "parsing/parser.mly" ( tys ) # 3292 "parsing/parser.ml" in -# 4496 "parsing/parser.mly" +# 4497 "parsing/parser.mly" ( Ptyp_class(cid, tys) ) # 3298 "parsing/parser.ml" @@ -3308,7 +3308,7 @@ module Tables = struct in -# 4515 "parsing/parser.mly" +# 4516 "parsing/parser.mly" ( _1 ) # 3314 "parsing/parser.ml" in @@ -3348,7 +3348,7 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 4499 "parsing/parser.mly" +# 4500 "parsing/parser.mly" ( Ptyp_variant([_2], Closed, None) ) # 3354 "parsing/parser.ml" in @@ -3363,7 +3363,7 @@ module Tables = struct in -# 4515 "parsing/parser.mly" +# 4516 "parsing/parser.mly" ( _1 ) # 3369 "parsing/parser.ml" in @@ -3424,13 +3424,13 @@ module Tables = struct in -# 4549 "parsing/parser.mly" +# 4550 "parsing/parser.mly" ( _1 ) # 3430 "parsing/parser.ml" in -# 4501 "parsing/parser.mly" +# 4502 "parsing/parser.mly" ( Ptyp_variant(_3, Closed, None) ) # 3436 "parsing/parser.ml" @@ -3446,7 +3446,7 @@ module Tables = struct in -# 4515 "parsing/parser.mly" +# 4516 "parsing/parser.mly" ( _1 ) # 3452 "parsing/parser.ml" in @@ -3514,13 +3514,13 @@ module Tables = struct in -# 4549 "parsing/parser.mly" +# 4550 "parsing/parser.mly" ( _1 ) # 3520 "parsing/parser.ml" in -# 4503 "parsing/parser.mly" +# 4504 "parsing/parser.mly" ( Ptyp_variant(_2 :: _4, Closed, None) ) # 3526 "parsing/parser.ml" @@ -3536,7 +3536,7 @@ module Tables = struct in -# 4515 "parsing/parser.mly" +# 4516 "parsing/parser.mly" ( _1 ) # 3542 "parsing/parser.ml" in @@ -3597,13 +3597,13 @@ module Tables = struct in -# 4549 "parsing/parser.mly" +# 4550 "parsing/parser.mly" ( _1 ) # 3603 "parsing/parser.ml" in -# 4505 "parsing/parser.mly" +# 4506 "parsing/parser.mly" ( Ptyp_variant(_3, Open, None) ) # 3609 "parsing/parser.ml" @@ -3619,7 +3619,7 @@ module Tables = struct in -# 4515 "parsing/parser.mly" +# 4516 "parsing/parser.mly" ( _1 ) # 3625 "parsing/parser.ml" in @@ -3652,7 +3652,7 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 4507 "parsing/parser.mly" +# 4508 "parsing/parser.mly" ( Ptyp_variant([], Open, None) ) # 3658 "parsing/parser.ml" in @@ -3667,7 +3667,7 @@ module Tables = struct in -# 4515 "parsing/parser.mly" +# 4516 "parsing/parser.mly" ( _1 ) # 3673 "parsing/parser.ml" in @@ -3728,13 +3728,13 @@ module Tables = struct in -# 4549 "parsing/parser.mly" +# 4550 "parsing/parser.mly" ( _1 ) # 3734 "parsing/parser.ml" in -# 4509 "parsing/parser.mly" +# 4510 "parsing/parser.mly" ( Ptyp_variant(_3, Closed, Some []) ) # 3740 "parsing/parser.ml" @@ -3750,7 +3750,7 @@ module Tables = struct in -# 4515 "parsing/parser.mly" +# 4516 "parsing/parser.mly" ( _1 ) # 3756 "parsing/parser.ml" in @@ -3826,7 +3826,7 @@ module Tables = struct in -# 4577 "parsing/parser.mly" +# 4578 "parsing/parser.mly" ( _1 ) # 3832 "parsing/parser.ml" @@ -3845,13 +3845,13 @@ module Tables = struct in -# 4549 "parsing/parser.mly" +# 4550 "parsing/parser.mly" ( _1 ) # 3851 "parsing/parser.ml" in -# 4511 "parsing/parser.mly" +# 4512 "parsing/parser.mly" ( Ptyp_variant(_3, Closed, Some _5) ) # 3857 "parsing/parser.ml" @@ -3867,7 +3867,7 @@ module Tables = struct in -# 4515 "parsing/parser.mly" +# 4516 "parsing/parser.mly" ( _1 ) # 3873 "parsing/parser.ml" in @@ -3893,7 +3893,7 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 4513 "parsing/parser.mly" +# 4514 "parsing/parser.mly" ( Ptyp_extension _1 ) # 3899 "parsing/parser.ml" in @@ -3907,7 +3907,7 @@ module Tables = struct in -# 4515 "parsing/parser.mly" +# 4516 "parsing/parser.mly" ( _1 ) # 3913 "parsing/parser.ml" in @@ -3970,7 +3970,7 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4517 "parsing/parser.mly" +# 4518 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) @@ Ltyp_var { name = Some name; jkind } ) # 3977 "parsing/parser.ml" @@ -4027,7 +4027,7 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4520 "parsing/parser.mly" +# 4521 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) @@ Ltyp_var { name = None; jkind } ) # 4034 "parsing/parser.ml" @@ -4054,7 +4054,7 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Ast_helper.str) = let _1 = let _1 = -# 4983 "parsing/parser.mly" +# 4984 "parsing/parser.mly" ( _1 ) # 4060 "parsing/parser.ml" in @@ -4068,7 +4068,7 @@ module Tables = struct in -# 4985 "parsing/parser.mly" +# 4986 "parsing/parser.mly" ( _1 ) # 4074 "parsing/parser.ml" in @@ -4108,7 +4108,7 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Ast_helper.str) = let _1 = let _1 = -# 4984 "parsing/parser.mly" +# 4985 "parsing/parser.mly" ( _1 ^ "." ^ _3.txt ) # 4114 "parsing/parser.ml" in @@ -4123,7 +4123,7 @@ module Tables = struct in -# 4985 "parsing/parser.mly" +# 4986 "parsing/parser.mly" ( _1 ) # 4129 "parsing/parser.ml" in @@ -4148,7 +4148,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.payload) = -# 5040 "parsing/parser.mly" +# 5041 "parsing/parser.mly" ( Builtin_attributes.mark_payload_attrs_used _1; _1 ) @@ -4199,7 +4199,7 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4989 "parsing/parser.mly" +# 4990 "parsing/parser.mly" ( mk_attr ~loc:(make_loc _sloc) _2 _3 ) # 4205 "parsing/parser.ml" in @@ -4265,7 +4265,7 @@ module Tables = struct let _v : (Parsetree.class_expr) = let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 4271 "parsing/parser.ml" @@ -4390,13 +4390,13 @@ module Tables = struct let _4 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 4396 "parsing/parser.ml" in let _3 = -# 4907 "parsing/parser.mly" +# 4908 "parsing/parser.mly" ( Fresh ) # 4402 "parsing/parser.ml" in @@ -4487,13 +4487,13 @@ module Tables = struct let _4 = let _1 = _1_inlined2 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 4493 "parsing/parser.ml" in let _3 = -# 4908 "parsing/parser.mly" +# 4909 "parsing/parser.mly" ( Override ) # 4499 "parsing/parser.ml" in @@ -4692,7 +4692,7 @@ module Tables = struct let _v : (Parsetree.class_field) = let _6 = let _1 = _1_inlined2 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) # 4698 "parsing/parser.ml" @@ -4701,13 +4701,13 @@ module Tables = struct let _3 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 4707 "parsing/parser.ml" in let _2 = -# 4907 "parsing/parser.mly" +# 4908 "parsing/parser.mly" ( Fresh ) # 4713 "parsing/parser.ml" in @@ -4778,7 +4778,7 @@ module Tables = struct let _v : (Parsetree.class_field) = let _6 = let _1 = _1_inlined3 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) # 4784 "parsing/parser.ml" @@ -4787,13 +4787,13 @@ module Tables = struct let _3 = let _1 = _1_inlined2 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 4793 "parsing/parser.ml" in let _2 = -# 4908 "parsing/parser.mly" +# 4909 "parsing/parser.mly" ( Override ) # 4799 "parsing/parser.ml" in @@ -4845,7 +4845,7 @@ module Tables = struct let _v : (Parsetree.class_field) = let _3 = let _1 = _1_inlined1 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) # 4851 "parsing/parser.ml" @@ -4900,7 +4900,7 @@ module Tables = struct let _v : (Parsetree.class_field) = let _3 = let _1 = _1_inlined1 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) # 4906 "parsing/parser.ml" @@ -4960,7 +4960,7 @@ module Tables = struct let _v : (Parsetree.class_field) = let _4 = let _1 = _1_inlined2 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) # 4966 "parsing/parser.ml" @@ -4969,7 +4969,7 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 4975 "parsing/parser.ml" @@ -5027,7 +5027,7 @@ module Tables = struct let _v : (Parsetree.class_field) = let _4 = let _1 = _1_inlined2 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) # 5033 "parsing/parser.ml" @@ -5036,7 +5036,7 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 5042 "parsing/parser.ml" @@ -5080,7 +5080,7 @@ module Tables = struct let _v : (Parsetree.class_field) = let _2 = let _1 = _1_inlined1 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) # 5086 "parsing/parser.ml" @@ -5401,7 +5401,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4777 "parsing/parser.mly" +# 4778 "parsing/parser.mly" ( _1 ) # 5407 "parsing/parser.ml" in @@ -5654,7 +5654,7 @@ module Tables = struct let _v : (Parsetree.class_type_field) = let _4 = let _1 = _1_inlined2 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) # 5660 "parsing/parser.ml" @@ -5663,7 +5663,7 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 5669 "parsing/parser.ml" @@ -5746,7 +5746,7 @@ module Tables = struct let _v : (Parsetree.class_type_field) = let _4 = let _1 = _1_inlined3 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) # 5752 "parsing/parser.ml" @@ -5756,7 +5756,7 @@ module Tables = struct let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let label = let _1 = -# 4617 "parsing/parser.mly" +# 4618 "parsing/parser.mly" ( _1 ) # 5762 "parsing/parser.ml" in @@ -5781,7 +5781,7 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 5787 "parsing/parser.ml" @@ -5864,7 +5864,7 @@ module Tables = struct let _v : (Parsetree.class_type_field) = let _7 = let _1 = _1_inlined4 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) # 5870 "parsing/parser.ml" @@ -5873,7 +5873,7 @@ module Tables = struct let _6 = let _1 = _1_inlined3 in -# 4213 "parsing/parser.mly" +# 4214 "parsing/parser.mly" ( _1 ) # 5879 "parsing/parser.ml" @@ -5881,7 +5881,7 @@ module Tables = struct let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _1 = -# 4617 "parsing/parser.mly" +# 4618 "parsing/parser.mly" ( _1 ) # 5887 "parsing/parser.ml" in @@ -5897,7 +5897,7 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 5903 "parsing/parser.ml" @@ -5956,7 +5956,7 @@ module Tables = struct let _v : (Parsetree.class_type_field) = let _4 = let _1 = _1_inlined2 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) # 5962 "parsing/parser.ml" @@ -5965,7 +5965,7 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 5971 "parsing/parser.ml" @@ -6009,7 +6009,7 @@ module Tables = struct let _v : (Parsetree.class_type_field) = let _2 = let _1 = _1_inlined1 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) # 6015 "parsing/parser.ml" @@ -6350,7 +6350,7 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 6356 "parsing/parser.ml" @@ -6444,7 +6444,7 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 6450 "parsing/parser.ml" @@ -6558,13 +6558,13 @@ module Tables = struct let _4 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 6564 "parsing/parser.ml" in let _3 = -# 4907 "parsing/parser.mly" +# 4908 "parsing/parser.mly" ( Fresh ) # 6570 "parsing/parser.ml" in @@ -6655,13 +6655,13 @@ module Tables = struct let _4 = let _1 = _1_inlined2 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 6661 "parsing/parser.ml" in let _3 = -# 4908 "parsing/parser.mly" +# 4909 "parsing/parser.mly" ( Override ) # 6667 "parsing/parser.ml" in @@ -7003,7 +7003,7 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 7009 "parsing/parser.ml" @@ -7254,7 +7254,7 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 7260 "parsing/parser.ml" @@ -7337,12 +7337,12 @@ module Tables = struct let _1 = let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) # 7343 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) # 7348 "parsing/parser.ml" @@ -7424,12 +7424,12 @@ module Tables = struct let _1 = let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) # 7430 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) # 7435 "parsing/parser.ml" @@ -7492,7 +7492,7 @@ module Tables = struct let _v : (Parsetree.class_type) = let _1 = let _1 = let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) # 7498 "parsing/parser.ml" in @@ -7616,7 +7616,7 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) # 7622 "parsing/parser.ml" @@ -7636,7 +7636,7 @@ module Tables = struct let attrs1 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 7642 "parsing/parser.ml" @@ -7688,7 +7688,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4774 "parsing/parser.mly" +# 4775 "parsing/parser.mly" ( _1 ) # 7694 "parsing/parser.ml" in @@ -7857,13 +7857,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 7863 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 7869 "parsing/parser.ml" @@ -7927,7 +7927,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Jane_syntax.Comprehensions.clause_binding) = let _1 = -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 7933 "parsing/parser.ml" in @@ -8004,14 +8004,14 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4366 "parsing/parser.mly" +# 4367 "parsing/parser.mly" ( Mode.Const.mk "local" (make_loc _sloc) ) # 8010 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_inlined1_ in let _1 = -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 8017 "parsing/parser.ml" in @@ -8129,13 +8129,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 8135 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 8141 "parsing/parser.ml" @@ -8166,14 +8166,14 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4366 "parsing/parser.mly" +# 4367 "parsing/parser.mly" ( Mode.Const.mk "local" (make_loc _sloc) ) # 8172 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_inlined1_ in let _1 = -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 8179 "parsing/parser.ml" in @@ -8262,14 +8262,14 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4368 "parsing/parser.mly" +# 4369 "parsing/parser.mly" ( Mode.Const.mk "unique" (make_loc _sloc) ) # 8268 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_inlined1_ in let _1 = -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 8275 "parsing/parser.ml" in @@ -8387,13 +8387,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 8393 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 8399 "parsing/parser.ml" @@ -8424,14 +8424,14 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4368 "parsing/parser.mly" +# 4369 "parsing/parser.mly" ( Mode.Const.mk "unique" (make_loc _sloc) ) # 8430 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_inlined1_ in let _1 = -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 8437 "parsing/parser.ml" in @@ -8520,14 +8520,14 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4370 "parsing/parser.mly" +# 4371 "parsing/parser.mly" ( Mode.Const.mk "once" (make_loc _sloc) ) # 8526 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_inlined1_ in let _1 = -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 8533 "parsing/parser.ml" in @@ -8645,13 +8645,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 8651 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 8657 "parsing/parser.ml" @@ -8682,14 +8682,14 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4370 "parsing/parser.mly" +# 4371 "parsing/parser.mly" ( Mode.Const.mk "once" (make_loc _sloc) ) # 8688 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_inlined1_ in let _1 = -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 8695 "parsing/parser.ml" in @@ -8872,13 +8872,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 8878 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 8884 "parsing/parser.ml" @@ -9023,13 +9023,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 9029 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 9035 "parsing/parser.ml" @@ -9169,13 +9169,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 9175 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 9181 "parsing/parser.ml" @@ -9227,13 +9227,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 9233 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 9239 "parsing/parser.ml" @@ -9383,13 +9383,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 9389 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 9395 "parsing/parser.ml" @@ -9439,7 +9439,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Constant.t) = -# 4634 "parsing/parser.mly" +# 4635 "parsing/parser.mly" ( Constant.value _1 ) # 9445 "parsing/parser.ml" in @@ -9464,7 +9464,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Constant.t) = -# 4635 "parsing/parser.mly" +# 4636 "parsing/parser.mly" ( _1 ) # 9470 "parsing/parser.ml" in @@ -9496,7 +9496,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.label) = -# 4721 "parsing/parser.mly" +# 4722 "parsing/parser.mly" ( "[]" ) # 9502 "parsing/parser.ml" in @@ -9528,7 +9528,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.label) = -# 4722 "parsing/parser.mly" +# 4723 "parsing/parser.mly" ( "()" ) # 9534 "parsing/parser.ml" in @@ -9553,7 +9553,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = -# 4723 "parsing/parser.mly" +# 4724 "parsing/parser.mly" ( "false" ) # 9559 "parsing/parser.ml" in @@ -9578,7 +9578,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = -# 4724 "parsing/parser.mly" +# 4725 "parsing/parser.mly" ( "true" ) # 9584 "parsing/parser.ml" in @@ -9607,7 +9607,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = -# 4727 "parsing/parser.mly" +# 4728 "parsing/parser.mly" ( _1 ) # 9613 "parsing/parser.ml" in @@ -9646,12 +9646,12 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Asttypes.label) = let _1 = -# 4718 "parsing/parser.mly" +# 4719 "parsing/parser.mly" ( "::" ) # 9652 "parsing/parser.ml" in -# 4728 "parsing/parser.mly" +# 4729 "parsing/parser.mly" ( _1 ) # 9657 "parsing/parser.ml" in @@ -9676,7 +9676,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = -# 4729 "parsing/parser.mly" +# 4730 "parsing/parser.mly" ( _1 ) # 9682 "parsing/parser.ml" in @@ -9701,7 +9701,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4732 "parsing/parser.mly" +# 4733 "parsing/parser.mly" ( _1 ) # 9707 "parsing/parser.ml" in @@ -9754,12 +9754,12 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = let _3 = -# 4718 "parsing/parser.mly" +# 4719 "parsing/parser.mly" ( "::" ) # 9760 "parsing/parser.ml" in -# 4733 "parsing/parser.mly" +# 4734 "parsing/parser.mly" ( Ldot(_1,_3) ) # 9765 "parsing/parser.ml" in @@ -9798,12 +9798,12 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = let _1 = -# 4718 "parsing/parser.mly" +# 4719 "parsing/parser.mly" ( "::" ) # 9804 "parsing/parser.ml" in -# 4734 "parsing/parser.mly" +# 4735 "parsing/parser.mly" ( Lident _1 ) # 9809 "parsing/parser.ml" in @@ -9828,7 +9828,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4735 "parsing/parser.mly" +# 4736 "parsing/parser.mly" ( Lident _1 ) # 9834 "parsing/parser.ml" in @@ -9896,17 +9896,17 @@ module Tables = struct let xs = let x = let m1 = -# 4417 "parsing/parser.mly" +# 4418 "parsing/parser.mly" ( Mode.empty ) # 9902 "parsing/parser.ml" in let gbl = -# 4864 "parsing/parser.mly" +# 4865 "parsing/parser.mly" ( Mode.empty ) # 9907 "parsing/parser.ml" in -# 4056 "parsing/parser.mly" +# 4057 "parsing/parser.mly" ( let m = Mode.concat gbl m1 in mktyp_with_modes m cty @@ -9933,7 +9933,7 @@ module Tables = struct in -# 4065 "parsing/parser.mly" +# 4066 "parsing/parser.mly" ( Pcstr_tuple tys ) # 9939 "parsing/parser.ml" in @@ -9969,17 +9969,17 @@ module Tables = struct let xs = let x = let m1 = -# 4418 "parsing/parser.mly" +# 4419 "parsing/parser.mly" (_1) # 9975 "parsing/parser.ml" in let gbl = -# 4864 "parsing/parser.mly" +# 4865 "parsing/parser.mly" ( Mode.empty ) # 9980 "parsing/parser.ml" in -# 4056 "parsing/parser.mly" +# 4057 "parsing/parser.mly" ( let m = Mode.concat gbl m1 in mktyp_with_modes m cty @@ -10006,7 +10006,7 @@ module Tables = struct in -# 4065 "parsing/parser.mly" +# 4066 "parsing/parser.mly" ( Pcstr_tuple tys ) # 10012 "parsing/parser.ml" in @@ -10042,7 +10042,7 @@ module Tables = struct let xs = let x = let m1 = -# 4417 "parsing/parser.mly" +# 4418 "parsing/parser.mly" ( Mode.empty ) # 10048 "parsing/parser.ml" in @@ -10051,13 +10051,13 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4865 "parsing/parser.mly" +# 4866 "parsing/parser.mly" ( Mode.singleton (Mode.Const.mk "global" (make_loc _sloc)) ) # 10057 "parsing/parser.ml" in -# 4056 "parsing/parser.mly" +# 4057 "parsing/parser.mly" ( let m = Mode.concat gbl m1 in mktyp_with_modes m cty @@ -10084,7 +10084,7 @@ module Tables = struct in -# 4065 "parsing/parser.mly" +# 4066 "parsing/parser.mly" ( Pcstr_tuple tys ) # 10090 "parsing/parser.ml" in @@ -10129,7 +10129,7 @@ module Tables = struct let m1 = let _1 = _1_inlined1 in -# 4418 "parsing/parser.mly" +# 4419 "parsing/parser.mly" (_1) # 10135 "parsing/parser.ml" @@ -10139,13 +10139,13 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4865 "parsing/parser.mly" +# 4866 "parsing/parser.mly" ( Mode.singleton (Mode.Const.mk "global" (make_loc _sloc)) ) # 10145 "parsing/parser.ml" in -# 4056 "parsing/parser.mly" +# 4057 "parsing/parser.mly" ( let m = Mode.concat gbl m1 in mktyp_with_modes m cty @@ -10172,7 +10172,7 @@ module Tables = struct in -# 4065 "parsing/parser.mly" +# 4066 "parsing/parser.mly" ( Pcstr_tuple tys ) # 10178 "parsing/parser.ml" in @@ -10215,17 +10215,17 @@ module Tables = struct let xs = let x = let m1 = -# 4417 "parsing/parser.mly" +# 4418 "parsing/parser.mly" ( Mode.empty ) # 10221 "parsing/parser.ml" in let gbl = -# 4864 "parsing/parser.mly" +# 4865 "parsing/parser.mly" ( Mode.empty ) # 10226 "parsing/parser.ml" in -# 4056 "parsing/parser.mly" +# 4057 "parsing/parser.mly" ( let m = Mode.concat gbl m1 in mktyp_with_modes m cty @@ -10252,7 +10252,7 @@ module Tables = struct in -# 4065 "parsing/parser.mly" +# 4066 "parsing/parser.mly" ( Pcstr_tuple tys ) # 10258 "parsing/parser.ml" in @@ -10302,17 +10302,17 @@ module Tables = struct let xs = let x = let m1 = -# 4418 "parsing/parser.mly" +# 4419 "parsing/parser.mly" (_1) # 10308 "parsing/parser.ml" in let gbl = -# 4864 "parsing/parser.mly" +# 4865 "parsing/parser.mly" ( Mode.empty ) # 10313 "parsing/parser.ml" in -# 4056 "parsing/parser.mly" +# 4057 "parsing/parser.mly" ( let m = Mode.concat gbl m1 in mktyp_with_modes m cty @@ -10339,7 +10339,7 @@ module Tables = struct in -# 4065 "parsing/parser.mly" +# 4066 "parsing/parser.mly" ( Pcstr_tuple tys ) # 10345 "parsing/parser.ml" in @@ -10389,7 +10389,7 @@ module Tables = struct let xs = let x = let m1 = -# 4417 "parsing/parser.mly" +# 4418 "parsing/parser.mly" ( Mode.empty ) # 10395 "parsing/parser.ml" in @@ -10398,13 +10398,13 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4865 "parsing/parser.mly" +# 4866 "parsing/parser.mly" ( Mode.singleton (Mode.Const.mk "global" (make_loc _sloc)) ) # 10404 "parsing/parser.ml" in -# 4056 "parsing/parser.mly" +# 4057 "parsing/parser.mly" ( let m = Mode.concat gbl m1 in mktyp_with_modes m cty @@ -10431,7 +10431,7 @@ module Tables = struct in -# 4065 "parsing/parser.mly" +# 4066 "parsing/parser.mly" ( Pcstr_tuple tys ) # 10437 "parsing/parser.ml" in @@ -10490,7 +10490,7 @@ module Tables = struct let m1 = let _1 = _1_inlined1 in -# 4418 "parsing/parser.mly" +# 4419 "parsing/parser.mly" (_1) # 10496 "parsing/parser.ml" @@ -10500,13 +10500,13 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4865 "parsing/parser.mly" +# 4866 "parsing/parser.mly" ( Mode.singleton (Mode.Const.mk "global" (make_loc _sloc)) ) # 10506 "parsing/parser.ml" in -# 4056 "parsing/parser.mly" +# 4057 "parsing/parser.mly" ( let m = Mode.concat gbl m1 in mktyp_with_modes m cty @@ -10533,7 +10533,7 @@ module Tables = struct in -# 4065 "parsing/parser.mly" +# 4066 "parsing/parser.mly" ( Pcstr_tuple tys ) # 10539 "parsing/parser.ml" in @@ -10572,7 +10572,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.constructor_arguments) = -# 4067 "parsing/parser.mly" +# 4068 "parsing/parser.mly" ( Pcstr_record _2 ) # 10578 "parsing/parser.ml" in @@ -10597,7 +10597,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.constructor_declaration list) = -# 3965 "parsing/parser.mly" +# 3966 "parsing/parser.mly" ( [] ) # 10603 "parsing/parser.ml" in @@ -10627,7 +10627,7 @@ module Tables = struct # 10628 "parsing/parser.ml" in -# 3967 "parsing/parser.mly" +# 3968 "parsing/parser.mly" ( cs ) # 10633 "parsing/parser.ml" in @@ -10652,12 +10652,12 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = let _1 = -# 4238 "parsing/parser.mly" +# 4239 "parsing/parser.mly" ( _1 ) # 10658 "parsing/parser.ml" in -# 4228 "parsing/parser.mly" +# 4229 "parsing/parser.mly" ( _1 ) # 10663 "parsing/parser.ml" in @@ -10689,7 +10689,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.core_type) = -# 4230 "parsing/parser.mly" +# 4231 "parsing/parser.mly" ( Typ.attr _1 _2 ) # 10695 "parsing/parser.ml" in @@ -10714,7 +10714,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.direction_flag) = -# 4840 "parsing/parser.mly" +# 4841 "parsing/parser.mly" ( Upto ) # 10720 "parsing/parser.ml" in @@ -10739,7 +10739,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.direction_flag) = -# 4841 "parsing/parser.mly" +# 4842 "parsing/parser.mly" ( Downto ) # 10745 "parsing/parser.ml" in @@ -10757,7 +10757,7 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (string Asttypes.loc option) = -# 5009 "parsing/parser.mly" +# 5010 "parsing/parser.mly" ( None ) # 10763 "parsing/parser.ml" in @@ -10789,7 +10789,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (string Asttypes.loc option) = -# 5010 "parsing/parser.mly" +# 5011 "parsing/parser.mly" ( Some _2 ) # 10795 "parsing/parser.ml" in @@ -10835,7 +10835,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Parsetree.extension) = -# 5022 "parsing/parser.mly" +# 5023 "parsing/parser.mly" ( (_2, _3) ) # 10841 "parsing/parser.ml" in @@ -10867,7 +10867,7 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 5024 "parsing/parser.mly" +# 5025 "parsing/parser.mly" ( mk_quotedext ~loc:_sloc _1 ) # 10873 "parsing/parser.ml" in @@ -10922,7 +10922,7 @@ module Tables = struct let _v : (Parsetree.extension_constructor) = let attrs = let _1 = _1_inlined3 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 10928 "parsing/parser.ml" @@ -10954,7 +10954,7 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4143 "parsing/parser.mly" +# 4144 "parsing/parser.mly" ( let info = symbol_info _endpos in Te.rebind cid lid ~attrs ~loc:(make_loc _sloc) ~info ) # 10961 "parsing/parser.ml" @@ -11003,7 +11003,7 @@ module Tables = struct let _v : (Parsetree.extension_constructor) = let attrs = let _1 = _1_inlined2 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 11009 "parsing/parser.ml" @@ -11032,7 +11032,7 @@ module Tables = struct in let _startpos_cid_ = _startpos__1_ in let _1 = -# 4814 "parsing/parser.mly" +# 4815 "parsing/parser.mly" ( () ) # 11038 "parsing/parser.ml" in @@ -11040,7 +11040,7 @@ module Tables = struct let _symbolstartpos = _startpos_cid_ in let _sloc = (_symbolstartpos, _endpos) in -# 4143 "parsing/parser.mly" +# 4144 "parsing/parser.mly" ( let info = symbol_info _endpos in Te.rebind cid lid ~attrs ~loc:(make_loc _sloc) ~info ) # 11047 "parsing/parser.ml" @@ -11090,7 +11090,7 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4997 "parsing/parser.mly" +# 4998 "parsing/parser.mly" ( mark_symbol_docs _sloc; mk_attr ~loc:(make_loc _sloc) _2 _3 ) # 11097 "parsing/parser.ml" @@ -11242,13 +11242,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 11248 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 11254 "parsing/parser.ml" @@ -11405,13 +11405,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 11411 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 11417 "parsing/parser.ml" @@ -11515,7 +11515,7 @@ module Tables = struct let _3 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 11521 "parsing/parser.ml" @@ -11535,7 +11535,7 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4033 "parsing/parser.mly" +# 4034 "parsing/parser.mly" ( let vars_jkinds, args, res = _2 in Jane_syntax.Extension_constructor.extension_constructor_of ~loc:(make_loc _sloc) @@ -11550,13 +11550,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 11556 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 11562 "parsing/parser.ml" @@ -11645,19 +11645,19 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 11651 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 11657 "parsing/parser.ml" in let _3 = -# 4907 "parsing/parser.mly" +# 4908 "parsing/parser.mly" ( Fresh ) # 11663 "parsing/parser.ml" in @@ -11754,19 +11754,19 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 11760 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 11766 "parsing/parser.ml" in let _3 = -# 4908 "parsing/parser.mly" +# 4909 "parsing/parser.mly" ( Override ) # 11772 "parsing/parser.ml" in @@ -11868,13 +11868,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 11874 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 11880 "parsing/parser.ml" @@ -11975,13 +11975,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 11981 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 11987 "parsing/parser.ml" @@ -12063,13 +12063,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 12069 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 12075 "parsing/parser.ml" @@ -12191,13 +12191,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 12197 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 12203 "parsing/parser.ml" @@ -12337,13 +12337,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 12343 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 12349 "parsing/parser.ml" @@ -12385,13 +12385,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 12391 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 12397 "parsing/parser.ml" @@ -12544,13 +12544,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 12550 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 12556 "parsing/parser.ml" @@ -12579,13 +12579,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 12585 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 12591 "parsing/parser.ml" @@ -12746,13 +12746,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 12752 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 12758 "parsing/parser.ml" @@ -12804,13 +12804,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 12810 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 12816 "parsing/parser.ml" @@ -12839,13 +12839,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 12845 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 12851 "parsing/parser.ml" @@ -12940,13 +12940,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 12946 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 12952 "parsing/parser.ml" @@ -13072,13 +13072,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 13078 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 13084 "parsing/parser.ml" @@ -13107,13 +13107,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 13113 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 13119 "parsing/parser.ml" @@ -13207,13 +13207,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 13213 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 13219 "parsing/parser.ml" @@ -13312,13 +13312,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 13318 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 13324 "parsing/parser.ml" @@ -13440,13 +13440,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 13446 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 13452 "parsing/parser.ml" @@ -13573,13 +13573,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 13579 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 13585 "parsing/parser.ml" @@ -13647,13 +13647,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 13653 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 13659 "parsing/parser.ml" @@ -13721,13 +13721,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 13727 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 13733 "parsing/parser.ml" @@ -13884,13 +13884,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 13890 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 13896 "parsing/parser.ml" @@ -14068,13 +14068,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 14074 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 14080 "parsing/parser.ml" @@ -14183,13 +14183,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 14189 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 14195 "parsing/parser.ml" @@ -14462,7 +14462,7 @@ module Tables = struct let _endpos_e2_ = _endpos__1_ in let op = let _1 = -# 4688 "parsing/parser.mly" +# 4689 "parsing/parser.mly" ( op ) # 14468 "parsing/parser.ml" in @@ -14577,13 +14577,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 14583 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 14589 "parsing/parser.ml" @@ -14610,7 +14610,7 @@ module Tables = struct let _endpos_e2_ = _endpos_xs_ in let op = let _1 = -# 4688 "parsing/parser.mly" +# 4689 "parsing/parser.mly" ( op ) # 14616 "parsing/parser.ml" in @@ -14689,7 +14689,7 @@ module Tables = struct let _endpos_e2_ = _endpos__1_inlined1_ in let op = let _1 = -# 4690 "parsing/parser.mly" +# 4691 "parsing/parser.mly" ("@") # 14695 "parsing/parser.ml" in @@ -14800,13 +14800,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 14806 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 14812 "parsing/parser.ml" @@ -14833,7 +14833,7 @@ module Tables = struct let _endpos_e2_ = _endpos_xs_ in let op = let _1 = -# 4690 "parsing/parser.mly" +# 4691 "parsing/parser.mly" ("@") # 14839 "parsing/parser.ml" in @@ -14911,7 +14911,7 @@ module Tables = struct let _endpos_e2_ = _endpos__1_inlined1_ in let op = let _1 = -# 4691 "parsing/parser.mly" +# 4692 "parsing/parser.mly" ("@@") # 14917 "parsing/parser.ml" in @@ -15022,13 +15022,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 15028 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 15034 "parsing/parser.ml" @@ -15055,7 +15055,7 @@ module Tables = struct let _endpos_e2_ = _endpos_xs_ in let op = let _1 = -# 4691 "parsing/parser.mly" +# 4692 "parsing/parser.mly" ("@@") # 15061 "parsing/parser.ml" in @@ -15136,7 +15136,7 @@ module Tables = struct let _endpos_e2_ = _endpos__1_ in let op = let _1 = -# 4692 "parsing/parser.mly" +# 4693 "parsing/parser.mly" ( op ) # 15142 "parsing/parser.ml" in @@ -15251,13 +15251,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 15257 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 15263 "parsing/parser.ml" @@ -15284,7 +15284,7 @@ module Tables = struct let _endpos_e2_ = _endpos_xs_ in let op = let _1 = -# 4692 "parsing/parser.mly" +# 4693 "parsing/parser.mly" ( op ) # 15290 "parsing/parser.ml" in @@ -15366,7 +15366,7 @@ module Tables = struct let _endpos_e2_ = _endpos__1_ in let op = let _1 = -# 4693 "parsing/parser.mly" +# 4694 "parsing/parser.mly" ( op ) # 15372 "parsing/parser.ml" in @@ -15481,13 +15481,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 15487 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 15493 "parsing/parser.ml" @@ -15514,7 +15514,7 @@ module Tables = struct let _endpos_e2_ = _endpos_xs_ in let op = let _1 = -# 4693 "parsing/parser.mly" +# 4694 "parsing/parser.mly" ( op ) # 15520 "parsing/parser.ml" in @@ -15597,12 +15597,12 @@ module Tables = struct let op = let _1 = let op = -# 4684 "parsing/parser.mly" +# 4685 "parsing/parser.mly" ( op ) # 15603 "parsing/parser.ml" in -# 4694 "parsing/parser.mly" +# 4695 "parsing/parser.mly" ( op ) # 15608 "parsing/parser.ml" @@ -15718,13 +15718,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 15724 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 15730 "parsing/parser.ml" @@ -15752,12 +15752,12 @@ module Tables = struct let op = let _1 = let op = -# 4684 "parsing/parser.mly" +# 4685 "parsing/parser.mly" ( op ) # 15758 "parsing/parser.ml" in -# 4694 "parsing/parser.mly" +# 4695 "parsing/parser.mly" ( op ) # 15763 "parsing/parser.ml" @@ -15838,12 +15838,12 @@ module Tables = struct let op = let _1 = let op = -# 4685 "parsing/parser.mly" +# 4686 "parsing/parser.mly" ( "mod" ) # 15844 "parsing/parser.ml" in -# 4694 "parsing/parser.mly" +# 4695 "parsing/parser.mly" ( op ) # 15849 "parsing/parser.ml" @@ -15955,13 +15955,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 15961 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 15967 "parsing/parser.ml" @@ -15989,12 +15989,12 @@ module Tables = struct let op = let _1 = let op = -# 4685 "parsing/parser.mly" +# 4686 "parsing/parser.mly" ( "mod" ) # 15995 "parsing/parser.ml" in -# 4694 "parsing/parser.mly" +# 4695 "parsing/parser.mly" ( op ) # 16000 "parsing/parser.ml" @@ -16076,7 +16076,7 @@ module Tables = struct let _endpos_e2_ = _endpos__1_ in let op = let _1 = -# 4695 "parsing/parser.mly" +# 4696 "parsing/parser.mly" ( op ) # 16082 "parsing/parser.ml" in @@ -16191,13 +16191,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 16197 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 16203 "parsing/parser.ml" @@ -16224,7 +16224,7 @@ module Tables = struct let _endpos_e2_ = _endpos_xs_ in let op = let _1 = -# 4695 "parsing/parser.mly" +# 4696 "parsing/parser.mly" ( op ) # 16230 "parsing/parser.ml" in @@ -16303,7 +16303,7 @@ module Tables = struct let _endpos_e2_ = _endpos__1_inlined1_ in let op = let _1 = -# 4696 "parsing/parser.mly" +# 4697 "parsing/parser.mly" ("+") # 16309 "parsing/parser.ml" in @@ -16414,13 +16414,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 16420 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 16426 "parsing/parser.ml" @@ -16447,7 +16447,7 @@ module Tables = struct let _endpos_e2_ = _endpos_xs_ in let op = let _1 = -# 4696 "parsing/parser.mly" +# 4697 "parsing/parser.mly" ("+") # 16453 "parsing/parser.ml" in @@ -16525,7 +16525,7 @@ module Tables = struct let _endpos_e2_ = _endpos__1_inlined1_ in let op = let _1 = -# 4697 "parsing/parser.mly" +# 4698 "parsing/parser.mly" ("+.") # 16531 "parsing/parser.ml" in @@ -16636,13 +16636,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 16642 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 16648 "parsing/parser.ml" @@ -16669,7 +16669,7 @@ module Tables = struct let _endpos_e2_ = _endpos_xs_ in let op = let _1 = -# 4697 "parsing/parser.mly" +# 4698 "parsing/parser.mly" ("+.") # 16675 "parsing/parser.ml" in @@ -16747,7 +16747,7 @@ module Tables = struct let _endpos_e2_ = _endpos__1_inlined1_ in let op = let _1 = -# 4698 "parsing/parser.mly" +# 4699 "parsing/parser.mly" ("+=") # 16753 "parsing/parser.ml" in @@ -16858,13 +16858,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 16864 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 16870 "parsing/parser.ml" @@ -16891,7 +16891,7 @@ module Tables = struct let _endpos_e2_ = _endpos_xs_ in let op = let _1 = -# 4698 "parsing/parser.mly" +# 4699 "parsing/parser.mly" ("+=") # 16897 "parsing/parser.ml" in @@ -16969,7 +16969,7 @@ module Tables = struct let _endpos_e2_ = _endpos__1_inlined1_ in let op = let _1 = -# 4699 "parsing/parser.mly" +# 4700 "parsing/parser.mly" ("-") # 16975 "parsing/parser.ml" in @@ -17080,13 +17080,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 17086 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 17092 "parsing/parser.ml" @@ -17113,7 +17113,7 @@ module Tables = struct let _endpos_e2_ = _endpos_xs_ in let op = let _1 = -# 4699 "parsing/parser.mly" +# 4700 "parsing/parser.mly" ("-") # 17119 "parsing/parser.ml" in @@ -17191,7 +17191,7 @@ module Tables = struct let _endpos_e2_ = _endpos__1_inlined1_ in let op = let _1 = -# 4700 "parsing/parser.mly" +# 4701 "parsing/parser.mly" ("-.") # 17197 "parsing/parser.ml" in @@ -17302,13 +17302,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 17308 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 17314 "parsing/parser.ml" @@ -17335,7 +17335,7 @@ module Tables = struct let _endpos_e2_ = _endpos_xs_ in let op = let _1 = -# 4700 "parsing/parser.mly" +# 4701 "parsing/parser.mly" ("-.") # 17341 "parsing/parser.ml" in @@ -17413,7 +17413,7 @@ module Tables = struct let _endpos_e2_ = _endpos__1_inlined1_ in let op = let _1 = -# 4701 "parsing/parser.mly" +# 4702 "parsing/parser.mly" ("*") # 17419 "parsing/parser.ml" in @@ -17524,13 +17524,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 17530 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 17536 "parsing/parser.ml" @@ -17557,7 +17557,7 @@ module Tables = struct let _endpos_e2_ = _endpos_xs_ in let op = let _1 = -# 4701 "parsing/parser.mly" +# 4702 "parsing/parser.mly" ("*") # 17563 "parsing/parser.ml" in @@ -17635,7 +17635,7 @@ module Tables = struct let _endpos_e2_ = _endpos__1_inlined1_ in let op = let _1 = -# 4702 "parsing/parser.mly" +# 4703 "parsing/parser.mly" ("%") # 17641 "parsing/parser.ml" in @@ -17746,13 +17746,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 17752 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 17758 "parsing/parser.ml" @@ -17779,7 +17779,7 @@ module Tables = struct let _endpos_e2_ = _endpos_xs_ in let op = let _1 = -# 4702 "parsing/parser.mly" +# 4703 "parsing/parser.mly" ("%") # 17785 "parsing/parser.ml" in @@ -17857,7 +17857,7 @@ module Tables = struct let _endpos_e2_ = _endpos__1_inlined1_ in let op = let _1 = -# 4703 "parsing/parser.mly" +# 4704 "parsing/parser.mly" ("=") # 17863 "parsing/parser.ml" in @@ -17968,13 +17968,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 17974 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 17980 "parsing/parser.ml" @@ -18001,7 +18001,7 @@ module Tables = struct let _endpos_e2_ = _endpos_xs_ in let op = let _1 = -# 4703 "parsing/parser.mly" +# 4704 "parsing/parser.mly" ("=") # 18007 "parsing/parser.ml" in @@ -18079,7 +18079,7 @@ module Tables = struct let _endpos_e2_ = _endpos__1_inlined1_ in let op = let _1 = -# 4704 "parsing/parser.mly" +# 4705 "parsing/parser.mly" ("<") # 18085 "parsing/parser.ml" in @@ -18190,13 +18190,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 18196 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 18202 "parsing/parser.ml" @@ -18223,7 +18223,7 @@ module Tables = struct let _endpos_e2_ = _endpos_xs_ in let op = let _1 = -# 4704 "parsing/parser.mly" +# 4705 "parsing/parser.mly" ("<") # 18229 "parsing/parser.ml" in @@ -18301,7 +18301,7 @@ module Tables = struct let _endpos_e2_ = _endpos__1_inlined1_ in let op = let _1 = -# 4705 "parsing/parser.mly" +# 4706 "parsing/parser.mly" (">") # 18307 "parsing/parser.ml" in @@ -18412,13 +18412,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 18418 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 18424 "parsing/parser.ml" @@ -18445,7 +18445,7 @@ module Tables = struct let _endpos_e2_ = _endpos_xs_ in let op = let _1 = -# 4705 "parsing/parser.mly" +# 4706 "parsing/parser.mly" (">") # 18451 "parsing/parser.ml" in @@ -18523,7 +18523,7 @@ module Tables = struct let _endpos_e2_ = _endpos__1_inlined1_ in let op = let _1 = -# 4706 "parsing/parser.mly" +# 4707 "parsing/parser.mly" ("or") # 18529 "parsing/parser.ml" in @@ -18634,13 +18634,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 18640 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 18646 "parsing/parser.ml" @@ -18667,7 +18667,7 @@ module Tables = struct let _endpos_e2_ = _endpos_xs_ in let op = let _1 = -# 4706 "parsing/parser.mly" +# 4707 "parsing/parser.mly" ("or") # 18673 "parsing/parser.ml" in @@ -18745,7 +18745,7 @@ module Tables = struct let _endpos_e2_ = _endpos__1_inlined1_ in let op = let _1 = -# 4707 "parsing/parser.mly" +# 4708 "parsing/parser.mly" ("||") # 18751 "parsing/parser.ml" in @@ -18856,13 +18856,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 18862 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 18868 "parsing/parser.ml" @@ -18889,7 +18889,7 @@ module Tables = struct let _endpos_e2_ = _endpos_xs_ in let op = let _1 = -# 4707 "parsing/parser.mly" +# 4708 "parsing/parser.mly" ("||") # 18895 "parsing/parser.ml" in @@ -18967,7 +18967,7 @@ module Tables = struct let _endpos_e2_ = _endpos__1_inlined1_ in let op = let _1 = -# 4708 "parsing/parser.mly" +# 4709 "parsing/parser.mly" ("&") # 18973 "parsing/parser.ml" in @@ -19078,13 +19078,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 19084 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 19090 "parsing/parser.ml" @@ -19111,7 +19111,7 @@ module Tables = struct let _endpos_e2_ = _endpos_xs_ in let op = let _1 = -# 4708 "parsing/parser.mly" +# 4709 "parsing/parser.mly" ("&") # 19117 "parsing/parser.ml" in @@ -19189,7 +19189,7 @@ module Tables = struct let _endpos_e2_ = _endpos__1_inlined1_ in let op = let _1 = -# 4709 "parsing/parser.mly" +# 4710 "parsing/parser.mly" ("&&") # 19195 "parsing/parser.ml" in @@ -19300,13 +19300,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 19306 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 19312 "parsing/parser.ml" @@ -19333,7 +19333,7 @@ module Tables = struct let _endpos_e2_ = _endpos_xs_ in let op = let _1 = -# 4709 "parsing/parser.mly" +# 4710 "parsing/parser.mly" ("&&") # 19339 "parsing/parser.ml" in @@ -19411,7 +19411,7 @@ module Tables = struct let _endpos_e2_ = _endpos__1_inlined1_ in let op = let _1 = -# 4710 "parsing/parser.mly" +# 4711 "parsing/parser.mly" (":=") # 19417 "parsing/parser.ml" in @@ -19522,13 +19522,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 19528 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 19534 "parsing/parser.ml" @@ -19555,7 +19555,7 @@ module Tables = struct let _endpos_e2_ = _endpos_xs_ in let op = let _1 = -# 4710 "parsing/parser.mly" +# 4711 "parsing/parser.mly" (":=") # 19561 "parsing/parser.ml" in @@ -19832,13 +19832,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 19838 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 19844 "parsing/parser.ml" @@ -19926,7 +19926,7 @@ module Tables = struct let _endpos__3_ = _endpos__1_inlined1_ in let _1 = let _1 = -# 4617 "parsing/parser.mly" +# 4618 "parsing/parser.mly" ( _1 ) # 19932 "parsing/parser.ml" in @@ -20034,13 +20034,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 20040 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 20046 "parsing/parser.ml" @@ -20067,7 +20067,7 @@ module Tables = struct let _endpos__3_ = _endpos_xs_ in let _1 = let _1 = -# 4617 "parsing/parser.mly" +# 4618 "parsing/parser.mly" ( _1 ) # 20073 "parsing/parser.ml" in @@ -20266,13 +20266,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 20272 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 20278 "parsing/parser.ml" @@ -20527,13 +20527,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 20533 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 20539 "parsing/parser.ml" @@ -20789,13 +20789,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 20795 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 20801 "parsing/parser.ml" @@ -21051,13 +21051,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 21057 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 21063 "parsing/parser.ml" @@ -21338,13 +21338,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 21344 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 21350 "parsing/parser.ml" @@ -21680,13 +21680,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 21686 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 21692 "parsing/parser.ml" @@ -21992,13 +21992,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 21998 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 22004 "parsing/parser.ml" @@ -22334,13 +22334,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 22340 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 22346 "parsing/parser.ml" @@ -22646,13 +22646,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 22652 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 22658 "parsing/parser.ml" @@ -22988,13 +22988,13 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 22994 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) # 23000 "parsing/parser.ml" @@ -23154,7 +23154,7 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4366 "parsing/parser.mly" +# 4367 "parsing/parser.mly" ( Mode.Const.mk "local" (make_loc _sloc) ) # 23160 "parsing/parser.ml" @@ -23199,7 +23199,7 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4368 "parsing/parser.mly" +# 4369 "parsing/parser.mly" ( Mode.Const.mk "unique" (make_loc _sloc) ) # 23205 "parsing/parser.ml" @@ -23244,7 +23244,7 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4370 "parsing/parser.mly" +# 4371 "parsing/parser.mly" ( Mode.Const.mk "once" (make_loc _sloc) ) # 23250 "parsing/parser.ml" @@ -23699,7 +23699,7 @@ module Tables = struct let _startpos = _startpos_ty_ in let _endpos = _endpos_ty_ in let _v : (Parsetree.core_type) = -# 4272 "parsing/parser.mly" +# 4273 "parsing/parser.mly" ( ty ) # 23705 "parsing/parser.ml" in @@ -23724,7 +23724,7 @@ module Tables = struct let _startpos = _startpos_ty_ in let _endpos = _endpos_ty_ in let _v : (Parsetree.core_type) = -# 4274 "parsing/parser.mly" +# 4275 "parsing/parser.mly" ( ty ) # 23730 "parsing/parser.ml" in @@ -23841,7 +23841,7 @@ module Tables = struct let _endpos = _startpos in let _v : ((Asttypes.label Asttypes.loc * Jane_asttypes.jkind_annotation option) list * Parsetree.constructor_arguments * Parsetree.core_type option) = -# 4042 "parsing/parser.mly" +# 4043 "parsing/parser.mly" ( ([],Pcstr_tuple [],None) ) # 23847 "parsing/parser.ml" in @@ -23874,7 +23874,7 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : ((Asttypes.label Asttypes.loc * Jane_asttypes.jkind_annotation option) list * Parsetree.constructor_arguments * Parsetree.core_type option) = -# 4043 "parsing/parser.mly" +# 4044 "parsing/parser.mly" ( ([],_2,None) ) # 23880 "parsing/parser.ml" in @@ -23921,7 +23921,7 @@ module Tables = struct let _endpos = _endpos__4_ in let _v : ((Asttypes.label Asttypes.loc * Jane_asttypes.jkind_annotation option) list * Parsetree.constructor_arguments * Parsetree.core_type option) = -# 4045 "parsing/parser.mly" +# 4046 "parsing/parser.mly" ( ([],_2,Some _4) ) # 23927 "parsing/parser.ml" in @@ -23995,13 +23995,13 @@ module Tables = struct in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) # 24001 "parsing/parser.ml" in -# 4048 "parsing/parser.mly" +# 4049 "parsing/parser.mly" ( (_2,_4,Some _6) ) # 24007 "parsing/parser.ml" in @@ -24034,7 +24034,7 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : ((Asttypes.label Asttypes.loc * Jane_asttypes.jkind_annotation option) list * Parsetree.constructor_arguments * Parsetree.core_type option) = -# 4050 "parsing/parser.mly" +# 4051 "parsing/parser.mly" ( ([],Pcstr_tuple [],Some _2) ) # 24040 "parsing/parser.ml" in @@ -24094,13 +24094,13 @@ module Tables = struct in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) # 24100 "parsing/parser.ml" in -# 4052 "parsing/parser.mly" +# 4053 "parsing/parser.mly" ( (_2,Pcstr_tuple [],Some _4) ) # 24106 "parsing/parser.ml" in @@ -24152,7 +24152,7 @@ module Tables = struct Parsetree.attributes * Location.t * Docstrings.info) = let attrs = let _1 = _1_inlined2 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 24158 "parsing/parser.ml" @@ -24173,7 +24173,7 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3981 "parsing/parser.mly" +# 3982 "parsing/parser.mly" ( let vars, args, res = vars_args_res in let info = symbol_info _endpos in @@ -24223,7 +24223,7 @@ module Tables = struct Parsetree.attributes * Location.t * Docstrings.info) = let attrs = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 24229 "parsing/parser.ml" @@ -24241,7 +24241,7 @@ module Tables = struct in let _startpos_cid_ = _startpos__1_ in let _1 = -# 4814 "parsing/parser.mly" +# 4815 "parsing/parser.mly" ( () ) # 24247 "parsing/parser.ml" in @@ -24249,7 +24249,7 @@ module Tables = struct let _symbolstartpos = _startpos_cid_ in let _sloc = (_symbolstartpos, _endpos) in -# 3981 "parsing/parser.mly" +# 3982 "parsing/parser.mly" ( let vars, args, res = vars_args_res in let info = symbol_info _endpos in @@ -24349,7 +24349,7 @@ module Tables = struct Parsetree.type_declaration) = let attrs2 = let _1 = _1_inlined4 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) # 24355 "parsing/parser.ml" @@ -24369,13 +24369,13 @@ module Tables = struct in -# 3825 "parsing/parser.mly" +# 3826 "parsing/parser.mly" ( _1 ) # 24375 "parsing/parser.ml" in let kind_priv_manifest = -# 3860 "parsing/parser.mly" +# 3861 "parsing/parser.mly" ( _2 ) # 24381 "parsing/parser.ml" in @@ -24391,14 +24391,14 @@ module Tables = struct in let flag = -# 4834 "parsing/parser.mly" +# 4835 "parsing/parser.mly" ( Recursive ) # 24397 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 24404 "parsing/parser.ml" @@ -24407,7 +24407,7 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3794 "parsing/parser.mly" +# 3795 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in @@ -24517,7 +24517,7 @@ module Tables = struct Parsetree.type_declaration) = let attrs2 = let _1 = _1_inlined5 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) # 24523 "parsing/parser.ml" @@ -24537,13 +24537,13 @@ module Tables = struct in -# 3825 "parsing/parser.mly" +# 3826 "parsing/parser.mly" ( _1 ) # 24543 "parsing/parser.ml" in let kind_priv_manifest = -# 3860 "parsing/parser.mly" +# 3861 "parsing/parser.mly" ( _2 ) # 24549 "parsing/parser.ml" in @@ -24564,7 +24564,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in -# 4836 "parsing/parser.mly" +# 4837 "parsing/parser.mly" ( not_expecting _loc "nonrec flag" ) # 24570 "parsing/parser.ml" @@ -24572,7 +24572,7 @@ module Tables = struct let attrs1 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 24578 "parsing/parser.ml" @@ -24581,7 +24581,7 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3794 "parsing/parser.mly" +# 3795 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in @@ -24677,7 +24677,7 @@ module Tables = struct Parsetree.type_declaration) = let attrs2 = let _1 = _1_inlined3 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) # 24683 "parsing/parser.ml" @@ -24697,7 +24697,7 @@ module Tables = struct in -# 3825 "parsing/parser.mly" +# 3826 "parsing/parser.mly" ( _1 ) # 24703 "parsing/parser.ml" @@ -24714,14 +24714,14 @@ module Tables = struct in let flag = -# 4830 "parsing/parser.mly" +# 4831 "parsing/parser.mly" ( Recursive ) # 24720 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 24727 "parsing/parser.ml" @@ -24730,7 +24730,7 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3794 "parsing/parser.mly" +# 3795 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in @@ -24833,7 +24833,7 @@ module Tables = struct Parsetree.type_declaration) = let attrs2 = let _1 = _1_inlined4 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) # 24839 "parsing/parser.ml" @@ -24853,7 +24853,7 @@ module Tables = struct in -# 3825 "parsing/parser.mly" +# 3826 "parsing/parser.mly" ( _1 ) # 24859 "parsing/parser.ml" @@ -24870,14 +24870,14 @@ module Tables = struct in let flag = -# 4831 "parsing/parser.mly" +# 4832 "parsing/parser.mly" ( Nonrecursive ) # 24876 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 24883 "parsing/parser.ml" @@ -24886,7 +24886,7 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3794 "parsing/parser.mly" +# 3795 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in @@ -24923,7 +24923,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = -# 4656 "parsing/parser.mly" +# 4657 "parsing/parser.mly" ( _1 ) # 24929 "parsing/parser.ml" in @@ -24952,7 +24952,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = -# 4657 "parsing/parser.mly" +# 4658 "parsing/parser.mly" ( _1 ) # 24958 "parsing/parser.ml" in @@ -25059,7 +25059,7 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (string) = -# 4713 "parsing/parser.mly" +# 4714 "parsing/parser.mly" ( "" ) # 25065 "parsing/parser.ml" in @@ -25091,7 +25091,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (string) = -# 4714 "parsing/parser.mly" +# 4715 "parsing/parser.mly" ( ";.." ) # 25097 "parsing/parser.ml" in @@ -25169,7 +25169,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Parsetree.extension) = -# 5027 "parsing/parser.mly" +# 5028 "parsing/parser.mly" ( (_2, _3) ) # 25175 "parsing/parser.ml" in @@ -25201,7 +25201,7 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 5029 "parsing/parser.mly" +# 5030 "parsing/parser.mly" ( mk_quotedext ~loc:_sloc _1 ) # 25207 "parsing/parser.ml" in @@ -25240,7 +25240,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Jane_asttypes.const_jkind) = -# 3874 "parsing/parser.mly" +# 3875 "parsing/parser.mly" ( (* LIDENTs here are for modes *) Misc.fatal_error "jkind syntax not implemented" ) @@ -25281,7 +25281,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Jane_asttypes.const_jkind) = -# 3877 "parsing/parser.mly" +# 3878 "parsing/parser.mly" ( Misc.fatal_error "jkind syntax not implemented" ) @@ -25318,7 +25318,7 @@ module Tables = struct in -# 3880 "parsing/parser.mly" +# 3881 "parsing/parser.mly" ( let { txt; _ } = _1 in Jane_asttypes.jkind_of_string txt @@ -25353,7 +25353,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos_ty_ in let _v : (Jane_asttypes.const_jkind) = -# 3884 "parsing/parser.mly" +# 3885 "parsing/parser.mly" ( ignore ty; Misc.fatal_error "jkind syntax not implemented" @@ -25381,7 +25381,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Jane_asttypes.const_jkind) = -# 3888 "parsing/parser.mly" +# 3889 "parsing/parser.mly" ( Misc.fatal_error "jkind syntax not implemented" ) @@ -25418,7 +25418,7 @@ module Tables = struct in -# 3894 "parsing/parser.mly" +# 3895 "parsing/parser.mly" ( _1 ) # 25424 "parsing/parser.ml" in @@ -25450,7 +25450,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Jane_asttypes.jkind_annotation) = -# 3898 "parsing/parser.mly" +# 3899 "parsing/parser.mly" ( _2 ) # 25456 "parsing/parser.ml" in @@ -25511,7 +25511,7 @@ module Tables = struct in -# 3902 "parsing/parser.mly" +# 3903 "parsing/parser.mly" ( (abbrev, jkind) ) @@ -25572,21 +25572,21 @@ module Tables = struct let _v : (Parsetree.label_declaration) = let attrs = let _1 = _1_inlined3 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 25578 "parsing/parser.ml" in let _endpos_attrs_ = _endpos__1_inlined3_ in let m1 = -# 4417 "parsing/parser.mly" +# 4418 "parsing/parser.mly" ( Mode.empty ) # 25585 "parsing/parser.ml" in let _4 = let _1 = _1_inlined2 in -# 4217 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) # 25592 "parsing/parser.ml" @@ -25594,7 +25594,7 @@ module Tables = struct let _2 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = -# 4617 "parsing/parser.mly" +# 4618 "parsing/parser.mly" ( _1 ) # 25600 "parsing/parser.ml" in @@ -25615,7 +25615,7 @@ module Tables = struct _startpos__2_ in let _sloc = (_symbolstartpos, _endpos) in -# 4076 "parsing/parser.mly" +# 4077 "parsing/parser.mly" ( let info = symbol_info _endpos in let mut, m0 = _1 in let m = Mode.concat m0 m1 in @@ -25685,7 +25685,7 @@ module Tables = struct let _v : (Parsetree.label_declaration) = let attrs = let _1 = _1_inlined4 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 25691 "parsing/parser.ml" @@ -25694,7 +25694,7 @@ module Tables = struct let m1 = let _1 = _1_inlined3 in -# 4418 "parsing/parser.mly" +# 4419 "parsing/parser.mly" (_1) # 25700 "parsing/parser.ml" @@ -25702,7 +25702,7 @@ module Tables = struct let _4 = let _1 = _1_inlined2 in -# 4217 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) # 25708 "parsing/parser.ml" @@ -25710,7 +25710,7 @@ module Tables = struct let _2 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = -# 4617 "parsing/parser.mly" +# 4618 "parsing/parser.mly" ( _1 ) # 25716 "parsing/parser.ml" in @@ -25731,7 +25731,7 @@ module Tables = struct _startpos__2_ in let _sloc = (_symbolstartpos, _endpos) in -# 4076 "parsing/parser.mly" +# 4077 "parsing/parser.mly" ( let info = symbol_info _endpos in let mut, m0 = _1 in let m = Mode.concat m0 m1 in @@ -25808,7 +25808,7 @@ module Tables = struct let _v : (Parsetree.label_declaration) = let attrs1 = let _1 = _1_inlined4 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 25814 "parsing/parser.ml" @@ -25817,21 +25817,21 @@ module Tables = struct let attrs0 = let _1 = _1_inlined3 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 25823 "parsing/parser.ml" in let _endpos_attrs0_ = _endpos__1_inlined3_ in let m1 = -# 4417 "parsing/parser.mly" +# 4418 "parsing/parser.mly" ( Mode.empty ) # 25830 "parsing/parser.ml" in let _4 = let _1 = _1_inlined2 in -# 4217 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) # 25837 "parsing/parser.ml" @@ -25839,7 +25839,7 @@ module Tables = struct let _2 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = -# 4617 "parsing/parser.mly" +# 4618 "parsing/parser.mly" ( _1 ) # 25845 "parsing/parser.ml" in @@ -25860,7 +25860,7 @@ module Tables = struct _startpos__2_ in let _sloc = (_symbolstartpos, _endpos) in -# 4085 "parsing/parser.mly" +# 4086 "parsing/parser.mly" ( let info = match rhs_info _endpos_attrs0_ with | Some _ as info_before_semi -> info_before_semi @@ -25948,7 +25948,7 @@ module Tables = struct let _v : (Parsetree.label_declaration) = let attrs1 = let _1 = _1_inlined5 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 25954 "parsing/parser.ml" @@ -25957,7 +25957,7 @@ module Tables = struct let attrs0 = let _1 = _1_inlined4 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) # 25963 "parsing/parser.ml" @@ -25966,7 +25966,7 @@ module Tables = struct let m1 = let _1 = _1_inlined3 in -# 4418 "parsing/parser.mly" +# 4419 "parsing/parser.mly" (_1) # 25972 "parsing/parser.ml" @@ -25974,7 +25974,7 @@ module Tables = struct let _4 = let _1 = _1_inlined2 in -# 4217 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) # 25980 "parsing/parser.ml" @@ -25982,7 +25982,7 @@ module Tables = struct let _2 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = -# 4617 "parsing/parser.mly" +# 4618 "parsing/parser.mly" ( _1 ) # 25988 "parsing/parser.ml" in @@ -26003,7 +26003,7 @@ module Tables = struct _startpos__2_ in let _sloc = (_symbolstartpos, _endpos) in -# 4085 "parsing/parser.mly" +# 4086 "parsing/parser.mly" ( let info = match rhs_info _endpos_attrs0_ with | Some _ as info_before_semi -> info_before_semi @@ -26036,7 +26036,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.label_declaration list) = -# 4070 "parsing/parser.mly" +# 4071 "parsing/parser.mly" ( [_1] ) # 26042 "parsing/parser.ml" in @@ -26061,7 +26061,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.label_declaration list) = -# 4071 "parsing/parser.mly" +# 4072 "parsing/parser.mly" ( [_1] ) # 26067 "parsing/parser.ml" in @@ -26093,7 +26093,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.label_declaration list) = -# 4072 "parsing/parser.mly" +# 4073 "parsing/parser.mly" ( _1 :: _2 ) # 26099 "parsing/parser.ml" in @@ -26122,7 +26122,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string * Parsetree.pattern * Mode.t) = let modes = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) # 26128 "parsing/parser.ml" in @@ -26188,7 +26188,7 @@ module Tables = struct let _v : (string * Parsetree.pattern * Mode.t) = let modes = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) # 26194 "parsing/parser.ml" @@ -26260,7 +26260,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos_cty_ in let _v : (string * Parsetree.pattern * Mode.t) = let modes = -# 4417 "parsing/parser.mly" +# 4418 "parsing/parser.mly" ( Mode.empty ) # 26266 "parsing/parser.ml" in @@ -26345,7 +26345,7 @@ module Tables = struct let _v : (string * Parsetree.pattern * Mode.t) = let modes = let _1 = _1_inlined1 in -# 4418 "parsing/parser.mly" +# 4419 "parsing/parser.mly" (_1) # 26351 "parsing/parser.ml" @@ -26436,7 +26436,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos_inner_type_ in let _v : (string * Parsetree.pattern * Mode.t) = let modes = -# 4417 "parsing/parser.mly" +# 4418 "parsing/parser.mly" ( Mode.empty ) # 26442 "parsing/parser.ml" in @@ -26457,7 +26457,7 @@ module Tables = struct in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) # 26463 "parsing/parser.ml" @@ -26572,7 +26572,7 @@ module Tables = struct let _v : (string * Parsetree.pattern * Mode.t) = let modes = let _1 = _1_inlined1 in -# 4418 "parsing/parser.mly" +# 4419 "parsing/parser.mly" (_1) # 26578 "parsing/parser.ml" @@ -26594,7 +26594,7 @@ module Tables = struct in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) # 26600 "parsing/parser.ml" @@ -26668,7 +26668,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4745 "parsing/parser.mly" +# 4746 "parsing/parser.mly" ( _1 ) # 26674 "parsing/parser.ml" in @@ -26962,7 +26962,7 @@ module Tables = struct in let modes0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) # 26968 "parsing/parser.ml" in @@ -27043,13 +27043,13 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) # 27049 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) # 27055 "parsing/parser.ml" @@ -27179,7 +27179,7 @@ module Tables = struct in let modes0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) # 27185 "parsing/parser.ml" in @@ -27264,13 +27264,13 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) # 27270 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) # 27276 "parsing/parser.ml" @@ -27360,7 +27360,7 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let modes0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) # 27366 "parsing/parser.ml" in @@ -27427,13 +27427,13 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) # 27433 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) # 27439 "parsing/parser.ml" @@ -27597,7 +27597,7 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) # 27603 "parsing/parser.ml" @@ -27679,7 +27679,7 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) # 27685 "parsing/parser.ml" @@ -27766,7 +27766,7 @@ module Tables = struct let _endpos = _endpos__4_ in let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _3 = let modes = -# 4417 "parsing/parser.mly" +# 4418 "parsing/parser.mly" ( Mode.empty ) # 27772 "parsing/parser.ml" in @@ -27788,7 +27788,7 @@ module Tables = struct in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) # 27794 "parsing/parser.ml" @@ -27920,7 +27920,7 @@ module Tables = struct let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _3 = let _1 = _1_inlined1 in let modes = -# 4418 "parsing/parser.mly" +# 4419 "parsing/parser.mly" (_1) # 27926 "parsing/parser.ml" in @@ -27942,7 +27942,7 @@ module Tables = struct in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) # 27948 "parsing/parser.ml" @@ -28073,7 +28073,7 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _4 = let modes = -# 4417 "parsing/parser.mly" +# 4418 "parsing/parser.mly" ( Mode.empty ) # 28079 "parsing/parser.ml" in @@ -28095,7 +28095,7 @@ module Tables = struct in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) # 28101 "parsing/parser.ml" @@ -28144,7 +28144,7 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) # 28150 "parsing/parser.ml" @@ -28246,7 +28246,7 @@ module Tables = struct let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _4 = let _1 = _1_inlined2 in let modes = -# 4418 "parsing/parser.mly" +# 4419 "parsing/parser.mly" (_1) # 28252 "parsing/parser.ml" in @@ -28268,7 +28268,7 @@ module Tables = struct in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) # 28274 "parsing/parser.ml" @@ -28317,7 +28317,7 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) # 28323 "parsing/parser.ml" @@ -28393,7 +28393,7 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _2 = let modes = -# 4417 "parsing/parser.mly" +# 4418 "parsing/parser.mly" ( Mode.empty ) # 28399 "parsing/parser.ml" in @@ -28415,7 +28415,7 @@ module Tables = struct in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) # 28421 "parsing/parser.ml" @@ -28536,7 +28536,7 @@ module Tables = struct let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _2 = let _1 = _1_inlined1 in let modes = -# 4418 "parsing/parser.mly" +# 4419 "parsing/parser.mly" (_1) # 28542 "parsing/parser.ml" in @@ -28558,7 +28558,7 @@ module Tables = struct in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) # 28564 "parsing/parser.ml" @@ -28650,7 +28650,7 @@ module Tables = struct in -# 3558 "parsing/parser.mly" +# 3559 "parsing/parser.mly" ( _3 :: _1 ) # 28656 "parsing/parser.ml" in @@ -28708,7 +28708,7 @@ module Tables = struct in -# 3558 "parsing/parser.mly" +# 3559 "parsing/parser.mly" ( _3 :: _1 ) # 28714 "parsing/parser.ml" in @@ -28767,7 +28767,7 @@ module Tables = struct in -# 3558 "parsing/parser.mly" +# 3559 "parsing/parser.mly" ( _3 :: _1 ) # 28773 "parsing/parser.ml" in @@ -28855,7 +28855,7 @@ module Tables = struct in -# 3558 "parsing/parser.mly" +# 3559 "parsing/parser.mly" ( _3 :: _1 ) # 28861 "parsing/parser.ml" in @@ -28907,7 +28907,7 @@ module Tables = struct # 28908 "parsing/parser.ml" in -# 3560 "parsing/parser.mly" +# 3561 "parsing/parser.mly" ( [ _3; _1 ] ) # 28913 "parsing/parser.ml" in @@ -28970,7 +28970,7 @@ module Tables = struct # 28971 "parsing/parser.ml" in -# 3560 "parsing/parser.mly" +# 3561 "parsing/parser.mly" ( [ _3; _1 ] ) # 28976 "parsing/parser.ml" in @@ -29034,7 +29034,7 @@ module Tables = struct # 29035 "parsing/parser.ml" in -# 3560 "parsing/parser.mly" +# 3561 "parsing/parser.mly" ( [ _3; _1 ] ) # 29040 "parsing/parser.ml" in @@ -29127,7 +29127,7 @@ module Tables = struct # 29128 "parsing/parser.ml" in -# 3560 "parsing/parser.mly" +# 3561 "parsing/parser.mly" ( [ _3; _1 ] ) # 29133 "parsing/parser.ml" in @@ -29193,7 +29193,7 @@ module Tables = struct in -# 3560 "parsing/parser.mly" +# 3561 "parsing/parser.mly" ( [ _3; _1 ] ) # 29199 "parsing/parser.ml" in @@ -29270,7 +29270,7 @@ module Tables = struct in -# 3560 "parsing/parser.mly" +# 3561 "parsing/parser.mly" ( [ _3; _1 ] ) # 29276 "parsing/parser.ml" in @@ -29348,7 +29348,7 @@ module Tables = struct in -# 3560 "parsing/parser.mly" +# 3561 "parsing/parser.mly" ( [ _3; _1 ] ) # 29354 "parsing/parser.ml" in @@ -29455,7 +29455,7 @@ module Tables = struct in -# 3560 "parsing/parser.mly" +# 3561 "parsing/parser.mly" ( [ _3; _1 ] ) # 29461 "parsing/parser.ml" in @@ -29522,7 +29522,7 @@ module Tables = struct in -# 3560 "parsing/parser.mly" +# 3561 "parsing/parser.mly" ( [ _3; _1 ] ) # 29528 "parsing/parser.ml" in @@ -29600,7 +29600,7 @@ module Tables = struct in -# 3560 "parsing/parser.mly" +# 3561 "parsing/parser.mly" ( [ _3; _1 ] ) # 29606 "parsing/parser.ml" in @@ -29680,7 +29680,7 @@ module Tables = struct in -# 3560 "parsing/parser.mly" +# 3561 "parsing/parser.mly" ( [ _3; _1 ] ) # 29686 "parsing/parser.ml" in @@ -29789,7 +29789,7 @@ module Tables = struct in -# 3560 "parsing/parser.mly" +# 3561 "parsing/parser.mly" ( [ _3; _1 ] ) # 29795 "parsing/parser.ml" in @@ -29875,19 +29875,22 @@ module Tables = struct in let _1 = + let _startpos__2_ = _startpos__2_inlined1_ in + let _endpos = _endpos__6_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3552 "parsing/parser.mly" - ( let loc = _loc_label_ in - let pat = mkpatvar ~loc label in - Some label, mkpat_opt_constraint ~loc pat (Some cty) ) -# 29885 "parsing/parser.ml" + ( let lbl_loc = _loc_label_ in + let pat_loc = _startpos__2_, _endpos in + let pat = mkpatvar ~loc:lbl_loc label in + Some label, mkpat_opt_constraint ~loc:pat_loc pat (Some cty) ) +# 29888 "parsing/parser.ml" in -# 3560 "parsing/parser.mly" +# 3561 "parsing/parser.mly" ( [ _3; _1 ] ) -# 29891 "parsing/parser.ml" +# 29894 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29957,7 +29960,7 @@ module Tables = struct let _1_inlined1 : ( # 1002 "parsing/parser.mly" (string) -# 29961 "parsing/parser.ml" +# 29964 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _6 : unit = Obj.magic _6 in @@ -29966,7 +29969,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 29970 "parsing/parser.ml" +# 29973 "parsing/parser.ml" ) = Obj.magic label in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -29978,23 +29981,26 @@ module Tables = struct # 3535 "parsing/parser.mly" ( Some _1, _2 ) -# 29982 "parsing/parser.ml" +# 29985 "parsing/parser.ml" in let _1 = + let _startpos__2_ = _startpos__2_inlined1_ in + let _endpos = _endpos__6_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3552 "parsing/parser.mly" - ( let loc = _loc_label_ in - let pat = mkpatvar ~loc label in - Some label, mkpat_opt_constraint ~loc pat (Some cty) ) -# 29992 "parsing/parser.ml" + ( let lbl_loc = _loc_label_ in + let pat_loc = _startpos__2_, _endpos in + let pat = mkpatvar ~loc:lbl_loc label in + Some label, mkpat_opt_constraint ~loc:pat_loc pat (Some cty) ) +# 29998 "parsing/parser.ml" in -# 3560 "parsing/parser.mly" +# 3561 "parsing/parser.mly" ( [ _3; _1 ] ) -# 29998 "parsing/parser.ml" +# 30004 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30063,7 +30069,7 @@ module Tables = struct let label_inlined1 : ( # 1016 "parsing/parser.mly" (string) -# 30067 "parsing/parser.ml" +# 30073 "parsing/parser.ml" ) = Obj.magic label_inlined1 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in @@ -30073,7 +30079,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 30077 "parsing/parser.ml" +# 30083 "parsing/parser.ml" ) = Obj.magic label in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -30087,23 +30093,26 @@ module Tables = struct # 3537 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkpatvar ~loc label ) -# 30091 "parsing/parser.ml" +# 30097 "parsing/parser.ml" in let _1 = + let _startpos__2_ = _startpos__2_inlined1_ in + let _endpos = _endpos__6_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3552 "parsing/parser.mly" - ( let loc = _loc_label_ in - let pat = mkpatvar ~loc label in - Some label, mkpat_opt_constraint ~loc pat (Some cty) ) -# 30101 "parsing/parser.ml" + ( let lbl_loc = _loc_label_ in + let pat_loc = _startpos__2_, _endpos in + let pat = mkpatvar ~loc:lbl_loc label in + Some label, mkpat_opt_constraint ~loc:pat_loc pat (Some cty) ) +# 30110 "parsing/parser.ml" in -# 3560 "parsing/parser.mly" +# 3561 "parsing/parser.mly" ( [ _3; _1 ] ) -# 30107 "parsing/parser.ml" +# 30116 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30199,7 +30208,7 @@ module Tables = struct let label_inlined1 : ( # 1016 "parsing/parser.mly" (string) -# 30203 "parsing/parser.ml" +# 30212 "parsing/parser.ml" ) = Obj.magic label_inlined1 in let _2_inlined2 : unit = Obj.magic _2_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in @@ -30210,7 +30219,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 30214 "parsing/parser.ml" +# 30223 "parsing/parser.ml" ) = Obj.magic label in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -30225,23 +30234,26 @@ module Tables = struct ( let loc = _loc_label_ in let pat = mkpatvar ~loc label in Some label, mkpat_opt_constraint ~loc pat (Some cty) ) -# 30229 "parsing/parser.ml" +# 30238 "parsing/parser.ml" in let _1 = + let _startpos__2_ = _startpos__2_inlined1_ in + let _endpos = _endpos__6_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3552 "parsing/parser.mly" - ( let loc = _loc_label_ in - let pat = mkpatvar ~loc label in - Some label, mkpat_opt_constraint ~loc pat (Some cty) ) -# 30239 "parsing/parser.ml" + ( let lbl_loc = _loc_label_ in + let pat_loc = _startpos__2_, _endpos in + let pat = mkpatvar ~loc:lbl_loc label in + Some label, mkpat_opt_constraint ~loc:pat_loc pat (Some cty) ) +# 30251 "parsing/parser.ml" in -# 3560 "parsing/parser.mly" +# 3561 "parsing/parser.mly" ( [ _3; _1 ] ) -# 30245 "parsing/parser.ml" +# 30257 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30279,9 +30291,9 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : ((string option * Parsetree.pattern) list) = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3562 "parsing/parser.mly" +# 3563 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) -# 30285 "parsing/parser.ml" +# 30297 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30322,13 +30334,13 @@ module Tables = struct # 3533 "parsing/parser.mly" ( None, _1 ) -# 30326 "parsing/parser.ml" +# 30338 "parsing/parser.ml" in -# 3558 "parsing/parser.mly" +# 3559 "parsing/parser.mly" ( _3 :: _1 ) -# 30332 "parsing/parser.ml" +# 30344 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30368,7 +30380,7 @@ module Tables = struct let _1_inlined1 : ( # 1002 "parsing/parser.mly" (string) -# 30372 "parsing/parser.ml" +# 30384 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : ((string option * Parsetree.pattern) list) = Obj.magic _1 in @@ -30380,13 +30392,13 @@ module Tables = struct # 3535 "parsing/parser.mly" ( Some _1, _2 ) -# 30384 "parsing/parser.ml" +# 30396 "parsing/parser.ml" in -# 3558 "parsing/parser.mly" +# 3559 "parsing/parser.mly" ( _3 :: _1 ) -# 30390 "parsing/parser.ml" +# 30402 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30425,7 +30437,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 30429 "parsing/parser.ml" +# 30441 "parsing/parser.ml" ) = Obj.magic label in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in @@ -30439,13 +30451,13 @@ module Tables = struct # 3537 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkpatvar ~loc label ) -# 30443 "parsing/parser.ml" +# 30455 "parsing/parser.ml" in -# 3558 "parsing/parser.mly" +# 3559 "parsing/parser.mly" ( _3 :: _1 ) -# 30449 "parsing/parser.ml" +# 30461 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30511,7 +30523,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 30515 "parsing/parser.ml" +# 30527 "parsing/parser.ml" ) = Obj.magic label in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in @@ -30527,13 +30539,13 @@ module Tables = struct ( let loc = _loc_label_ in let pat = mkpatvar ~loc label in Some label, mkpat_opt_constraint ~loc pat (Some cty) ) -# 30531 "parsing/parser.ml" +# 30543 "parsing/parser.ml" in -# 3558 "parsing/parser.mly" +# 3559 "parsing/parser.mly" ( _3 :: _1 ) -# 30537 "parsing/parser.ml" +# 30549 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30574,18 +30586,18 @@ module Tables = struct # 3533 "parsing/parser.mly" ( None, _1 ) -# 30578 "parsing/parser.ml" +# 30590 "parsing/parser.ml" in let _1 = # 3545 "parsing/parser.mly" ( None, _1 ) -# 30584 "parsing/parser.ml" +# 30596 "parsing/parser.ml" in -# 3560 "parsing/parser.mly" +# 3561 "parsing/parser.mly" ( [ _3; _1 ] ) -# 30589 "parsing/parser.ml" +# 30601 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30625,7 +30637,7 @@ module Tables = struct let _1_inlined1 : ( # 1002 "parsing/parser.mly" (string) -# 30629 "parsing/parser.ml" +# 30641 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.pattern) = Obj.magic _1 in @@ -30637,18 +30649,18 @@ module Tables = struct # 3535 "parsing/parser.mly" ( Some _1, _2 ) -# 30641 "parsing/parser.ml" +# 30653 "parsing/parser.ml" in let _1 = # 3545 "parsing/parser.mly" ( None, _1 ) -# 30647 "parsing/parser.ml" +# 30659 "parsing/parser.ml" in -# 3560 "parsing/parser.mly" +# 3561 "parsing/parser.mly" ( [ _3; _1 ] ) -# 30652 "parsing/parser.ml" +# 30664 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30687,7 +30699,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 30691 "parsing/parser.ml" +# 30703 "parsing/parser.ml" ) = Obj.magic label in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in @@ -30701,18 +30713,18 @@ module Tables = struct # 3537 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkpatvar ~loc label ) -# 30705 "parsing/parser.ml" +# 30717 "parsing/parser.ml" in let _1 = # 3545 "parsing/parser.mly" ( None, _1 ) -# 30711 "parsing/parser.ml" +# 30723 "parsing/parser.ml" in -# 3560 "parsing/parser.mly" +# 3561 "parsing/parser.mly" ( [ _3; _1 ] ) -# 30716 "parsing/parser.ml" +# 30728 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30778,7 +30790,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 30782 "parsing/parser.ml" +# 30794 "parsing/parser.ml" ) = Obj.magic label in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in @@ -30794,18 +30806,18 @@ module Tables = struct ( let loc = _loc_label_ in let pat = mkpatvar ~loc label in Some label, mkpat_opt_constraint ~loc pat (Some cty) ) -# 30798 "parsing/parser.ml" +# 30810 "parsing/parser.ml" in let _1 = # 3545 "parsing/parser.mly" ( None, _1 ) -# 30804 "parsing/parser.ml" +# 30816 "parsing/parser.ml" in -# 3560 "parsing/parser.mly" +# 3561 "parsing/parser.mly" ( [ _3; _1 ] ) -# 30809 "parsing/parser.ml" +# 30821 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30847,7 +30859,7 @@ module Tables = struct let _1 : ( # 1002 "parsing/parser.mly" (string) -# 30851 "parsing/parser.ml" +# 30863 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -30857,7 +30869,7 @@ module Tables = struct # 3533 "parsing/parser.mly" ( None, _1 ) -# 30861 "parsing/parser.ml" +# 30873 "parsing/parser.ml" in let _1 = @@ -30865,13 +30877,13 @@ module Tables = struct # 3547 "parsing/parser.mly" ( Some _1, _2 ) -# 30869 "parsing/parser.ml" +# 30881 "parsing/parser.ml" in -# 3560 "parsing/parser.mly" +# 3561 "parsing/parser.mly" ( [ _3; _1 ] ) -# 30875 "parsing/parser.ml" +# 30887 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30917,14 +30929,14 @@ module Tables = struct let _1_inlined1 : ( # 1002 "parsing/parser.mly" (string) -# 30921 "parsing/parser.ml" +# 30933 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _2_inlined1 : (Parsetree.pattern) = Obj.magic _2_inlined1 in let _1 : ( # 1002 "parsing/parser.mly" (string) -# 30928 "parsing/parser.ml" +# 30940 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -30934,7 +30946,7 @@ module Tables = struct # 3535 "parsing/parser.mly" ( Some _1, _2 ) -# 30938 "parsing/parser.ml" +# 30950 "parsing/parser.ml" in let _1 = @@ -30942,13 +30954,13 @@ module Tables = struct # 3547 "parsing/parser.mly" ( Some _1, _2 ) -# 30946 "parsing/parser.ml" +# 30958 "parsing/parser.ml" in -# 3560 "parsing/parser.mly" +# 3561 "parsing/parser.mly" ( [ _3; _1 ] ) -# 30952 "parsing/parser.ml" +# 30964 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30993,7 +31005,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 30997 "parsing/parser.ml" +# 31009 "parsing/parser.ml" ) = Obj.magic label in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in @@ -31001,7 +31013,7 @@ module Tables = struct let _1 : ( # 1002 "parsing/parser.mly" (string) -# 31005 "parsing/parser.ml" +# 31017 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -31012,7 +31024,7 @@ module Tables = struct # 3537 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkpatvar ~loc label ) -# 31016 "parsing/parser.ml" +# 31028 "parsing/parser.ml" in let _1 = @@ -31020,13 +31032,13 @@ module Tables = struct # 3547 "parsing/parser.mly" ( Some _1, _2 ) -# 31024 "parsing/parser.ml" +# 31036 "parsing/parser.ml" in -# 3560 "parsing/parser.mly" +# 3561 "parsing/parser.mly" ( [ _3; _1 ] ) -# 31030 "parsing/parser.ml" +# 31042 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31098,7 +31110,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 31102 "parsing/parser.ml" +# 31114 "parsing/parser.ml" ) = Obj.magic label in let _2_inlined2 : unit = Obj.magic _2_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in @@ -31107,7 +31119,7 @@ module Tables = struct let _1 : ( # 1002 "parsing/parser.mly" (string) -# 31111 "parsing/parser.ml" +# 31123 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -31119,7 +31131,7 @@ module Tables = struct ( let loc = _loc_label_ in let pat = mkpatvar ~loc label in Some label, mkpat_opt_constraint ~loc pat (Some cty) ) -# 31123 "parsing/parser.ml" +# 31135 "parsing/parser.ml" in let _1 = @@ -31127,13 +31139,13 @@ module Tables = struct # 3547 "parsing/parser.mly" ( Some _1, _2 ) -# 31131 "parsing/parser.ml" +# 31143 "parsing/parser.ml" in -# 3560 "parsing/parser.mly" +# 3561 "parsing/parser.mly" ( [ _3; _1 ] ) -# 31137 "parsing/parser.ml" +# 31149 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31174,7 +31186,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 31178 "parsing/parser.ml" +# 31190 "parsing/parser.ml" ) = Obj.magic label in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -31185,7 +31197,7 @@ module Tables = struct # 3533 "parsing/parser.mly" ( None, _1 ) -# 31189 "parsing/parser.ml" +# 31201 "parsing/parser.ml" in let _1 = @@ -31194,13 +31206,13 @@ module Tables = struct # 3549 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkpatvar ~loc label ) -# 31198 "parsing/parser.ml" +# 31210 "parsing/parser.ml" in -# 3560 "parsing/parser.mly" +# 3561 "parsing/parser.mly" ( [ _3; _1 ] ) -# 31204 "parsing/parser.ml" +# 31216 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31246,13 +31258,13 @@ module Tables = struct let _1_inlined1 : ( # 1002 "parsing/parser.mly" (string) -# 31250 "parsing/parser.ml" +# 31262 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let label : ( # 1016 "parsing/parser.mly" (string) -# 31256 "parsing/parser.ml" +# 31268 "parsing/parser.ml" ) = Obj.magic label in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -31263,7 +31275,7 @@ module Tables = struct # 3535 "parsing/parser.mly" ( Some _1, _2 ) -# 31267 "parsing/parser.ml" +# 31279 "parsing/parser.ml" in let _1 = @@ -31272,13 +31284,13 @@ module Tables = struct # 3549 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkpatvar ~loc label ) -# 31276 "parsing/parser.ml" +# 31288 "parsing/parser.ml" in -# 3560 "parsing/parser.mly" +# 3561 "parsing/parser.mly" ( [ _3; _1 ] ) -# 31282 "parsing/parser.ml" +# 31294 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31323,14 +31335,14 @@ module Tables = struct let label_inlined1 : ( # 1016 "parsing/parser.mly" (string) -# 31327 "parsing/parser.ml" +# 31339 "parsing/parser.ml" ) = Obj.magic label_inlined1 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let label : ( # 1016 "parsing/parser.mly" (string) -# 31334 "parsing/parser.ml" +# 31346 "parsing/parser.ml" ) = Obj.magic label in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -31343,7 +31355,7 @@ module Tables = struct # 3537 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkpatvar ~loc label ) -# 31347 "parsing/parser.ml" +# 31359 "parsing/parser.ml" in let _1 = @@ -31352,13 +31364,13 @@ module Tables = struct # 3549 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkpatvar ~loc label ) -# 31356 "parsing/parser.ml" +# 31368 "parsing/parser.ml" in -# 3560 "parsing/parser.mly" +# 3561 "parsing/parser.mly" ( [ _3; _1 ] ) -# 31362 "parsing/parser.ml" +# 31374 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31430,7 +31442,7 @@ module Tables = struct let label_inlined1 : ( # 1016 "parsing/parser.mly" (string) -# 31434 "parsing/parser.ml" +# 31446 "parsing/parser.ml" ) = Obj.magic label_inlined1 in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in @@ -31438,7 +31450,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 31442 "parsing/parser.ml" +# 31454 "parsing/parser.ml" ) = Obj.magic label in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -31452,7 +31464,7 @@ module Tables = struct ( let loc = _loc_label_ in let pat = mkpatvar ~loc label in Some label, mkpat_opt_constraint ~loc pat (Some cty) ) -# 31456 "parsing/parser.ml" +# 31468 "parsing/parser.ml" in let _1 = @@ -31461,13 +31473,13 @@ module Tables = struct # 3549 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkpatvar ~loc label ) -# 31465 "parsing/parser.ml" +# 31477 "parsing/parser.ml" in -# 3560 "parsing/parser.mly" +# 3561 "parsing/parser.mly" ( [ _3; _1 ] ) -# 31471 "parsing/parser.ml" +# 31483 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31535,7 +31547,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 31539 "parsing/parser.ml" +# 31551 "parsing/parser.ml" ) = Obj.magic label in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -31547,23 +31559,26 @@ module Tables = struct # 3533 "parsing/parser.mly" ( None, _1 ) -# 31551 "parsing/parser.ml" +# 31563 "parsing/parser.ml" in let _1 = + let _startpos__2_ = _startpos__2_inlined1_ in + let _endpos = _endpos__6_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3552 "parsing/parser.mly" - ( let loc = _loc_label_ in - let pat = mkpatvar ~loc label in - Some label, mkpat_opt_constraint ~loc pat (Some cty) ) -# 31561 "parsing/parser.ml" + ( let lbl_loc = _loc_label_ in + let pat_loc = _startpos__2_, _endpos in + let pat = mkpatvar ~loc:lbl_loc label in + Some label, mkpat_opt_constraint ~loc:pat_loc pat (Some cty) ) +# 31576 "parsing/parser.ml" in -# 3560 "parsing/parser.mly" +# 3561 "parsing/parser.mly" ( [ _3; _1 ] ) -# 31567 "parsing/parser.ml" +# 31582 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31633,7 +31648,7 @@ module Tables = struct let _1_inlined1 : ( # 1002 "parsing/parser.mly" (string) -# 31637 "parsing/parser.ml" +# 31652 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _6 : unit = Obj.magic _6 in @@ -31642,7 +31657,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 31646 "parsing/parser.ml" +# 31661 "parsing/parser.ml" ) = Obj.magic label in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -31654,23 +31669,26 @@ module Tables = struct # 3535 "parsing/parser.mly" ( Some _1, _2 ) -# 31658 "parsing/parser.ml" +# 31673 "parsing/parser.ml" in let _1 = + let _startpos__2_ = _startpos__2_inlined1_ in + let _endpos = _endpos__6_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3552 "parsing/parser.mly" - ( let loc = _loc_label_ in - let pat = mkpatvar ~loc label in - Some label, mkpat_opt_constraint ~loc pat (Some cty) ) -# 31668 "parsing/parser.ml" + ( let lbl_loc = _loc_label_ in + let pat_loc = _startpos__2_, _endpos in + let pat = mkpatvar ~loc:lbl_loc label in + Some label, mkpat_opt_constraint ~loc:pat_loc pat (Some cty) ) +# 31686 "parsing/parser.ml" in -# 3560 "parsing/parser.mly" +# 3561 "parsing/parser.mly" ( [ _3; _1 ] ) -# 31674 "parsing/parser.ml" +# 31692 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31739,7 +31757,7 @@ module Tables = struct let label_inlined1 : ( # 1016 "parsing/parser.mly" (string) -# 31743 "parsing/parser.ml" +# 31761 "parsing/parser.ml" ) = Obj.magic label_inlined1 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in @@ -31749,7 +31767,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 31753 "parsing/parser.ml" +# 31771 "parsing/parser.ml" ) = Obj.magic label in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -31763,23 +31781,26 @@ module Tables = struct # 3537 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkpatvar ~loc label ) -# 31767 "parsing/parser.ml" +# 31785 "parsing/parser.ml" in let _1 = + let _startpos__2_ = _startpos__2_inlined1_ in + let _endpos = _endpos__6_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3552 "parsing/parser.mly" - ( let loc = _loc_label_ in - let pat = mkpatvar ~loc label in - Some label, mkpat_opt_constraint ~loc pat (Some cty) ) -# 31777 "parsing/parser.ml" + ( let lbl_loc = _loc_label_ in + let pat_loc = _startpos__2_, _endpos in + let pat = mkpatvar ~loc:lbl_loc label in + Some label, mkpat_opt_constraint ~loc:pat_loc pat (Some cty) ) +# 31798 "parsing/parser.ml" in -# 3560 "parsing/parser.mly" +# 3561 "parsing/parser.mly" ( [ _3; _1 ] ) -# 31783 "parsing/parser.ml" +# 31804 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31875,7 +31896,7 @@ module Tables = struct let label_inlined1 : ( # 1016 "parsing/parser.mly" (string) -# 31879 "parsing/parser.ml" +# 31900 "parsing/parser.ml" ) = Obj.magic label_inlined1 in let _2_inlined2 : unit = Obj.magic _2_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in @@ -31886,7 +31907,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 31890 "parsing/parser.ml" +# 31911 "parsing/parser.ml" ) = Obj.magic label in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -31901,23 +31922,26 @@ module Tables = struct ( let loc = _loc_label_ in let pat = mkpatvar ~loc label in Some label, mkpat_opt_constraint ~loc pat (Some cty) ) -# 31905 "parsing/parser.ml" +# 31926 "parsing/parser.ml" in let _1 = + let _startpos__2_ = _startpos__2_inlined1_ in + let _endpos = _endpos__6_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3552 "parsing/parser.mly" - ( let loc = _loc_label_ in - let pat = mkpatvar ~loc label in - Some label, mkpat_opt_constraint ~loc pat (Some cty) ) -# 31915 "parsing/parser.ml" + ( let lbl_loc = _loc_label_ in + let pat_loc = _startpos__2_, _endpos in + let pat = mkpatvar ~loc:lbl_loc label in + Some label, mkpat_opt_constraint ~loc:pat_loc pat (Some cty) ) +# 31939 "parsing/parser.ml" in -# 3560 "parsing/parser.mly" +# 3561 "parsing/parser.mly" ( [ _3; _1 ] ) -# 31921 "parsing/parser.ml" +# 31945 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31955,9 +31979,9 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : ((string option * Parsetree.pattern) list) = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3562 "parsing/parser.mly" +# 3563 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) -# 31961 "parsing/parser.ml" +# 31985 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31985,7 +32009,7 @@ module Tables = struct Parsetree.attribute list) = # 3165 "parsing/parser.mly" ( let p,e,c,attrs = _1 in (p,e,c,false), attrs ) -# 31989 "parsing/parser.ml" +# 32013 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32015,7 +32039,7 @@ module Tables = struct # 3168 "parsing/parser.mly" ( (mkpatvar ~loc:_loc _1, mkexpvar ~loc:_loc _1, None, true), [] ) -# 32019 "parsing/parser.ml" +# 32043 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32050,7 +32074,7 @@ module Tables = struct # 3247 "parsing/parser.mly" (_1 Mode.empty) -# 32054 "parsing/parser.ml" +# 32078 "parsing/parser.ml" in let _1 = @@ -32060,13 +32084,13 @@ module Tables = struct # 3079 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 32064 "parsing/parser.ml" +# 32088 "parsing/parser.ml" in # 3089 "parsing/parser.mly" ( (_1, _2, None, []) ) -# 32070 "parsing/parser.ml" +# 32094 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32114,21 +32138,21 @@ module Tables = struct let _1 = _1_inlined1 in let _1 = let _2 = -# 4417 "parsing/parser.mly" +# 4418 "parsing/parser.mly" ( Mode.empty ) -# 32120 "parsing/parser.ml" +# 32144 "parsing/parser.ml" in # 3439 "parsing/parser.mly" ( _1, _2 ) -# 32125 "parsing/parser.ml" +# 32149 "parsing/parser.ml" in # 3444 "parsing/parser.mly" ( let ty, modes = _1 in Some ty, modes ) -# 32132 "parsing/parser.ml" +# 32156 "parsing/parser.ml" in let _2 = @@ -32138,14 +32162,14 @@ module Tables = struct # 3079 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 32142 "parsing/parser.ml" +# 32166 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_ in let modes0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 32149 "parsing/parser.ml" +# 32173 "parsing/parser.ml" in let (_endpos_modes0_, _startpos_modes0_) = (_endpos__0_, _endpos__0_) in let _endpos = _endpos__5_ in @@ -32170,7 +32194,7 @@ module Tables = struct let exp = mkexp_with_modes ~ghost:true ~loc:_sloc modes_ghost _5 in (v, exp, t, let_binding_mode_attrs modes) ) -# 32174 "parsing/parser.ml" +# 32198 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32227,22 +32251,22 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4418 "parsing/parser.mly" +# 4419 "parsing/parser.mly" (_1) -# 32233 "parsing/parser.ml" +# 32257 "parsing/parser.ml" in # 3439 "parsing/parser.mly" ( _1, _2 ) -# 32239 "parsing/parser.ml" +# 32263 "parsing/parser.ml" in # 3444 "parsing/parser.mly" ( let ty, modes = _1 in Some ty, modes ) -# 32246 "parsing/parser.ml" +# 32270 "parsing/parser.ml" in let _2 = @@ -32252,14 +32276,14 @@ module Tables = struct # 3079 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 32256 "parsing/parser.ml" +# 32280 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_ in let modes0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 32263 "parsing/parser.ml" +# 32287 "parsing/parser.ml" in let (_endpos_modes0_, _startpos_modes0_) = (_endpos__0_, _endpos__0_) in let _endpos = _endpos__5_ in @@ -32284,7 +32308,7 @@ module Tables = struct let exp = mkexp_with_modes ~ghost:true ~loc:_sloc modes_ghost _5 in (v, exp, t, let_binding_mode_attrs modes) ) -# 32288 "parsing/parser.ml" +# 32312 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32333,7 +32357,7 @@ module Tables = struct # 3447 "parsing/parser.mly" ( None, _1 ) -# 32337 "parsing/parser.ml" +# 32361 "parsing/parser.ml" in let _2 = @@ -32343,14 +32367,14 @@ module Tables = struct # 3079 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 32347 "parsing/parser.ml" +# 32371 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_ in let modes0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 32354 "parsing/parser.ml" +# 32378 "parsing/parser.ml" in let (_endpos_modes0_, _startpos_modes0_) = (_endpos__0_, _endpos__0_) in let _endpos = _endpos__5_ in @@ -32375,7 +32399,7 @@ module Tables = struct let exp = mkexp_with_modes ~ghost:true ~loc:_sloc modes_ghost _5 in (v, exp, t, let_binding_mode_attrs modes) ) -# 32379 "parsing/parser.ml" +# 32403 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32430,21 +32454,21 @@ module Tables = struct let _1 = _1_inlined2 in let _1 = let _2 = -# 4417 "parsing/parser.mly" +# 4418 "parsing/parser.mly" ( Mode.empty ) -# 32436 "parsing/parser.ml" +# 32460 "parsing/parser.ml" in # 3439 "parsing/parser.mly" ( _1, _2 ) -# 32441 "parsing/parser.ml" +# 32465 "parsing/parser.ml" in # 3444 "parsing/parser.mly" ( let ty, modes = _1 in Some ty, modes ) -# 32448 "parsing/parser.ml" +# 32472 "parsing/parser.ml" in let _2 = @@ -32455,7 +32479,7 @@ module Tables = struct # 3079 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 32459 "parsing/parser.ml" +# 32483 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_inlined1_ in @@ -32465,15 +32489,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 32471 "parsing/parser.ml" +# 32495 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 32477 "parsing/parser.ml" +# 32501 "parsing/parser.ml" in let (_endpos_modes0_, _startpos_modes0_) = (_endpos__1_, _startpos__1_) in @@ -32499,7 +32523,7 @@ module Tables = struct let exp = mkexp_with_modes ~ghost:true ~loc:_sloc modes_ghost _5 in (v, exp, t, let_binding_mode_attrs modes) ) -# 32503 "parsing/parser.ml" +# 32527 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32563,22 +32587,22 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4418 "parsing/parser.mly" +# 4419 "parsing/parser.mly" (_1) -# 32569 "parsing/parser.ml" +# 32593 "parsing/parser.ml" in # 3439 "parsing/parser.mly" ( _1, _2 ) -# 32575 "parsing/parser.ml" +# 32599 "parsing/parser.ml" in # 3444 "parsing/parser.mly" ( let ty, modes = _1 in Some ty, modes ) -# 32582 "parsing/parser.ml" +# 32606 "parsing/parser.ml" in let _2 = @@ -32589,7 +32613,7 @@ module Tables = struct # 3079 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 32593 "parsing/parser.ml" +# 32617 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_inlined1_ in @@ -32599,15 +32623,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 32605 "parsing/parser.ml" +# 32629 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 32611 "parsing/parser.ml" +# 32635 "parsing/parser.ml" in let (_endpos_modes0_, _startpos_modes0_) = (_endpos__1_, _startpos__1_) in @@ -32633,7 +32657,7 @@ module Tables = struct let exp = mkexp_with_modes ~ghost:true ~loc:_sloc modes_ghost _5 in (v, exp, t, let_binding_mode_attrs modes) ) -# 32637 "parsing/parser.ml" +# 32661 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32689,7 +32713,7 @@ module Tables = struct # 3447 "parsing/parser.mly" ( None, _1 ) -# 32693 "parsing/parser.ml" +# 32717 "parsing/parser.ml" in let _2 = @@ -32700,7 +32724,7 @@ module Tables = struct # 3079 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 32704 "parsing/parser.ml" +# 32728 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_inlined1_ in @@ -32710,15 +32734,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 32716 "parsing/parser.ml" +# 32740 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 32722 "parsing/parser.ml" +# 32746 "parsing/parser.ml" in let (_endpos_modes0_, _startpos_modes0_) = (_endpos__1_, _startpos__1_) in @@ -32744,7 +32768,7 @@ module Tables = struct let exp = mkexp_with_modes ~ghost:true ~loc:_sloc modes_ghost _5 in (v, exp, t, let_binding_mode_attrs modes) ) -# 32748 "parsing/parser.ml" +# 32772 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32810,9 +32834,9 @@ module Tables = struct let _endpos = _endpos__7_ in let _v : (Parsetree.pattern * Parsetree.expression * Parsetree.value_constraint option * Parsetree.attribute list) = let modes1 = -# 4417 "parsing/parser.mly" +# 4418 "parsing/parser.mly" ( Mode.empty ) -# 32816 "parsing/parser.ml" +# 32840 "parsing/parser.ml" in let _4 = let _3 = _3_inlined1 in @@ -32821,24 +32845,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 32825 "parsing/parser.ml" +# 32849 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 32830 "parsing/parser.ml" +# 32854 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 32836 "parsing/parser.ml" +# 32860 "parsing/parser.ml" in -# 4201 "parsing/parser.mly" +# 4202 "parsing/parser.mly" ( (_1, _3) ) -# 32842 "parsing/parser.ml" +# 32866 "parsing/parser.ml" in let (_endpos__4_, _startpos__4_) = (_endpos__3_inlined1_, _startpos_xs_) in @@ -32849,14 +32873,14 @@ module Tables = struct # 3079 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 32853 "parsing/parser.ml" +# 32877 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_ in let modes0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 32860 "parsing/parser.ml" +# 32884 "parsing/parser.ml" in let (_endpos_modes0_, _startpos_modes0_) = (_endpos__0_, _endpos__0_) in let _endpos = _endpos__7_ in @@ -32880,7 +32904,7 @@ module Tables = struct (_2, exp, Some (Pvc_constraint { locally_abstract_univars = []; typ }), let_binding_mode_attrs modes) ) -# 32884 "parsing/parser.ml" +# 32908 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32955,9 +32979,9 @@ module Tables = struct Parsetree.value_constraint option * Parsetree.attribute list) = let modes1 = let _1 = _1_inlined1 in -# 4418 "parsing/parser.mly" +# 4419 "parsing/parser.mly" (_1) -# 32961 "parsing/parser.ml" +# 32985 "parsing/parser.ml" in let _4 = @@ -32967,24 +32991,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 32971 "parsing/parser.ml" +# 32995 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 32976 "parsing/parser.ml" +# 33000 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 32982 "parsing/parser.ml" +# 33006 "parsing/parser.ml" in -# 4201 "parsing/parser.mly" +# 4202 "parsing/parser.mly" ( (_1, _3) ) -# 32988 "parsing/parser.ml" +# 33012 "parsing/parser.ml" in let (_endpos__4_, _startpos__4_) = (_endpos__3_inlined1_, _startpos_xs_) in @@ -32995,14 +33019,14 @@ module Tables = struct # 3079 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 32999 "parsing/parser.ml" +# 33023 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_ in let modes0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 33006 "parsing/parser.ml" +# 33030 "parsing/parser.ml" in let (_endpos_modes0_, _startpos_modes0_) = (_endpos__0_, _endpos__0_) in let _endpos = _endpos__7_ in @@ -33026,7 +33050,7 @@ module Tables = struct (_2, exp, Some (Pvc_constraint { locally_abstract_univars = []; typ }), let_binding_mode_attrs modes) ) -# 33030 "parsing/parser.ml" +# 33054 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33099,9 +33123,9 @@ module Tables = struct let _endpos = _endpos__7_ in let _v : (Parsetree.pattern * Parsetree.expression * Parsetree.value_constraint option * Parsetree.attribute list) = let modes1 = -# 4417 "parsing/parser.mly" +# 4418 "parsing/parser.mly" ( Mode.empty ) -# 33105 "parsing/parser.ml" +# 33129 "parsing/parser.ml" in let _4 = let _3 = _3_inlined1 in @@ -33110,24 +33134,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 33114 "parsing/parser.ml" +# 33138 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 33119 "parsing/parser.ml" +# 33143 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 33125 "parsing/parser.ml" +# 33149 "parsing/parser.ml" in -# 4201 "parsing/parser.mly" +# 4202 "parsing/parser.mly" ( (_1, _3) ) -# 33131 "parsing/parser.ml" +# 33155 "parsing/parser.ml" in let (_endpos__4_, _startpos__4_) = (_endpos__3_inlined1_, _startpos_xs_) in @@ -33139,7 +33163,7 @@ module Tables = struct # 3079 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 33143 "parsing/parser.ml" +# 33167 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_inlined1_ in @@ -33149,15 +33173,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 33155 "parsing/parser.ml" +# 33179 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 33161 "parsing/parser.ml" +# 33185 "parsing/parser.ml" in let (_endpos_modes0_, _startpos_modes0_) = (_endpos__1_, _startpos__1_) in @@ -33182,7 +33206,7 @@ module Tables = struct (_2, exp, Some (Pvc_constraint { locally_abstract_univars = []; typ }), let_binding_mode_attrs modes) ) -# 33186 "parsing/parser.ml" +# 33210 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33264,9 +33288,9 @@ module Tables = struct Parsetree.value_constraint option * Parsetree.attribute list) = let modes1 = let _1 = _1_inlined2 in -# 4418 "parsing/parser.mly" +# 4419 "parsing/parser.mly" (_1) -# 33270 "parsing/parser.ml" +# 33294 "parsing/parser.ml" in let _4 = @@ -33276,24 +33300,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 33280 "parsing/parser.ml" +# 33304 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 33285 "parsing/parser.ml" +# 33309 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 33291 "parsing/parser.ml" +# 33315 "parsing/parser.ml" in -# 4201 "parsing/parser.mly" +# 4202 "parsing/parser.mly" ( (_1, _3) ) -# 33297 "parsing/parser.ml" +# 33321 "parsing/parser.ml" in let (_endpos__4_, _startpos__4_) = (_endpos__3_inlined1_, _startpos_xs_) in @@ -33305,7 +33329,7 @@ module Tables = struct # 3079 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 33309 "parsing/parser.ml" +# 33333 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_inlined1_ in @@ -33315,15 +33339,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 33321 "parsing/parser.ml" +# 33345 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 33327 "parsing/parser.ml" +# 33351 "parsing/parser.ml" in let (_endpos_modes0_, _startpos_modes0_) = (_endpos__1_, _startpos__1_) in @@ -33348,7 +33372,7 @@ module Tables = struct (_2, exp, Some (Pvc_constraint { locally_abstract_univars = []; typ }), let_binding_mode_attrs modes) ) -# 33352 "parsing/parser.ml" +# 33376 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33421,9 +33445,9 @@ module Tables = struct let _endpos = _endpos__9_ in let _v : (Parsetree.pattern * Parsetree.expression * Parsetree.value_constraint option * Parsetree.attribute list) = let modes = -# 4417 "parsing/parser.mly" +# 4418 "parsing/parser.mly" ( Mode.empty ) -# 33427 "parsing/parser.ml" +# 33451 "parsing/parser.ml" in let _1 = let _endpos = _endpos__1_ in @@ -33432,7 +33456,7 @@ module Tables = struct # 3079 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 33436 "parsing/parser.ml" +# 33460 "parsing/parser.ml" in let _endpos = _endpos__9_ in @@ -33449,7 +33473,7 @@ module Tables = struct let exp = mkexp_with_modes ~ghost:true ~loc:_sloc modes_ghost exp in (ghpat ~loc (Ppat_constraint(_1, poly)), exp, None, let_binding_mode_attrs modes) ) -# 33453 "parsing/parser.ml" +# 33477 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33531,9 +33555,9 @@ module Tables = struct Parsetree.value_constraint option * Parsetree.attribute list) = let modes = let _1 = _1_inlined1 in -# 4418 "parsing/parser.mly" +# 4419 "parsing/parser.mly" (_1) -# 33537 "parsing/parser.ml" +# 33561 "parsing/parser.ml" in let _1 = @@ -33543,7 +33567,7 @@ module Tables = struct # 3079 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 33547 "parsing/parser.ml" +# 33571 "parsing/parser.ml" in let _endpos = _endpos__9_ in @@ -33560,7 +33584,7 @@ module Tables = struct let exp = mkexp_with_modes ~ghost:true ~loc:_sloc modes_ghost exp in (ghpat ~loc (Ppat_constraint(_1, poly)), exp, None, let_binding_mode_attrs modes) ) -# 33564 "parsing/parser.ml" +# 33588 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33600,7 +33624,7 @@ module Tables = struct Parsetree.value_constraint option * Parsetree.attribute list) = # 3146 "parsing/parser.mly" ( (_1, _3, None, []) ) -# 33604 "parsing/parser.ml" +# 33628 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33649,7 +33673,7 @@ module Tables = struct # 3082 "parsing/parser.mly" (None, _1) -# 33653 "parsing/parser.ml" +# 33677 "parsing/parser.ml" in let _endpos = _endpos__4_ in @@ -33663,7 +33687,7 @@ module Tables = struct let exp = mkexp_with_modes ~ghost:true ~loc:_sloc modes_ghost _4 in (_1, exp, pvc, let_binding_mode_attrs modes) ) -# 33667 "parsing/parser.ml" +# 33691 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33716,16 +33740,16 @@ module Tables = struct let _v : (Parsetree.pattern * Parsetree.expression * Parsetree.value_constraint option * Parsetree.attribute list) = let _2 = let _3 = -# 4417 "parsing/parser.mly" +# 4418 "parsing/parser.mly" ( Mode.empty ) -# 33722 "parsing/parser.ml" +# 33746 "parsing/parser.ml" in # 3083 "parsing/parser.mly" ( Some(Pvc_constraint { locally_abstract_univars=[]; typ=_2 }), _3 ) -# 33729 "parsing/parser.ml" +# 33753 "parsing/parser.ml" in let _endpos = _endpos__4_ in @@ -33739,7 +33763,7 @@ module Tables = struct let exp = mkexp_with_modes ~ghost:true ~loc:_sloc modes_ghost _4 in (_1, exp, pvc, let_binding_mode_attrs modes) ) -# 33743 "parsing/parser.ml" +# 33767 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33802,9 +33826,9 @@ module Tables = struct let _3 = let _1 = _1_inlined1 in -# 4418 "parsing/parser.mly" +# 4419 "parsing/parser.mly" (_1) -# 33808 "parsing/parser.ml" +# 33832 "parsing/parser.ml" in @@ -33812,7 +33836,7 @@ module Tables = struct ( Some(Pvc_constraint { locally_abstract_univars=[]; typ=_2 }), _3 ) -# 33816 "parsing/parser.ml" +# 33840 "parsing/parser.ml" in let _endpos = _endpos__4_ in @@ -33826,7 +33850,7 @@ module Tables = struct let exp = mkexp_with_modes ~ghost:true ~loc:_sloc modes_ghost _4 in (_1, exp, pvc, let_binding_mode_attrs modes) ) -# 33830 "parsing/parser.ml" +# 33854 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33871,7 +33895,7 @@ module Tables = struct # 3079 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 33875 "parsing/parser.ml" +# 33899 "parsing/parser.ml" in let modes = @@ -33879,9 +33903,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 33885 "parsing/parser.ml" +# 33909 "parsing/parser.ml" in let _startpos_modes_ = _startpos__1_ in @@ -33893,7 +33917,7 @@ module Tables = struct ( let modes_ghost = Mode.ghostify modes in (_2, mkexp_with_modes ~ghost:true ~loc:_sloc modes_ghost (_3 modes_ghost), None, let_binding_mode_attrs modes) ) -# 33897 "parsing/parser.ml" +# 33921 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33952,7 +33976,7 @@ module Tables = struct # 3079 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 33956 "parsing/parser.ml" +# 33980 "parsing/parser.ml" in let _endpos = _endpos__5_ in @@ -33963,7 +33987,7 @@ module Tables = struct ( let modes_ghost = Mode.ghostify modes in (_2, mkexp_with_modes ~ghost:true ~loc:_sloc modes_ghost (_5 modes_ghost), None, let_binding_mode_attrs modes) ) -# 33967 "parsing/parser.ml" +# 33991 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34026,18 +34050,18 @@ module Tables = struct let attrs3 = let _1 = _1_inlined2 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 34032 "parsing/parser.ml" +# 34056 "parsing/parser.ml" in let _endpos_attrs3_ = _endpos__1_inlined2_ in let attrs1 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 34041 "parsing/parser.ml" +# 34065 "parsing/parser.ml" in let _endpos = _endpos_attrs3_ in @@ -34050,13 +34074,13 @@ module Tables = struct let attrs = attrs1 @ attrs2 @ attrs3 in mklbs ext rec_flag (mklb ~loc:_sloc true body attrs) ) -# 34054 "parsing/parser.ml" +# 34078 "parsing/parser.ml" in # 3178 "parsing/parser.mly" ( _1 ) -# 34060 "parsing/parser.ml" +# 34084 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34088,7 +34112,7 @@ module Tables = struct let _v : (let_bindings) = # 3179 "parsing/parser.mly" ( addlb _1 _2 ) -# 34092 "parsing/parser.ml" +# 34116 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34144,24 +34168,24 @@ module Tables = struct let attrs3 = let _1 = _1_inlined2 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 34150 "parsing/parser.ml" +# 34174 "parsing/parser.ml" in let _endpos_attrs3_ = _endpos__1_inlined2_ in let attrs1 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 34159 "parsing/parser.ml" +# 34183 "parsing/parser.ml" in let ext = -# 5013 "parsing/parser.mly" +# 5014 "parsing/parser.mly" ( None ) -# 34165 "parsing/parser.ml" +# 34189 "parsing/parser.ml" in let _endpos = _endpos_attrs3_ in let _symbolstartpos = _startpos__1_ in @@ -34173,13 +34197,13 @@ module Tables = struct let attrs = attrs1 @ attrs2 @ attrs3 in mklbs ext rec_flag (mklb ~loc:_sloc true body attrs) ) -# 34177 "parsing/parser.ml" +# 34201 "parsing/parser.ml" in # 3178 "parsing/parser.mly" ( _1 ) -# 34183 "parsing/parser.ml" +# 34207 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34249,18 +34273,18 @@ module Tables = struct let attrs3 = let _1 = _1_inlined3 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 34255 "parsing/parser.ml" +# 34279 "parsing/parser.ml" in let _endpos_attrs3_ = _endpos__1_inlined3_ in let attrs1 = let _1 = _1_inlined2 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 34264 "parsing/parser.ml" +# 34288 "parsing/parser.ml" in let ext = @@ -34269,9 +34293,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in -# 5015 "parsing/parser.mly" +# 5016 "parsing/parser.mly" ( not_expecting _loc "extension" ) -# 34275 "parsing/parser.ml" +# 34299 "parsing/parser.ml" in let _endpos = _endpos_attrs3_ in @@ -34284,13 +34308,13 @@ module Tables = struct let attrs = attrs1 @ attrs2 @ attrs3 in mklbs ext rec_flag (mklb ~loc:_sloc true body attrs) ) -# 34288 "parsing/parser.ml" +# 34312 "parsing/parser.ml" in # 3178 "parsing/parser.mly" ( _1 ) -# 34294 "parsing/parser.ml" +# 34318 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34322,7 +34346,7 @@ module Tables = struct let _v : (let_bindings) = # 3179 "parsing/parser.mly" ( addlb _1 _2 ) -# 34326 "parsing/parser.ml" +# 34350 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34345,14 +34369,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern * Mode.t) = let modes = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 34351 "parsing/parser.ml" +# 34375 "parsing/parser.ml" in # 2686 "parsing/parser.mly" ( (_1, modes) ) -# 34356 "parsing/parser.ml" +# 34380 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34384,15 +34408,15 @@ module Tables = struct let _v : (Parsetree.pattern * Mode.t) = let modes = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 34390 "parsing/parser.ml" +# 34414 "parsing/parser.ml" in # 2686 "parsing/parser.mly" ( (_1, modes) ) -# 34396 "parsing/parser.ml" +# 34420 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34429,15 +34453,15 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.pattern * Mode.t) = let modes = -# 4417 "parsing/parser.mly" +# 4418 "parsing/parser.mly" ( Mode.empty ) -# 34435 "parsing/parser.ml" +# 34459 "parsing/parser.ml" in let _1 = let _1 = # 2688 "parsing/parser.mly" ( Ppat_constraint(_1, _3) ) -# 34441 "parsing/parser.ml" +# 34465 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in @@ -34446,13 +34470,13 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 34450 "parsing/parser.ml" +# 34474 "parsing/parser.ml" in # 2690 "parsing/parser.mly" ( (_1, modes) ) -# 34456 "parsing/parser.ml" +# 34480 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34498,16 +34522,16 @@ module Tables = struct let _v : (Parsetree.pattern * Mode.t) = let modes = let _1 = _1_inlined1 in -# 4418 "parsing/parser.mly" +# 4419 "parsing/parser.mly" (_1) -# 34504 "parsing/parser.ml" +# 34528 "parsing/parser.ml" in let _1 = let _1 = # 2688 "parsing/parser.mly" ( Ppat_constraint(_1, _3) ) -# 34511 "parsing/parser.ml" +# 34535 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in @@ -34516,13 +34540,13 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 34520 "parsing/parser.ml" +# 34544 "parsing/parser.ml" in # 2690 "parsing/parser.mly" ( (_1, modes) ) -# 34526 "parsing/parser.ml" +# 34550 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34574,9 +34598,9 @@ module Tables = struct let _endpos = _endpos_inner_type_ in let _v : (Parsetree.pattern * Mode.t) = let _1 = let modes = -# 4417 "parsing/parser.mly" +# 4418 "parsing/parser.mly" ( Mode.empty ) -# 34580 "parsing/parser.ml" +# 34604 "parsing/parser.ml" in let _1 = let _1 = @@ -34587,24 +34611,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 34591 "parsing/parser.ml" +# 34615 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 34596 "parsing/parser.ml" +# 34620 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 34602 "parsing/parser.ml" +# 34626 "parsing/parser.ml" in # 2701 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 34608 "parsing/parser.ml" +# 34632 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_inner_type_, _startpos_xs_) in @@ -34614,13 +34638,13 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 34618 "parsing/parser.ml" +# 34642 "parsing/parser.ml" in # 2702 "parsing/parser.mly" ( Ppat_constraint(pat, cty) ) -# 34624 "parsing/parser.ml" +# 34648 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_inner_type_, _startpos_pat_) in @@ -34630,19 +34654,19 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 34634 "parsing/parser.ml" +# 34658 "parsing/parser.ml" in # 2704 "parsing/parser.mly" ( (_1, modes) ) -# 34640 "parsing/parser.ml" +# 34664 "parsing/parser.ml" in # 2692 "parsing/parser.mly" ( _1 ) -# 34646 "parsing/parser.ml" +# 34670 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34701,9 +34725,9 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.pattern * Mode.t) = let _1 = let modes = -# 4418 "parsing/parser.mly" +# 4419 "parsing/parser.mly" (_1) -# 34707 "parsing/parser.ml" +# 34731 "parsing/parser.ml" in let _1 = let _1 = @@ -34714,24 +34738,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 34718 "parsing/parser.ml" +# 34742 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 34723 "parsing/parser.ml" +# 34747 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 34729 "parsing/parser.ml" +# 34753 "parsing/parser.ml" in # 2701 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 34735 "parsing/parser.ml" +# 34759 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_inner_type_, _startpos_xs_) in @@ -34741,13 +34765,13 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 34745 "parsing/parser.ml" +# 34769 "parsing/parser.ml" in # 2702 "parsing/parser.mly" ( Ppat_constraint(pat, cty) ) -# 34751 "parsing/parser.ml" +# 34775 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_inner_type_, _startpos_pat_) in @@ -34757,19 +34781,19 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 34761 "parsing/parser.ml" +# 34785 "parsing/parser.ml" in # 2704 "parsing/parser.mly" ( (_1, modes) ) -# 34767 "parsing/parser.ml" +# 34791 "parsing/parser.ml" in # 2692 "parsing/parser.mly" ( _1 ) -# 34773 "parsing/parser.ml" +# 34797 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34803,7 +34827,7 @@ module Tables = struct # 3247 "parsing/parser.mly" (_1 Mode.empty) -# 34807 "parsing/parser.ml" +# 34831 "parsing/parser.ml" in let pat = @@ -34813,13 +34837,13 @@ module Tables = struct # 3079 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 34817 "parsing/parser.ml" +# 34841 "parsing/parser.ml" in # 3207 "parsing/parser.mly" ( (pat, exp) ) -# 34823 "parsing/parser.ml" +# 34847 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34847,7 +34871,7 @@ module Tables = struct # 3210 "parsing/parser.mly" ( (mkpatvar ~loc:_loc _1, mkexpvar ~loc:_loc _1) ) -# 34851 "parsing/parser.ml" +# 34875 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34901,7 +34925,7 @@ module Tables = struct # 3213 "parsing/parser.mly" ( let loc = (_startpos_pat_, _endpos_typ_) in (ghpat ~loc (Ppat_constraint(pat, typ)), exp) ) -# 34905 "parsing/parser.ml" +# 34929 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34940,7 +34964,7 @@ module Tables = struct let _v : (Parsetree.pattern * Parsetree.expression) = # 3216 "parsing/parser.mly" ( (pat, exp) ) -# 34944 "parsing/parser.ml" +# 34968 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34966,7 +34990,7 @@ module Tables = struct # 3220 "parsing/parser.mly" ( let let_pat, let_exp = body in let_pat, let_exp, [] ) -# 34970 "parsing/parser.ml" +# 34994 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35000,7 +35024,7 @@ module Tables = struct let _1 : ( # 995 "parsing/parser.mly" (string) -# 35004 "parsing/parser.ml" +# 35028 "parsing/parser.ml" ) = Obj.magic _1 in let bindings : (Parsetree.pattern * Parsetree.expression * Parsetree.binding_op list) = Obj.magic bindings in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -35013,7 +35037,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 35017 "parsing/parser.ml" +# 35041 "parsing/parser.ml" in let _endpos = _endpos_body_ in @@ -35026,7 +35050,7 @@ module Tables = struct let pbop_loc = make_loc _sloc in let and_ = {pbop_op; pbop_pat; pbop_exp; pbop_loc} in let_pat, let_exp, and_ :: rev_ands ) -# 35030 "parsing/parser.ml" +# 35054 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35044,7 +35068,7 @@ module Tables = struct let _v : (Parsetree.class_declaration list) = # 211 "" ( [] ) -# 35048 "parsing/parser.ml" +# 35072 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35110,7 +35134,7 @@ module Tables = struct let _1_inlined2 : ( # 1016 "parsing/parser.mly" (string) -# 35114 "parsing/parser.ml" +# 35138 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let params : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic params in let virt : (Asttypes.virtual_flag) = Obj.magic virt in @@ -35123,9 +35147,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 35129 "parsing/parser.ml" +# 35153 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -35137,15 +35161,15 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 35141 "parsing/parser.ml" +# 35165 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 35149 "parsing/parser.ml" +# 35173 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in @@ -35160,13 +35184,13 @@ module Tables = struct let text = symbol_text _symbolstartpos in Ci.mk id body ~virt ~params ~attrs ~loc ~text ~docs ) -# 35164 "parsing/parser.ml" +# 35188 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 35170 "parsing/parser.ml" +# 35194 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35184,7 +35208,7 @@ module Tables = struct let _v : (Parsetree.class_description list) = # 211 "" ( [] ) -# 35188 "parsing/parser.ml" +# 35212 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35257,7 +35281,7 @@ module Tables = struct let _1_inlined2 : ( # 1016 "parsing/parser.mly" (string) -# 35261 "parsing/parser.ml" +# 35285 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let params : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic params in let virt : (Asttypes.virtual_flag) = Obj.magic virt in @@ -35270,9 +35294,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 35276 "parsing/parser.ml" +# 35300 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -35284,15 +35308,15 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 35288 "parsing/parser.ml" +# 35312 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 35296 "parsing/parser.ml" +# 35320 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in @@ -35307,13 +35331,13 @@ module Tables = struct let text = symbol_text _symbolstartpos in Ci.mk id cty ~virt ~params ~attrs ~loc ~text ~docs ) -# 35311 "parsing/parser.ml" +# 35335 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 35317 "parsing/parser.ml" +# 35341 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35331,7 +35355,7 @@ module Tables = struct let _v : (Parsetree.class_type_declaration list) = # 211 "" ( [] ) -# 35335 "parsing/parser.ml" +# 35359 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35404,7 +35428,7 @@ module Tables = struct let _1_inlined2 : ( # 1016 "parsing/parser.mly" (string) -# 35408 "parsing/parser.ml" +# 35432 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let params : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic params in let virt : (Asttypes.virtual_flag) = Obj.magic virt in @@ -35417,9 +35441,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 35423 "parsing/parser.ml" +# 35447 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -35431,15 +35455,15 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 35435 "parsing/parser.ml" +# 35459 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 35443 "parsing/parser.ml" +# 35467 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in @@ -35454,13 +35478,13 @@ module Tables = struct let text = symbol_text _symbolstartpos in Ci.mk id csig ~virt ~params ~attrs ~loc ~text ~docs ) -# 35458 "parsing/parser.ml" +# 35482 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 35464 "parsing/parser.ml" +# 35488 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35478,7 +35502,7 @@ module Tables = struct let _v : (Parsetree.module_binding list) = # 211 "" ( [] ) -# 35482 "parsing/parser.ml" +# 35506 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35539,9 +35563,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 35545 "parsing/parser.ml" +# 35569 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -35553,15 +35577,15 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 35557 "parsing/parser.ml" +# 35581 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 35565 "parsing/parser.ml" +# 35589 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in @@ -35576,13 +35600,13 @@ module Tables = struct let text = symbol_text _symbolstartpos in Mb.mk name body ~attrs ~loc ~text ~docs ) -# 35580 "parsing/parser.ml" +# 35604 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 35586 "parsing/parser.ml" +# 35610 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35600,7 +35624,7 @@ module Tables = struct let _v : (Parsetree.module_declaration list) = # 211 "" ( [] ) -# 35604 "parsing/parser.ml" +# 35628 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35668,9 +35692,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 35674 "parsing/parser.ml" +# 35698 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -35682,15 +35706,15 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 35686 "parsing/parser.ml" +# 35710 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 35694 "parsing/parser.ml" +# 35718 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in @@ -35705,13 +35729,13 @@ module Tables = struct let text = symbol_text _symbolstartpos in Md.mk name mty ~attrs ~loc ~text ~docs ) -# 35709 "parsing/parser.ml" +# 35733 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 35715 "parsing/parser.ml" +# 35739 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35729,7 +35753,7 @@ module Tables = struct let _v : (Parsetree.attributes) = # 211 "" ( [] ) -# 35733 "parsing/parser.ml" +# 35757 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35761,7 +35785,7 @@ module Tables = struct let _v : (Parsetree.attributes) = # 213 "" ( x :: xs ) -# 35765 "parsing/parser.ml" +# 35789 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35779,7 +35803,7 @@ module Tables = struct let _v : (Parsetree.type_declaration list) = # 211 "" ( [] ) -# 35783 "parsing/parser.ml" +# 35807 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35853,7 +35877,7 @@ module Tables = struct let _1_inlined2 : ( # 1016 "parsing/parser.mly" (string) -# 35857 "parsing/parser.ml" +# 35881 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let params : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic params in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in @@ -35866,9 +35890,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 35872 "parsing/parser.ml" +# 35896 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -35877,18 +35901,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 35881 "parsing/parser.ml" +# 35905 "parsing/parser.ml" in # 1292 "parsing/parser.mly" ( xs ) -# 35886 "parsing/parser.ml" +# 35910 "parsing/parser.ml" in -# 3825 "parsing/parser.mly" +# 3826 "parsing/parser.mly" ( _1 ) -# 35892 "parsing/parser.ml" +# 35916 "parsing/parser.ml" in let id = @@ -35899,22 +35923,22 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 35903 "parsing/parser.ml" +# 35927 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 35911 "parsing/parser.ml" +# 35935 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3813 "parsing/parser.mly" +# 3814 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in @@ -35924,13 +35948,13 @@ module Tables = struct Jane_syntax.Layouts.type_declaration_of id ~params ~jkind ~cstrs ~kind ~priv ~manifest ~attrs ~loc ~docs ~text:(Some text) ) -# 35928 "parsing/parser.ml" +# 35952 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 35934 "parsing/parser.ml" +# 35958 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35948,7 +35972,7 @@ module Tables = struct let _v : (Parsetree.type_declaration list) = # 211 "" ( [] ) -# 35952 "parsing/parser.ml" +# 35976 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36029,7 +36053,7 @@ module Tables = struct let _1_inlined2 : ( # 1016 "parsing/parser.mly" (string) -# 36033 "parsing/parser.ml" +# 36057 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let params : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic params in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in @@ -36042,9 +36066,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined4 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 36048 "parsing/parser.ml" +# 36072 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in @@ -36053,24 +36077,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 36057 "parsing/parser.ml" +# 36081 "parsing/parser.ml" in # 1292 "parsing/parser.mly" ( xs ) -# 36062 "parsing/parser.ml" +# 36086 "parsing/parser.ml" in -# 3825 "parsing/parser.mly" +# 3826 "parsing/parser.mly" ( _1 ) -# 36068 "parsing/parser.ml" +# 36092 "parsing/parser.ml" in let kind_priv_manifest = -# 3860 "parsing/parser.mly" +# 3861 "parsing/parser.mly" ( _2 ) -# 36074 "parsing/parser.ml" +# 36098 "parsing/parser.ml" in let id = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in @@ -36080,22 +36104,22 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 36084 "parsing/parser.ml" +# 36108 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 36092 "parsing/parser.ml" +# 36116 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3813 "parsing/parser.mly" +# 3814 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in @@ -36105,13 +36129,13 @@ module Tables = struct Jane_syntax.Layouts.type_declaration_of id ~params ~jkind ~cstrs ~kind ~priv ~manifest ~attrs ~loc ~docs ~text:(Some text) ) -# 36109 "parsing/parser.ml" +# 36133 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 36115 "parsing/parser.ml" +# 36139 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36129,7 +36153,7 @@ module Tables = struct let _v : (Parsetree.attributes) = # 211 "" ( [] ) -# 36133 "parsing/parser.ml" +# 36157 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36161,7 +36185,7 @@ module Tables = struct let _v : (Parsetree.attributes) = # 213 "" ( x :: xs ) -# 36165 "parsing/parser.ml" +# 36189 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36179,7 +36203,7 @@ module Tables = struct let _v : (Parsetree.signature_item list list) = # 211 "" ( [] ) -# 36183 "parsing/parser.ml" +# 36207 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36214,19 +36238,19 @@ module Tables = struct # 1215 "parsing/parser.mly" ( text_sig _startpos ) -# 36218 "parsing/parser.ml" +# 36242 "parsing/parser.ml" in # 2015 "parsing/parser.mly" ( _1 ) -# 36224 "parsing/parser.ml" +# 36248 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 36230 "parsing/parser.ml" +# 36254 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36261,19 +36285,19 @@ module Tables = struct # 1213 "parsing/parser.mly" ( text_sig _startpos @ [_1] ) -# 36265 "parsing/parser.ml" +# 36289 "parsing/parser.ml" in # 2015 "parsing/parser.mly" ( _1 ) -# 36271 "parsing/parser.ml" +# 36295 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 36277 "parsing/parser.ml" +# 36301 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36291,7 +36315,7 @@ module Tables = struct let _v : (Parsetree.structure_item list list) = # 211 "" ( [] ) -# 36295 "parsing/parser.ml" +# 36319 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36326,12 +36350,12 @@ module Tables = struct let items = # 1278 "parsing/parser.mly" ( [] ) -# 36330 "parsing/parser.ml" +# 36354 "parsing/parser.ml" in # 1728 "parsing/parser.mly" ( items ) -# 36335 "parsing/parser.ml" +# 36359 "parsing/parser.ml" in let xs = @@ -36339,25 +36363,25 @@ module Tables = struct # 1211 "parsing/parser.mly" ( text_str _startpos ) -# 36343 "parsing/parser.ml" +# 36367 "parsing/parser.ml" in # 267 "" ( xs @ ys ) -# 36349 "parsing/parser.ml" +# 36373 "parsing/parser.ml" in # 1744 "parsing/parser.mly" ( _1 ) -# 36355 "parsing/parser.ml" +# 36379 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 36361 "parsing/parser.ml" +# 36385 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36409,14 +36433,14 @@ module Tables = struct let _1 = let _1 = let attrs = -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 36415 "parsing/parser.ml" +# 36439 "parsing/parser.ml" in # 1735 "parsing/parser.mly" ( mkstrexp e attrs ) -# 36420 "parsing/parser.ml" +# 36444 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in @@ -36424,7 +36448,7 @@ module Tables = struct # 1209 "parsing/parser.mly" ( text_str _startpos @ [_1] ) -# 36428 "parsing/parser.ml" +# 36452 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in @@ -36434,19 +36458,19 @@ module Tables = struct # 1228 "parsing/parser.mly" ( mark_rhs_docs _startpos _endpos; _1 ) -# 36438 "parsing/parser.ml" +# 36462 "parsing/parser.ml" in # 1280 "parsing/parser.mly" ( x ) -# 36444 "parsing/parser.ml" +# 36468 "parsing/parser.ml" in # 1728 "parsing/parser.mly" ( items ) -# 36450 "parsing/parser.ml" +# 36474 "parsing/parser.ml" in let xs = @@ -36454,25 +36478,25 @@ module Tables = struct # 1211 "parsing/parser.mly" ( text_str _startpos ) -# 36458 "parsing/parser.ml" +# 36482 "parsing/parser.ml" in # 267 "" ( xs @ ys ) -# 36464 "parsing/parser.ml" +# 36488 "parsing/parser.ml" in # 1744 "parsing/parser.mly" ( _1 ) -# 36470 "parsing/parser.ml" +# 36494 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 36476 "parsing/parser.ml" +# 36500 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36507,19 +36531,19 @@ module Tables = struct # 1209 "parsing/parser.mly" ( text_str _startpos @ [_1] ) -# 36511 "parsing/parser.ml" +# 36535 "parsing/parser.ml" in # 1744 "parsing/parser.mly" ( _1 ) -# 36517 "parsing/parser.ml" +# 36541 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 36523 "parsing/parser.ml" +# 36547 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36537,7 +36561,7 @@ module Tables = struct let _v : (Parsetree.class_type_field list list) = # 211 "" ( [] ) -# 36541 "parsing/parser.ml" +# 36565 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36571,13 +36595,13 @@ module Tables = struct # 1223 "parsing/parser.mly" ( text_csig _startpos @ [_1] ) -# 36575 "parsing/parser.ml" +# 36599 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 36581 "parsing/parser.ml" +# 36605 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36595,7 +36619,7 @@ module Tables = struct let _v : (Parsetree.class_field list list) = # 211 "" ( [] ) -# 36599 "parsing/parser.ml" +# 36623 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36629,13 +36653,13 @@ module Tables = struct # 1221 "parsing/parser.mly" ( text_cstr _startpos @ [_1] ) -# 36633 "parsing/parser.ml" +# 36657 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 36639 "parsing/parser.ml" +# 36663 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36653,7 +36677,7 @@ module Tables = struct let _v : (Parsetree.structure_item list list) = # 211 "" ( [] ) -# 36657 "parsing/parser.ml" +# 36681 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36687,13 +36711,13 @@ module Tables = struct # 1209 "parsing/parser.mly" ( text_str _startpos @ [_1] ) -# 36691 "parsing/parser.ml" +# 36715 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 36697 "parsing/parser.ml" +# 36721 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36711,7 +36735,7 @@ module Tables = struct let _v : (Parsetree.toplevel_phrase list list) = # 211 "" ( [] ) -# 36715 "parsing/parser.ml" +# 36739 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36746,30 +36770,30 @@ module Tables = struct let _1 = # 1278 "parsing/parser.mly" ( [] ) -# 36750 "parsing/parser.ml" +# 36774 "parsing/parser.ml" in # 1530 "parsing/parser.mly" ( _1 ) -# 36755 "parsing/parser.ml" +# 36779 "parsing/parser.ml" in # 183 "" ( x ) -# 36761 "parsing/parser.ml" +# 36785 "parsing/parser.ml" in # 1542 "parsing/parser.mly" ( _1 ) -# 36767 "parsing/parser.ml" +# 36791 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 36773 "parsing/parser.ml" +# 36797 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36821,20 +36845,20 @@ module Tables = struct let _1 = let _1 = let attrs = -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 36827 "parsing/parser.ml" +# 36851 "parsing/parser.ml" in # 1735 "parsing/parser.mly" ( mkstrexp e attrs ) -# 36832 "parsing/parser.ml" +# 36856 "parsing/parser.ml" in # 1219 "parsing/parser.mly" ( Ptop_def [_1] ) -# 36838 "parsing/parser.ml" +# 36862 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in @@ -36842,37 +36866,37 @@ module Tables = struct # 1217 "parsing/parser.mly" ( text_def _startpos @ [_1] ) -# 36846 "parsing/parser.ml" +# 36870 "parsing/parser.ml" in # 1280 "parsing/parser.mly" ( x ) -# 36852 "parsing/parser.ml" +# 36876 "parsing/parser.ml" in # 1530 "parsing/parser.mly" ( _1 ) -# 36858 "parsing/parser.ml" +# 36882 "parsing/parser.ml" in # 183 "" ( x ) -# 36864 "parsing/parser.ml" +# 36888 "parsing/parser.ml" in # 1542 "parsing/parser.mly" ( _1 ) -# 36870 "parsing/parser.ml" +# 36894 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 36876 "parsing/parser.ml" +# 36900 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36906,25 +36930,25 @@ module Tables = struct let _1 = # 1219 "parsing/parser.mly" ( Ptop_def [_1] ) -# 36910 "parsing/parser.ml" +# 36934 "parsing/parser.ml" in let _startpos = _startpos__1_ in # 1217 "parsing/parser.mly" ( text_def _startpos @ [_1] ) -# 36916 "parsing/parser.ml" +# 36940 "parsing/parser.ml" in # 1542 "parsing/parser.mly" ( _1 ) -# 36922 "parsing/parser.ml" +# 36946 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 36928 "parsing/parser.ml" +# 36952 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36962,26 +36986,26 @@ module Tables = struct # 1228 "parsing/parser.mly" ( mark_rhs_docs _startpos _endpos; _1 ) -# 36966 "parsing/parser.ml" +# 36990 "parsing/parser.ml" in let _startpos = _startpos__1_ in # 1217 "parsing/parser.mly" ( text_def _startpos @ [_1] ) -# 36973 "parsing/parser.ml" +# 36997 "parsing/parser.ml" in # 1542 "parsing/parser.mly" ( _1 ) -# 36979 "parsing/parser.ml" +# 37003 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 36985 "parsing/parser.ml" +# 37009 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37020,7 +37044,7 @@ module Tables = struct let _v : ((Longident.t Asttypes.loc * Parsetree.pattern) list * unit option) = let _2 = # 124 "" ( None ) -# 37024 "parsing/parser.ml" +# 37048 "parsing/parser.ml" in let x = let label = @@ -37030,7 +37054,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 37034 "parsing/parser.ml" +# 37058 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in @@ -37038,7 +37062,7 @@ module Tables = struct let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in -# 3694 "parsing/parser.mly" +# 3695 "parsing/parser.mly" ( let constraint_loc, label, pat = match opat with | None -> @@ -37052,13 +37076,13 @@ module Tables = struct in label, mkpat_opt_constraint ~loc:constraint_loc pat octy ) -# 37056 "parsing/parser.ml" +# 37080 "parsing/parser.ml" in # 1467 "parsing/parser.mly" ( [x], None ) -# 37062 "parsing/parser.ml" +# 37086 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37104,7 +37128,7 @@ module Tables = struct let _v : ((Longident.t Asttypes.loc * Parsetree.pattern) list * unit option) = let _2 = # 126 "" ( Some x ) -# 37108 "parsing/parser.ml" +# 37132 "parsing/parser.ml" in let x = let label = @@ -37114,7 +37138,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 37118 "parsing/parser.ml" +# 37142 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in @@ -37122,7 +37146,7 @@ module Tables = struct let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in -# 3694 "parsing/parser.mly" +# 3695 "parsing/parser.mly" ( let constraint_loc, label, pat = match opat with | None -> @@ -37136,13 +37160,13 @@ module Tables = struct in label, mkpat_opt_constraint ~loc:constraint_loc pat octy ) -# 37140 "parsing/parser.ml" +# 37164 "parsing/parser.ml" in # 1467 "parsing/parser.mly" ( [x], None ) -# 37146 "parsing/parser.ml" +# 37170 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37207,7 +37231,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 37211 "parsing/parser.ml" +# 37235 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in @@ -37215,7 +37239,7 @@ module Tables = struct let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in -# 3694 "parsing/parser.mly" +# 3695 "parsing/parser.mly" ( let constraint_loc, label, pat = match opat with | None -> @@ -37229,13 +37253,13 @@ module Tables = struct in label, mkpat_opt_constraint ~loc:constraint_loc pat octy ) -# 37233 "parsing/parser.ml" +# 37257 "parsing/parser.ml" in # 1469 "parsing/parser.mly" ( [x], Some y ) -# 37239 "parsing/parser.ml" +# 37263 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37293,7 +37317,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 37297 "parsing/parser.ml" +# 37321 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in @@ -37301,7 +37325,7 @@ module Tables = struct let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in -# 3694 "parsing/parser.mly" +# 3695 "parsing/parser.mly" ( let constraint_loc, label, pat = match opat with | None -> @@ -37315,14 +37339,14 @@ module Tables = struct in label, mkpat_opt_constraint ~loc:constraint_loc pat octy ) -# 37319 "parsing/parser.ml" +# 37343 "parsing/parser.ml" in # 1473 "parsing/parser.mly" ( let xs, y = tail in x :: xs, y ) -# 37326 "parsing/parser.ml" +# 37350 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37361,7 +37385,7 @@ module Tables = struct let _v : (Parsetree.case) = # 3269 "parsing/parser.mly" ( Exp.case _1 _3 ) -# 37365 "parsing/parser.ml" +# 37389 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37414,7 +37438,7 @@ module Tables = struct let _v : (Parsetree.case) = # 3271 "parsing/parser.mly" ( Exp.case _1 ~guard:_3 _5 ) -# 37418 "parsing/parser.ml" +# 37442 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37454,7 +37478,7 @@ module Tables = struct # 3273 "parsing/parser.mly" ( Exp.case _1 (Exp.unreachable ~loc:(make_loc _loc__3_) ()) ) -# 37458 "parsing/parser.ml" +# 37482 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37517,7 +37541,7 @@ module Tables = struct let _1 : ( # 1016 "parsing/parser.mly" (string) -# 37521 "parsing/parser.ml" +# 37545 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -37526,34 +37550,34 @@ module Tables = struct let _6 = let _1 = _1_inlined3 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 37532 "parsing/parser.ml" +# 37556 "parsing/parser.ml" in let _endpos__6_ = _endpos__1_inlined3_ in let _4 = let _1 = _1_inlined2 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 37541 "parsing/parser.ml" +# 37565 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _3 = let _1 = _1_inlined1 in -# 4217 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 37550 "parsing/parser.ml" +# 37574 "parsing/parser.ml" in let _1 = let _1 = -# 4617 "parsing/parser.mly" +# 4618 "parsing/parser.mly" ( _1 ) -# 37557 "parsing/parser.ml" +# 37581 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -37561,14 +37585,14 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 37565 "parsing/parser.ml" +# 37589 "parsing/parser.ml" in let _endpos = _endpos__6_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4602 "parsing/parser.mly" +# 4603 "parsing/parser.mly" ( let info = match rhs_info _endpos__4_ with | Some _ as info_before_semi -> info_before_semi @@ -37576,13 +37600,13 @@ module Tables = struct in let attrs = add_info_attrs info (_4 @ _6) in Of.tag ~loc:(make_loc _sloc) ~attrs _1 _3 ) -# 37580 "parsing/parser.ml" +# 37604 "parsing/parser.ml" in -# 4583 "parsing/parser.mly" +# 4584 "parsing/parser.mly" ( let (f, c) = tail in (head :: f, c) ) -# 37586 "parsing/parser.ml" +# 37610 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37623,15 +37647,15 @@ module Tables = struct let _symbolstartpos = _startpos_ty_ in let _sloc = (_symbolstartpos, _endpos) in -# 4613 "parsing/parser.mly" +# 4614 "parsing/parser.mly" ( Of.inherit_ ~loc:(make_loc _sloc) ty ) -# 37629 "parsing/parser.ml" +# 37653 "parsing/parser.ml" in -# 4583 "parsing/parser.mly" +# 4584 "parsing/parser.mly" ( let (f, c) = tail in (head :: f, c) ) -# 37635 "parsing/parser.ml" +# 37659 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37687,7 +37711,7 @@ module Tables = struct let _1 : ( # 1016 "parsing/parser.mly" (string) -# 37691 "parsing/parser.ml" +# 37715 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -37696,34 +37720,34 @@ module Tables = struct let _6 = let _1 = _1_inlined3 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 37702 "parsing/parser.ml" +# 37726 "parsing/parser.ml" in let _endpos__6_ = _endpos__1_inlined3_ in let _4 = let _1 = _1_inlined2 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 37711 "parsing/parser.ml" +# 37735 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _3 = let _1 = _1_inlined1 in -# 4217 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 37720 "parsing/parser.ml" +# 37744 "parsing/parser.ml" in let _1 = let _1 = -# 4617 "parsing/parser.mly" +# 4618 "parsing/parser.mly" ( _1 ) -# 37727 "parsing/parser.ml" +# 37751 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -37731,14 +37755,14 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 37735 "parsing/parser.ml" +# 37759 "parsing/parser.ml" in let _endpos = _endpos__6_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4602 "parsing/parser.mly" +# 4603 "parsing/parser.mly" ( let info = match rhs_info _endpos__4_ with | Some _ as info_before_semi -> info_before_semi @@ -37746,13 +37770,13 @@ module Tables = struct in let attrs = add_info_attrs info (_4 @ _6) in Of.tag ~loc:(make_loc _sloc) ~attrs _1 _3 ) -# 37750 "parsing/parser.ml" +# 37774 "parsing/parser.ml" in -# 4586 "parsing/parser.mly" +# 4587 "parsing/parser.mly" ( [head], Closed ) -# 37756 "parsing/parser.ml" +# 37780 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37786,15 +37810,15 @@ module Tables = struct let _symbolstartpos = _startpos_ty_ in let _sloc = (_symbolstartpos, _endpos) in -# 4613 "parsing/parser.mly" +# 4614 "parsing/parser.mly" ( Of.inherit_ ~loc:(make_loc _sloc) ty ) -# 37792 "parsing/parser.ml" +# 37816 "parsing/parser.ml" in -# 4586 "parsing/parser.mly" +# 4587 "parsing/parser.mly" ( [head], Closed ) -# 37798 "parsing/parser.ml" +# 37822 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37836,7 +37860,7 @@ module Tables = struct let _1 : ( # 1016 "parsing/parser.mly" (string) -# 37840 "parsing/parser.ml" +# 37864 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -37845,25 +37869,25 @@ module Tables = struct let _4 = let _1 = _1_inlined2 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 37851 "parsing/parser.ml" +# 37875 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _3 = let _1 = _1_inlined1 in -# 4217 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 37860 "parsing/parser.ml" +# 37884 "parsing/parser.ml" in let _1 = let _1 = -# 4617 "parsing/parser.mly" +# 4618 "parsing/parser.mly" ( _1 ) -# 37867 "parsing/parser.ml" +# 37891 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -37871,24 +37895,24 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 37875 "parsing/parser.ml" +# 37899 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4595 "parsing/parser.mly" +# 4596 "parsing/parser.mly" ( let info = symbol_info _endpos in let attrs = add_info_attrs info _4 in Of.tag ~loc:(make_loc _sloc) ~attrs _1 _3 ) -# 37886 "parsing/parser.ml" +# 37910 "parsing/parser.ml" in -# 4589 "parsing/parser.mly" +# 4590 "parsing/parser.mly" ( [head], Closed ) -# 37892 "parsing/parser.ml" +# 37916 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37915,15 +37939,15 @@ module Tables = struct let _symbolstartpos = _startpos_ty_ in let _sloc = (_symbolstartpos, _endpos) in -# 4613 "parsing/parser.mly" +# 4614 "parsing/parser.mly" ( Of.inherit_ ~loc:(make_loc _sloc) ty ) -# 37921 "parsing/parser.ml" +# 37945 "parsing/parser.ml" in -# 4589 "parsing/parser.mly" +# 4590 "parsing/parser.mly" ( [head], Closed ) -# 37927 "parsing/parser.ml" +# 37951 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37946,9 +37970,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.object_field list * Asttypes.closed_flag) = -# 4591 "parsing/parser.mly" +# 4592 "parsing/parser.mly" ( [], Open ) -# 37952 "parsing/parser.ml" +# 37976 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37995,7 +38019,7 @@ module Tables = struct let _1_inlined1 : ( # 1016 "parsing/parser.mly" (string) -# 37999 "parsing/parser.ml" +# 38023 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let private_ : (Asttypes.private_flag) = Obj.magic private_ in let _1 : (Parsetree.attributes) = Obj.magic _1 in @@ -38007,17 +38031,17 @@ module Tables = struct Parsetree.attributes) = let ty = let _1 = _1_inlined2 in -# 4213 "parsing/parser.mly" +# 4214 "parsing/parser.mly" ( _1 ) -# 38013 "parsing/parser.ml" +# 38037 "parsing/parser.ml" in let label = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = -# 4617 "parsing/parser.mly" +# 4618 "parsing/parser.mly" ( _1 ) -# 38021 "parsing/parser.ml" +# 38045 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -38025,23 +38049,23 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 38029 "parsing/parser.ml" +# 38053 "parsing/parser.ml" in let attrs = -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 38035 "parsing/parser.ml" +# 38059 "parsing/parser.ml" in let _1 = -# 4904 "parsing/parser.mly" +# 4905 "parsing/parser.mly" ( Fresh ) -# 38040 "parsing/parser.ml" +# 38064 "parsing/parser.ml" in # 2369 "parsing/parser.mly" ( (label, private_, Cfk_virtual ty), attrs ) -# 38045 "parsing/parser.ml" +# 38069 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38081,7 +38105,7 @@ module Tables = struct let _1_inlined1 : ( # 1016 "parsing/parser.mly" (string) -# 38085 "parsing/parser.ml" +# 38109 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _3 : (Asttypes.private_flag) = Obj.magic _3 in let _1 : (Parsetree.attributes) = Obj.magic _1 in @@ -38095,15 +38119,15 @@ module Tables = struct # 3247 "parsing/parser.mly" (_1 Mode.empty) -# 38099 "parsing/parser.ml" +# 38123 "parsing/parser.ml" in let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = -# 4617 "parsing/parser.mly" +# 4618 "parsing/parser.mly" ( _1 ) -# 38107 "parsing/parser.ml" +# 38131 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -38111,18 +38135,18 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 38115 "parsing/parser.ml" +# 38139 "parsing/parser.ml" in let _2 = -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 38121 "parsing/parser.ml" +# 38145 "parsing/parser.ml" in let _1 = -# 4907 "parsing/parser.mly" +# 4908 "parsing/parser.mly" ( Fresh ) -# 38126 "parsing/parser.ml" +# 38150 "parsing/parser.ml" in # 2371 "parsing/parser.mly" @@ -38130,7 +38154,7 @@ module Tables = struct let loc = Location.(e.pexp_loc.loc_start, e.pexp_loc.loc_end) in (_4, _3, Cfk_concrete (_1, ghexp ~loc (Pexp_poly (e, None)))), _2 ) -# 38134 "parsing/parser.ml" +# 38158 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38176,7 +38200,7 @@ module Tables = struct let _1_inlined2 : ( # 1016 "parsing/parser.mly" (string) -# 38180 "parsing/parser.ml" +# 38204 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let _3 : (Asttypes.private_flag) = Obj.magic _3 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in @@ -38191,15 +38215,15 @@ module Tables = struct # 3247 "parsing/parser.mly" (_1 Mode.empty) -# 38195 "parsing/parser.ml" +# 38219 "parsing/parser.ml" in let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _1 = -# 4617 "parsing/parser.mly" +# 4618 "parsing/parser.mly" ( _1 ) -# 38203 "parsing/parser.ml" +# 38227 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -38207,21 +38231,21 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 38211 "parsing/parser.ml" +# 38235 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 38219 "parsing/parser.ml" +# 38243 "parsing/parser.ml" in let _1 = -# 4908 "parsing/parser.mly" +# 4909 "parsing/parser.mly" ( Override ) -# 38225 "parsing/parser.ml" +# 38249 "parsing/parser.ml" in # 2371 "parsing/parser.mly" @@ -38229,7 +38253,7 @@ module Tables = struct let loc = Location.(e.pexp_loc.loc_start, e.pexp_loc.loc_end) in (_4, _3, Cfk_concrete (_1, ghexp ~loc (Pexp_poly (e, None)))), _2 ) -# 38233 "parsing/parser.ml" +# 38257 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38290,7 +38314,7 @@ module Tables = struct let _1_inlined1 : ( # 1016 "parsing/parser.mly" (string) -# 38294 "parsing/parser.ml" +# 38318 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _3 : (Asttypes.private_flag) = Obj.magic _3 in let _1 : (Parsetree.attributes) = Obj.magic _1 in @@ -38302,18 +38326,18 @@ module Tables = struct Parsetree.attributes) = let _6 = let _1 = _1_inlined2 in -# 4213 "parsing/parser.mly" +# 4214 "parsing/parser.mly" ( _1 ) -# 38308 "parsing/parser.ml" +# 38332 "parsing/parser.ml" in let _startpos__6_ = _startpos__1_inlined2_ in let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = -# 4617 "parsing/parser.mly" +# 4618 "parsing/parser.mly" ( _1 ) -# 38317 "parsing/parser.ml" +# 38341 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -38321,18 +38345,18 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 38325 "parsing/parser.ml" +# 38349 "parsing/parser.ml" in let _2 = -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 38331 "parsing/parser.ml" +# 38355 "parsing/parser.ml" in let _1 = -# 4907 "parsing/parser.mly" +# 4908 "parsing/parser.mly" ( Fresh ) -# 38336 "parsing/parser.ml" +# 38360 "parsing/parser.ml" in # 2377 "parsing/parser.mly" @@ -38340,7 +38364,7 @@ module Tables = struct let loc = (_startpos__6_, _endpos__8_) in ghexp ~loc (Pexp_poly(_8, Some _6)) in (_4, _3, Cfk_concrete (_1, poly_exp)), _2 ) -# 38344 "parsing/parser.ml" +# 38368 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38407,7 +38431,7 @@ module Tables = struct let _1_inlined2 : ( # 1016 "parsing/parser.mly" (string) -# 38411 "parsing/parser.ml" +# 38435 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let _3 : (Asttypes.private_flag) = Obj.magic _3 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in @@ -38420,18 +38444,18 @@ module Tables = struct Parsetree.attributes) = let _6 = let _1 = _1_inlined3 in -# 4213 "parsing/parser.mly" +# 4214 "parsing/parser.mly" ( _1 ) -# 38426 "parsing/parser.ml" +# 38450 "parsing/parser.ml" in let _startpos__6_ = _startpos__1_inlined3_ in let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _1 = -# 4617 "parsing/parser.mly" +# 4618 "parsing/parser.mly" ( _1 ) -# 38435 "parsing/parser.ml" +# 38459 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -38439,21 +38463,21 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 38443 "parsing/parser.ml" +# 38467 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 38451 "parsing/parser.ml" +# 38475 "parsing/parser.ml" in let _1 = -# 4908 "parsing/parser.mly" +# 4909 "parsing/parser.mly" ( Override ) -# 38457 "parsing/parser.ml" +# 38481 "parsing/parser.ml" in # 2377 "parsing/parser.mly" @@ -38461,7 +38485,7 @@ module Tables = struct let loc = (_startpos__6_, _endpos__8_) in ghexp ~loc (Pexp_poly(_8, Some _6)) in (_4, _3, Cfk_concrete (_1, poly_exp)), _2 ) -# 38465 "parsing/parser.ml" +# 38489 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38543,7 +38567,7 @@ module Tables = struct let _1_inlined1 : ( # 1016 "parsing/parser.mly" (string) -# 38547 "parsing/parser.ml" +# 38571 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _3 : (Asttypes.private_flag) = Obj.magic _3 in let _1 : (Parsetree.attributes) = Obj.magic _1 in @@ -38555,9 +38579,9 @@ module Tables = struct Parsetree.attributes) = let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = -# 4617 "parsing/parser.mly" +# 4618 "parsing/parser.mly" ( _1 ) -# 38561 "parsing/parser.ml" +# 38585 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -38565,20 +38589,20 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 38569 "parsing/parser.ml" +# 38593 "parsing/parser.ml" in let _startpos__4_ = _startpos__1_inlined1_ in let _2 = -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 38576 "parsing/parser.ml" +# 38600 "parsing/parser.ml" in let (_endpos__2_, _startpos__2_) = (_endpos__1_, _startpos__1_) in let _1 = -# 4907 "parsing/parser.mly" +# 4908 "parsing/parser.mly" ( Fresh ) -# 38582 "parsing/parser.ml" +# 38606 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__0_, _endpos__0_) in let _endpos = _endpos__11_ in @@ -38605,7 +38629,7 @@ module Tables = struct ghexp ~loc:poly_exp_loc (Pexp_poly(exp, Some poly)) in (_4, _3, Cfk_concrete (_1, poly_exp)), _2 ) -# 38609 "parsing/parser.ml" +# 38633 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38693,7 +38717,7 @@ module Tables = struct let _1_inlined2 : ( # 1016 "parsing/parser.mly" (string) -# 38697 "parsing/parser.ml" +# 38721 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let _3 : (Asttypes.private_flag) = Obj.magic _3 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in @@ -38706,9 +38730,9 @@ module Tables = struct Parsetree.attributes) = let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _1 = -# 4617 "parsing/parser.mly" +# 4618 "parsing/parser.mly" ( _1 ) -# 38712 "parsing/parser.ml" +# 38736 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -38716,23 +38740,23 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 38720 "parsing/parser.ml" +# 38744 "parsing/parser.ml" in let _startpos__4_ = _startpos__1_inlined2_ in let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 38729 "parsing/parser.ml" +# 38753 "parsing/parser.ml" in let (_endpos__2_, _startpos__2_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let _1 = -# 4908 "parsing/parser.mly" +# 4909 "parsing/parser.mly" ( Override ) -# 38736 "parsing/parser.ml" +# 38760 "parsing/parser.ml" in let _endpos = _endpos__11_ in let _symbolstartpos = if _startpos__1_ != _endpos__1_ then @@ -38758,7 +38782,7 @@ module Tables = struct ghexp ~loc:poly_exp_loc (Pexp_poly(exp, Some poly)) in (_4, _3, Cfk_concrete (_1, poly_exp)), _2 ) -# 38762 "parsing/parser.ml" +# 38786 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38779,15 +38803,15 @@ module Tables = struct let _1 : ( # 1016 "parsing/parser.mly" (string) -# 38783 "parsing/parser.ml" +# 38807 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4738 "parsing/parser.mly" +# 4739 "parsing/parser.mly" ( Lident _1 ) -# 38791 "parsing/parser.ml" +# 38815 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38820,7 +38844,7 @@ module Tables = struct let _3 : ( # 1016 "parsing/parser.mly" (string) -# 38824 "parsing/parser.ml" +# 38848 "parsing/parser.ml" ) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in @@ -38828,9 +38852,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = -# 4739 "parsing/parser.mly" +# 4740 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 38834 "parsing/parser.ml" +# 38858 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38851,15 +38875,15 @@ module Tables = struct let _1 : ( # 1071 "parsing/parser.mly" (string) -# 38855 "parsing/parser.ml" +# 38879 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4738 "parsing/parser.mly" +# 4739 "parsing/parser.mly" ( Lident _1 ) -# 38863 "parsing/parser.ml" +# 38887 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38892,7 +38916,7 @@ module Tables = struct let _3 : ( # 1071 "parsing/parser.mly" (string) -# 38896 "parsing/parser.ml" +# 38920 "parsing/parser.ml" ) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in @@ -38900,9 +38924,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = -# 4739 "parsing/parser.mly" +# 4740 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 38906 "parsing/parser.ml" +# 38930 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38925,14 +38949,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = let _1 = -# 4786 "parsing/parser.mly" +# 4787 "parsing/parser.mly" ( _1 ) -# 38931 "parsing/parser.ml" +# 38955 "parsing/parser.ml" in -# 4738 "parsing/parser.mly" +# 4739 "parsing/parser.mly" ( Lident _1 ) -# 38936 "parsing/parser.ml" +# 38960 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38970,20 +38994,20 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Longident.t) = let _1 = let _1 = -# 4718 "parsing/parser.mly" +# 4719 "parsing/parser.mly" ( "::" ) -# 38976 "parsing/parser.ml" +# 39000 "parsing/parser.ml" in -# 4786 "parsing/parser.mly" +# 4787 "parsing/parser.mly" ( _1 ) -# 38981 "parsing/parser.ml" +# 39005 "parsing/parser.ml" in -# 4738 "parsing/parser.mly" +# 4739 "parsing/parser.mly" ( Lident _1 ) -# 38987 "parsing/parser.ml" +# 39011 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39006,14 +39030,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = let _1 = -# 4786 "parsing/parser.mly" +# 4787 "parsing/parser.mly" ( _1 ) -# 39012 "parsing/parser.ml" +# 39036 "parsing/parser.ml" in -# 4738 "parsing/parser.mly" +# 4739 "parsing/parser.mly" ( Lident _1 ) -# 39017 "parsing/parser.ml" +# 39041 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39052,15 +39076,15 @@ module Tables = struct let _v : (Longident.t) = let _3 = let _1 = _1_inlined1 in -# 4786 "parsing/parser.mly" +# 4787 "parsing/parser.mly" ( _1 ) -# 39058 "parsing/parser.ml" +# 39082 "parsing/parser.ml" in -# 4739 "parsing/parser.mly" +# 4740 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 39064 "parsing/parser.ml" +# 39088 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39112,20 +39136,20 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Longident.t) = let _3 = let _1 = -# 4718 "parsing/parser.mly" +# 4719 "parsing/parser.mly" ( "::" ) -# 39118 "parsing/parser.ml" +# 39142 "parsing/parser.ml" in -# 4786 "parsing/parser.mly" +# 4787 "parsing/parser.mly" ( _1 ) -# 39123 "parsing/parser.ml" +# 39147 "parsing/parser.ml" in -# 4739 "parsing/parser.mly" +# 4740 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 39129 "parsing/parser.ml" +# 39153 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39164,15 +39188,15 @@ module Tables = struct let _v : (Longident.t) = let _3 = let _1 = _1_inlined1 in -# 4786 "parsing/parser.mly" +# 4787 "parsing/parser.mly" ( _1 ) -# 39170 "parsing/parser.ml" +# 39194 "parsing/parser.ml" in -# 4739 "parsing/parser.mly" +# 4740 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 39176 "parsing/parser.ml" +# 39200 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39195,9 +39219,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4738 "parsing/parser.mly" +# 4739 "parsing/parser.mly" ( Lident _1 ) -# 39201 "parsing/parser.ml" +# 39225 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39234,9 +39258,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = -# 4739 "parsing/parser.mly" +# 4740 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 39240 "parsing/parser.ml" +# 39264 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39259,9 +39283,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4738 "parsing/parser.mly" +# 4739 "parsing/parser.mly" ( Lident _1 ) -# 39265 "parsing/parser.ml" +# 39289 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39298,9 +39322,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = -# 4739 "parsing/parser.mly" +# 4740 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 39304 "parsing/parser.ml" +# 39328 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39323,9 +39347,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4738 "parsing/parser.mly" +# 4739 "parsing/parser.mly" ( Lident _1 ) -# 39329 "parsing/parser.ml" +# 39353 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39362,9 +39386,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = -# 4739 "parsing/parser.mly" +# 4740 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 39368 "parsing/parser.ml" +# 39392 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39385,15 +39409,15 @@ module Tables = struct let _1 : ( # 1016 "parsing/parser.mly" (string) -# 39389 "parsing/parser.ml" +# 39413 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4738 "parsing/parser.mly" +# 4739 "parsing/parser.mly" ( Lident _1 ) -# 39397 "parsing/parser.ml" +# 39421 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39426,7 +39450,7 @@ module Tables = struct let _3 : ( # 1016 "parsing/parser.mly" (string) -# 39430 "parsing/parser.ml" +# 39454 "parsing/parser.ml" ) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in @@ -39434,9 +39458,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = -# 4739 "parsing/parser.mly" +# 4740 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 39440 "parsing/parser.ml" +# 39464 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39457,15 +39481,15 @@ module Tables = struct let _1 : ( # 1071 "parsing/parser.mly" (string) -# 39461 "parsing/parser.ml" +# 39485 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4738 "parsing/parser.mly" +# 4739 "parsing/parser.mly" ( Lident _1 ) -# 39469 "parsing/parser.ml" +# 39493 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39498,7 +39522,7 @@ module Tables = struct let _3 : ( # 1071 "parsing/parser.mly" (string) -# 39502 "parsing/parser.ml" +# 39526 "parsing/parser.ml" ) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in @@ -39506,9 +39530,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = -# 4739 "parsing/parser.mly" +# 4740 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 39512 "parsing/parser.ml" +# 39536 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39531,9 +39555,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4738 "parsing/parser.mly" +# 4739 "parsing/parser.mly" ( Lident _1 ) -# 39537 "parsing/parser.ml" +# 39561 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39570,9 +39594,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = -# 4739 "parsing/parser.mly" +# 4740 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 39576 "parsing/parser.ml" +# 39600 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39595,9 +39619,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4764 "parsing/parser.mly" +# 4765 "parsing/parser.mly" ( _1 ) -# 39601 "parsing/parser.ml" +# 39625 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39644,9 +39668,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4766 "parsing/parser.mly" +# 4767 "parsing/parser.mly" ( lapply ~loc:_sloc _1 _3 ) -# 39650 "parsing/parser.ml" +# 39674 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39684,9 +39708,9 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Longident.t) = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 4768 "parsing/parser.mly" +# 4769 "parsing/parser.mly" ( expecting _loc__3_ "module path" ) -# 39690 "parsing/parser.ml" +# 39714 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39709,9 +39733,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4761 "parsing/parser.mly" +# 4762 "parsing/parser.mly" ( _1 ) -# 39715 "parsing/parser.ml" +# 39739 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39743,7 +39767,7 @@ module Tables = struct let _v : (Parsetree.module_expr) = # 1819 "parsing/parser.mly" ( me ) -# 39747 "parsing/parser.ml" +# 39771 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39776,7 +39800,7 @@ module Tables = struct # 1821 "parsing/parser.mly" ( expecting _loc__1_ "=" ) -# 39780 "parsing/parser.ml" +# 39804 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39823,7 +39847,7 @@ module Tables = struct let _1 = # 1824 "parsing/parser.mly" ( Pmod_constraint(me, mty) ) -# 39827 "parsing/parser.ml" +# 39851 "parsing/parser.ml" in let _endpos__1_ = _endpos_me_ in let _endpos = _endpos__1_ in @@ -39832,13 +39856,13 @@ module Tables = struct # 1248 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) -# 39836 "parsing/parser.ml" +# 39860 "parsing/parser.ml" in # 1828 "parsing/parser.mly" ( _1 ) -# 39842 "parsing/parser.ml" +# 39866 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39872,7 +39896,7 @@ module Tables = struct # 1826 "parsing/parser.mly" ( let (_, arg) = arg_and_pos in Pmod_functor(arg, body) ) -# 39876 "parsing/parser.ml" +# 39900 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_body_, _startpos_arg_and_pos_) in let _endpos = _endpos__1_ in @@ -39881,13 +39905,13 @@ module Tables = struct # 1248 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) -# 39885 "parsing/parser.ml" +# 39909 "parsing/parser.ml" in # 1828 "parsing/parser.mly" ( _1 ) -# 39891 "parsing/parser.ml" +# 39915 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39919,7 +39943,7 @@ module Tables = struct let _v : (Parsetree.module_type) = # 2096 "parsing/parser.mly" ( mty ) -# 39923 "parsing/parser.ml" +# 39947 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39952,7 +39976,7 @@ module Tables = struct # 2098 "parsing/parser.mly" ( expecting _loc__1_ ":" ) -# 39956 "parsing/parser.ml" +# 39980 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39986,7 +40010,7 @@ module Tables = struct # 2101 "parsing/parser.mly" ( let (_, arg) = arg_and_pos in Pmty_functor(arg, body) ) -# 39990 "parsing/parser.ml" +# 40014 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_body_, _startpos_arg_and_pos_) in let _endpos = _endpos__1_ in @@ -39995,13 +40019,13 @@ module Tables = struct # 1250 "parsing/parser.mly" ( mkmty ~loc:_sloc _1 ) -# 39999 "parsing/parser.ml" +# 40023 "parsing/parser.ml" in # 2104 "parsing/parser.mly" ( _1 ) -# 40005 "parsing/parser.ml" +# 40029 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40047,9 +40071,9 @@ module Tables = struct let _v : (Parsetree.module_expr) = let attrs = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 40053 "parsing/parser.ml" +# 40077 "parsing/parser.ml" in let _endpos = _endpos__4_ in @@ -40058,7 +40082,7 @@ module Tables = struct # 1642 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_structure s) ) -# 40062 "parsing/parser.ml" +# 40086 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40104,9 +40128,9 @@ module Tables = struct let _v : (Parsetree.module_expr) = let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 40110 "parsing/parser.ml" +# 40134 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in @@ -40114,7 +40138,7 @@ module Tables = struct # 1644 "parsing/parser.mly" ( unclosed "struct" _loc__1_ "end" _loc__4_ ) -# 40118 "parsing/parser.ml" +# 40142 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40147,7 +40171,7 @@ module Tables = struct # 1646 "parsing/parser.mly" ( expecting _loc__1_ "struct" ) -# 40151 "parsing/parser.ml" +# 40175 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40202,15 +40226,15 @@ module Tables = struct # 1608 "parsing/parser.mly" ( _1 ) -# 40206 "parsing/parser.ml" +# 40230 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 40214 "parsing/parser.ml" +# 40238 "parsing/parser.ml" in let _endpos = _endpos_me_ in @@ -40223,7 +40247,7 @@ module Tables = struct mkmod ~loc:(startpos, _endpos) (Pmod_functor (arg, acc)) ) me args ) ) -# 40227 "parsing/parser.ml" +# 40251 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40248,7 +40272,7 @@ module Tables = struct let _v : (Parsetree.module_expr) = # 1654 "parsing/parser.mly" ( me ) -# 40252 "parsing/parser.ml" +# 40276 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40280,7 +40304,7 @@ module Tables = struct let _v : (Parsetree.module_expr) = # 1656 "parsing/parser.mly" ( Mod.attr me attr ) -# 40284 "parsing/parser.ml" +# 40308 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40311,13 +40335,13 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 40315 "parsing/parser.ml" +# 40339 "parsing/parser.ml" in # 1660 "parsing/parser.mly" ( Pmod_ident x ) -# 40321 "parsing/parser.ml" +# 40345 "parsing/parser.ml" in let _endpos = _endpos__1_ in @@ -40326,13 +40350,13 @@ module Tables = struct # 1248 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) -# 40330 "parsing/parser.ml" +# 40354 "parsing/parser.ml" in # 1671 "parsing/parser.mly" ( _1 ) -# 40336 "parsing/parser.ml" +# 40360 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40365,7 +40389,7 @@ module Tables = struct let _1 = # 1663 "parsing/parser.mly" ( Pmod_apply(me1, me2) ) -# 40369 "parsing/parser.ml" +# 40393 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_me2_, _startpos_me1_) in let _endpos = _endpos__1_ in @@ -40374,13 +40398,13 @@ module Tables = struct # 1248 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) -# 40378 "parsing/parser.ml" +# 40402 "parsing/parser.ml" in # 1671 "parsing/parser.mly" ( _1 ) -# 40384 "parsing/parser.ml" +# 40408 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40420,7 +40444,7 @@ module Tables = struct let _1 = # 1666 "parsing/parser.mly" ( Pmod_apply_unit me ) -# 40424 "parsing/parser.ml" +# 40448 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__3_, _startpos_me_) in let _endpos = _endpos__1_ in @@ -40429,13 +40453,13 @@ module Tables = struct # 1248 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) -# 40433 "parsing/parser.ml" +# 40457 "parsing/parser.ml" in # 1671 "parsing/parser.mly" ( _1 ) -# 40439 "parsing/parser.ml" +# 40463 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40461,7 +40485,7 @@ module Tables = struct let _1 = # 1669 "parsing/parser.mly" ( Pmod_extension ex ) -# 40465 "parsing/parser.ml" +# 40489 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ex_, _startpos_ex_) in let _endpos = _endpos__1_ in @@ -40470,13 +40494,13 @@ module Tables = struct # 1248 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) -# 40474 "parsing/parser.ml" +# 40498 "parsing/parser.ml" in # 1671 "parsing/parser.mly" ( _1 ) -# 40480 "parsing/parser.ml" +# 40504 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40497,7 +40521,7 @@ module Tables = struct let x : ( # 1071 "parsing/parser.mly" (string) -# 40501 "parsing/parser.ml" +# 40525 "parsing/parser.ml" ) = Obj.magic x in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in @@ -40505,7 +40529,7 @@ module Tables = struct let _v : (string option) = # 1625 "parsing/parser.mly" ( Some x ) -# 40509 "parsing/parser.ml" +# 40533 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40530,7 +40554,7 @@ module Tables = struct let _v : (string option) = # 1628 "parsing/parser.mly" ( None ) -# 40534 "parsing/parser.ml" +# 40558 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40590,7 +40614,7 @@ module Tables = struct let _1_inlined2 : ( # 1071 "parsing/parser.mly" (string) -# 40594 "parsing/parser.ml" +# 40618 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let ext : (string Asttypes.loc option) = Obj.magic ext in @@ -40601,9 +40625,9 @@ module Tables = struct let _v : (Parsetree.module_substitution * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined4 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 40607 "parsing/parser.ml" +# 40631 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in @@ -40615,7 +40639,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 40619 "parsing/parser.ml" +# 40643 "parsing/parser.ml" in let uid = @@ -40626,15 +40650,15 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 40630 "parsing/parser.ml" +# 40654 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 40638 "parsing/parser.ml" +# 40662 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in @@ -40648,7 +40672,7 @@ module Tables = struct let docs = symbol_docs _sloc in Ms.mk uid body ~attrs ~loc ~docs, ext ) -# 40652 "parsing/parser.ml" +# 40676 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40701,7 +40725,7 @@ module Tables = struct let _1_inlined2 : ( # 1071 "parsing/parser.mly" (string) -# 40705 "parsing/parser.ml" +# 40729 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _2 : (string Asttypes.loc option) = Obj.magic _2 in @@ -40717,22 +40741,22 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 40721 "parsing/parser.ml" +# 40745 "parsing/parser.ml" in let _3 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 40729 "parsing/parser.ml" +# 40753 "parsing/parser.ml" in let _loc__6_ = (_startpos__6_, _endpos__6_) in # 2141 "parsing/parser.mly" ( expecting _loc__6_ "module path" ) -# 40736 "parsing/parser.ml" +# 40760 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40778,9 +40802,9 @@ module Tables = struct let _v : (Parsetree.module_type) = let attrs = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 40784 "parsing/parser.ml" +# 40808 "parsing/parser.ml" in let _endpos = _endpos__4_ in @@ -40789,7 +40813,7 @@ module Tables = struct # 1961 "parsing/parser.mly" ( mkmty ~loc:_sloc ~attrs (Pmty_signature s) ) -# 40793 "parsing/parser.ml" +# 40817 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40835,9 +40859,9 @@ module Tables = struct let _v : (Parsetree.module_type) = let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 40841 "parsing/parser.ml" +# 40865 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in @@ -40845,7 +40869,7 @@ module Tables = struct # 1963 "parsing/parser.mly" ( unclosed "sig" _loc__1_ "end" _loc__4_ ) -# 40849 "parsing/parser.ml" +# 40873 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40878,7 +40902,7 @@ module Tables = struct # 1965 "parsing/parser.mly" ( expecting _loc__1_ "sig" ) -# 40882 "parsing/parser.ml" +# 40906 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40933,15 +40957,15 @@ module Tables = struct # 1608 "parsing/parser.mly" ( _1 ) -# 40937 "parsing/parser.ml" +# 40961 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 40945 "parsing/parser.ml" +# 40969 "parsing/parser.ml" in let _endpos = _endpos_mty_ in @@ -40954,7 +40978,7 @@ module Tables = struct mkmty ~loc:(startpos, _endpos) (Pmty_functor (arg, acc)) ) mty args ) ) -# 40958 "parsing/parser.ml" +# 40982 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41007,9 +41031,9 @@ module Tables = struct let _v : (Parsetree.module_type) = let _4 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 41013 "parsing/parser.ml" +# 41037 "parsing/parser.ml" in let _endpos = _endpos__5_ in @@ -41018,7 +41042,7 @@ module Tables = struct # 1975 "parsing/parser.mly" ( mkmty ~loc:_sloc ~attrs:_4 (Pmty_typeof _5) ) -# 41022 "parsing/parser.ml" +# 41046 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41057,7 +41081,7 @@ module Tables = struct let _v : (Parsetree.module_type) = # 1977 "parsing/parser.mly" ( _2 ) -# 41061 "parsing/parser.ml" +# 41085 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41098,7 +41122,7 @@ module Tables = struct # 1979 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) -# 41102 "parsing/parser.ml" +# 41126 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41130,7 +41154,7 @@ module Tables = struct let _v : (Parsetree.module_type) = # 1981 "parsing/parser.mly" ( Mty.attr _1 _2 ) -# 41134 "parsing/parser.ml" +# 41158 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41161,13 +41185,13 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 41165 "parsing/parser.ml" +# 41189 "parsing/parser.ml" in # 1984 "parsing/parser.mly" ( Pmty_ident _1 ) -# 41171 "parsing/parser.ml" +# 41195 "parsing/parser.ml" in let _endpos = _endpos__1_ in @@ -41176,13 +41200,13 @@ module Tables = struct # 1250 "parsing/parser.mly" ( mkmty ~loc:_sloc _1 ) -# 41180 "parsing/parser.ml" +# 41204 "parsing/parser.ml" in # 1997 "parsing/parser.mly" ( _1 ) -# 41186 "parsing/parser.ml" +# 41210 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41229,7 +41253,7 @@ module Tables = struct let _1 = # 1986 "parsing/parser.mly" ( Pmty_functor(Unit, _4) ) -# 41233 "parsing/parser.ml" +# 41257 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in let _endpos = _endpos__1_ in @@ -41238,13 +41262,13 @@ module Tables = struct # 1250 "parsing/parser.mly" ( mkmty ~loc:_sloc _1 ) -# 41242 "parsing/parser.ml" +# 41266 "parsing/parser.ml" in # 1997 "parsing/parser.mly" ( _1 ) -# 41248 "parsing/parser.ml" +# 41272 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41284,7 +41308,7 @@ module Tables = struct let _1 = # 1989 "parsing/parser.mly" ( Pmty_functor(Named (mknoloc None, _1), _3) ) -# 41288 "parsing/parser.ml" +# 41312 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in @@ -41293,13 +41317,13 @@ module Tables = struct # 1250 "parsing/parser.mly" ( mkmty ~loc:_sloc _1 ) -# 41297 "parsing/parser.ml" +# 41321 "parsing/parser.ml" in # 1997 "parsing/parser.mly" ( _1 ) -# 41303 "parsing/parser.ml" +# 41327 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41341,18 +41365,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 41345 "parsing/parser.ml" +# 41369 "parsing/parser.ml" in # 1362 "parsing/parser.mly" ( xs ) -# 41350 "parsing/parser.ml" +# 41374 "parsing/parser.ml" in # 1991 "parsing/parser.mly" ( Pmty_with(_1, _3) ) -# 41356 "parsing/parser.ml" +# 41380 "parsing/parser.ml" in let _endpos__1_ = _endpos_xs_ in @@ -41362,13 +41386,13 @@ module Tables = struct # 1250 "parsing/parser.mly" ( mkmty ~loc:_sloc _1 ) -# 41366 "parsing/parser.ml" +# 41390 "parsing/parser.ml" in # 1997 "parsing/parser.mly" ( _1 ) -# 41372 "parsing/parser.ml" +# 41396 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41394,7 +41418,7 @@ module Tables = struct let _1 = # 1995 "parsing/parser.mly" ( Pmty_extension _1 ) -# 41398 "parsing/parser.ml" +# 41422 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -41402,13 +41426,13 @@ module Tables = struct # 1250 "parsing/parser.mly" ( mkmty ~loc:_sloc _1 ) -# 41406 "parsing/parser.ml" +# 41430 "parsing/parser.ml" in # 1997 "parsing/parser.mly" ( _1 ) -# 41412 "parsing/parser.ml" +# 41436 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41452,7 +41476,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 41456 "parsing/parser.ml" +# 41480 "parsing/parser.ml" in let _endpos__3_ = _endpos__1_inlined1_ in @@ -41463,7 +41487,7 @@ module Tables = struct # 1999 "parsing/parser.mly" ( Jane_syntax.Strengthen.mty_of ~loc:(make_loc _sloc) { mty = _1; mod_id = _3 } ) -# 41467 "parsing/parser.ml" +# 41491 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41530,9 +41554,9 @@ module Tables = struct let _v : (Parsetree.module_type_declaration * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined3 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 41536 "parsing/parser.ml" +# 41560 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -41544,15 +41568,15 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 41548 "parsing/parser.ml" +# 41572 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 41556 "parsing/parser.ml" +# 41580 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in @@ -41566,7 +41590,7 @@ module Tables = struct let docs = symbol_docs _sloc in Mtd.mk id ?typ ~attrs ~loc ~docs, ext ) -# 41570 "parsing/parser.ml" +# 41594 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41640,9 +41664,9 @@ module Tables = struct let _v : (Parsetree.module_type_declaration * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined3 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 41646 "parsing/parser.ml" +# 41670 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -41654,15 +41678,15 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 41658 "parsing/parser.ml" +# 41682 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 41666 "parsing/parser.ml" +# 41690 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in @@ -41676,7 +41700,7 @@ module Tables = struct let docs = symbol_docs _sloc in Mtd.mk id ~typ ~attrs ~loc ~docs, ext ) -# 41680 "parsing/parser.ml" +# 41704 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41699,9 +41723,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4771 "parsing/parser.mly" +# 4772 "parsing/parser.mly" ( _1 ) -# 41705 "parsing/parser.ml" +# 41729 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41717,9 +41741,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.mutable_flag) = -# 4852 "parsing/parser.mly" +# 4853 "parsing/parser.mly" ( Immutable ) -# 41723 "parsing/parser.ml" +# 41747 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41742,9 +41766,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag) = -# 4853 "parsing/parser.mly" +# 4854 "parsing/parser.mly" ( Mutable ) -# 41748 "parsing/parser.ml" +# 41772 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41760,9 +41784,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.mutable_flag * Mode.t) = -# 4857 "parsing/parser.mly" +# 4858 "parsing/parser.mly" ( Immutable, Mode.empty ) -# 41766 "parsing/parser.ml" +# 41790 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41785,9 +41809,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag * Mode.t) = -# 4859 "parsing/parser.mly" +# 4860 "parsing/parser.mly" ( Mutable, Mode.empty ) -# 41791 "parsing/parser.ml" +# 41815 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41813,9 +41837,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4861 "parsing/parser.mly" +# 4862 "parsing/parser.mly" ( Immutable, Mode.singleton (Mode.Const.mk "global" (make_loc _sloc)) ) -# 41819 "parsing/parser.ml" +# 41843 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41831,9 +41855,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = -# 4873 "parsing/parser.mly" +# 4874 "parsing/parser.mly" ( Immutable, Concrete ) -# 41837 "parsing/parser.ml" +# 41861 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41856,9 +41880,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = -# 4875 "parsing/parser.mly" +# 4876 "parsing/parser.mly" ( Mutable, Concrete ) -# 41862 "parsing/parser.ml" +# 41886 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41881,9 +41905,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = -# 4877 "parsing/parser.mly" +# 4878 "parsing/parser.mly" ( Immutable, Virtual ) -# 41887 "parsing/parser.ml" +# 41911 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41913,9 +41937,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = -# 4880 "parsing/parser.mly" +# 4881 "parsing/parser.mly" ( Mutable, Virtual ) -# 41919 "parsing/parser.ml" +# 41943 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41945,9 +41969,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = -# 4880 "parsing/parser.mly" +# 4881 "parsing/parser.mly" ( Mutable, Virtual ) -# 41951 "parsing/parser.ml" +# 41975 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41977,9 +42001,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.label) = -# 4823 "parsing/parser.mly" +# 4824 "parsing/parser.mly" ( _2 ) -# 41983 "parsing/parser.ml" +# 42007 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42000,7 +42024,7 @@ module Tables = struct let _1 : ( # 1016 "parsing/parser.mly" (string) -# 42004 "parsing/parser.ml" +# 42028 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -42012,13 +42036,13 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 42016 "parsing/parser.ml" +# 42040 "parsing/parser.ml" in # 3457 "parsing/parser.mly" ( _1, None ) -# 42022 "parsing/parser.ml" +# 42046 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42066,7 +42090,7 @@ module Tables = struct let _1_inlined1 : ( # 1016 "parsing/parser.mly" (string) -# 42070 "parsing/parser.ml" +# 42094 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -42080,13 +42104,13 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 42084 "parsing/parser.ml" +# 42108 "parsing/parser.ml" in # 3459 "parsing/parser.mly" ( name, Some jkind ) -# 42090 "parsing/parser.ml" +# 42114 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42111,7 +42135,7 @@ module Tables = struct let _v : ((string Asttypes.loc * Jane_asttypes.jkind_annotation option) list) = # 3454 "parsing/parser.mly" ( _1 ) -# 42115 "parsing/parser.ml" +# 42139 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42132,7 +42156,7 @@ module Tables = struct let _1 : ( # 1016 "parsing/parser.mly" (string) -# 42136 "parsing/parser.ml" +# 42160 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -42144,13 +42168,13 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 42148 "parsing/parser.ml" +# 42172 "parsing/parser.ml" in # 221 "" ( [ x ] ) -# 42154 "parsing/parser.ml" +# 42178 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42178,7 +42202,7 @@ module Tables = struct let _1 : ( # 1016 "parsing/parser.mly" (string) -# 42182 "parsing/parser.ml" +# 42206 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -42190,13 +42214,13 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 42194 "parsing/parser.ml" +# 42218 "parsing/parser.ml" in # 223 "" ( x :: xs ) -# 42200 "parsing/parser.ml" +# 42224 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42217,7 +42241,7 @@ module Tables = struct let _1 : ( # 1016 "parsing/parser.mly" (string) -# 42221 "parsing/parser.ml" +# 42245 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -42227,15 +42251,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4385 "parsing/parser.mly" +# 4386 "parsing/parser.mly" ( Mode.Const.mk _1 (make_loc _sloc) ) -# 42233 "parsing/parser.ml" +# 42257 "parsing/parser.ml" in # 221 "" ( [ x ] ) -# 42239 "parsing/parser.ml" +# 42263 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42263,7 +42287,7 @@ module Tables = struct let _1 : ( # 1016 "parsing/parser.mly" (string) -# 42267 "parsing/parser.ml" +# 42291 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -42273,15 +42297,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4385 "parsing/parser.mly" +# 4386 "parsing/parser.mly" ( Mode.Const.mk _1 (make_loc _sloc) ) -# 42279 "parsing/parser.ml" +# 42303 "parsing/parser.ml" in # 223 "" ( x :: xs ) -# 42285 "parsing/parser.ml" +# 42309 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42308,15 +42332,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4366 "parsing/parser.mly" +# 4367 "parsing/parser.mly" ( Mode.Const.mk "local" (make_loc _sloc) ) -# 42314 "parsing/parser.ml" +# 42338 "parsing/parser.ml" in # 221 "" ( [ x ] ) -# 42320 "parsing/parser.ml" +# 42344 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42343,15 +42367,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4368 "parsing/parser.mly" +# 4369 "parsing/parser.mly" ( Mode.Const.mk "unique" (make_loc _sloc) ) -# 42349 "parsing/parser.ml" +# 42373 "parsing/parser.ml" in # 221 "" ( [ x ] ) -# 42355 "parsing/parser.ml" +# 42379 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42378,15 +42402,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4370 "parsing/parser.mly" +# 4371 "parsing/parser.mly" ( Mode.Const.mk "once" (make_loc _sloc) ) -# 42384 "parsing/parser.ml" +# 42408 "parsing/parser.ml" in # 221 "" ( [ x ] ) -# 42390 "parsing/parser.ml" +# 42414 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42420,15 +42444,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4366 "parsing/parser.mly" +# 4367 "parsing/parser.mly" ( Mode.Const.mk "local" (make_loc _sloc) ) -# 42426 "parsing/parser.ml" +# 42450 "parsing/parser.ml" in # 223 "" ( x :: xs ) -# 42432 "parsing/parser.ml" +# 42456 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42462,15 +42486,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4368 "parsing/parser.mly" +# 4369 "parsing/parser.mly" ( Mode.Const.mk "unique" (make_loc _sloc) ) -# 42468 "parsing/parser.ml" +# 42492 "parsing/parser.ml" in # 223 "" ( x :: xs ) -# 42474 "parsing/parser.ml" +# 42498 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42504,15 +42528,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4370 "parsing/parser.mly" +# 4371 "parsing/parser.mly" ( Mode.Const.mk "once" (make_loc _sloc) ) -# 42510 "parsing/parser.ml" +# 42534 "parsing/parser.ml" in # 223 "" ( x :: xs ) -# 42516 "parsing/parser.ml" +# 42540 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42537,7 +42561,7 @@ module Tables = struct let _v : ((string Asttypes.loc * Jane_asttypes.jkind_annotation option) list) = # 221 "" ( [ x ] ) -# 42541 "parsing/parser.ml" +# 42565 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42569,7 +42593,7 @@ module Tables = struct let _v : ((string Asttypes.loc * Jane_asttypes.jkind_annotation option) list) = # 223 "" ( x :: xs ) -# 42573 "parsing/parser.ml" +# 42597 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42590,20 +42614,20 @@ module Tables = struct let s : ( # 1058 "parsing/parser.mly" (string * Location.t * string option) -# 42594 "parsing/parser.ml" +# 42618 "parsing/parser.ml" ) = Obj.magic s in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_s_ in let _endpos = _endpos_s_ in let _v : (string list) = let x = -# 4819 "parsing/parser.mly" +# 4820 "parsing/parser.mly" ( let body, _, _ = s in body ) -# 42602 "parsing/parser.ml" +# 42626 "parsing/parser.ml" in # 221 "" ( [ x ] ) -# 42607 "parsing/parser.ml" +# 42631 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42631,20 +42655,20 @@ module Tables = struct let s : ( # 1058 "parsing/parser.mly" (string * Location.t * string option) -# 42635 "parsing/parser.ml" +# 42659 "parsing/parser.ml" ) = Obj.magic s in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_s_ in let _endpos = _endpos_xs_ in let _v : (string list) = let x = -# 4819 "parsing/parser.mly" +# 4820 "parsing/parser.mly" ( let body, _, _ = s in body ) -# 42643 "parsing/parser.ml" +# 42667 "parsing/parser.ml" in # 223 "" ( x :: xs ) -# 42648 "parsing/parser.ml" +# 42672 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42667,14 +42691,14 @@ module Tables = struct let _startpos = _startpos_ty_ in let _endpos = _endpos_ty_ in let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = -# 4848 "parsing/parser.mly" +# 4849 "parsing/parser.mly" ( Public ) -# 42673 "parsing/parser.ml" +# 42697 "parsing/parser.ml" in -# 3834 "parsing/parser.mly" +# 3835 "parsing/parser.mly" ( (Ptype_abstract, priv, Some ty) ) -# 42678 "parsing/parser.ml" +# 42702 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42704,14 +42728,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos_ty_ in let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = -# 4849 "parsing/parser.mly" +# 4850 "parsing/parser.mly" ( Private ) -# 42710 "parsing/parser.ml" +# 42734 "parsing/parser.ml" in -# 3834 "parsing/parser.mly" +# 3835 "parsing/parser.mly" ( (Ptype_abstract, priv, Some ty) ) -# 42715 "parsing/parser.ml" +# 42739 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42734,26 +42758,26 @@ module Tables = struct let _startpos = _startpos_cs_ in let _endpos = _endpos_cs_ in let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = -# 4848 "parsing/parser.mly" +# 4849 "parsing/parser.mly" ( Public ) -# 42740 "parsing/parser.ml" +# 42764 "parsing/parser.ml" in let oty = let _1 = # 124 "" ( None ) -# 42746 "parsing/parser.ml" +# 42770 "parsing/parser.ml" in -# 3850 "parsing/parser.mly" +# 3851 "parsing/parser.mly" ( _1 ) -# 42751 "parsing/parser.ml" +# 42775 "parsing/parser.ml" in -# 3838 "parsing/parser.mly" +# 3839 "parsing/parser.mly" ( (Ptype_variant cs, priv, oty) ) -# 42757 "parsing/parser.ml" +# 42781 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42783,26 +42807,26 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos_cs_ in let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = -# 4849 "parsing/parser.mly" +# 4850 "parsing/parser.mly" ( Private ) -# 42789 "parsing/parser.ml" +# 42813 "parsing/parser.ml" in let oty = let _1 = # 124 "" ( None ) -# 42795 "parsing/parser.ml" +# 42819 "parsing/parser.ml" in -# 3850 "parsing/parser.mly" +# 3851 "parsing/parser.mly" ( _1 ) -# 42800 "parsing/parser.ml" +# 42824 "parsing/parser.ml" in -# 3838 "parsing/parser.mly" +# 3839 "parsing/parser.mly" ( (Ptype_variant cs, priv, oty) ) -# 42806 "parsing/parser.ml" +# 42830 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42839,33 +42863,33 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_cs_ in let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = -# 4848 "parsing/parser.mly" +# 4849 "parsing/parser.mly" ( Public ) -# 42845 "parsing/parser.ml" +# 42869 "parsing/parser.ml" in let oty = let _1 = let x = # 191 "" ( x ) -# 42852 "parsing/parser.ml" +# 42876 "parsing/parser.ml" in # 126 "" ( Some x ) -# 42857 "parsing/parser.ml" +# 42881 "parsing/parser.ml" in -# 3850 "parsing/parser.mly" +# 3851 "parsing/parser.mly" ( _1 ) -# 42863 "parsing/parser.ml" +# 42887 "parsing/parser.ml" in -# 3838 "parsing/parser.mly" +# 3839 "parsing/parser.mly" ( (Ptype_variant cs, priv, oty) ) -# 42869 "parsing/parser.ml" +# 42893 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42909,33 +42933,33 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_cs_ in let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = -# 4849 "parsing/parser.mly" +# 4850 "parsing/parser.mly" ( Private ) -# 42915 "parsing/parser.ml" +# 42939 "parsing/parser.ml" in let oty = let _1 = let x = # 191 "" ( x ) -# 42922 "parsing/parser.ml" +# 42946 "parsing/parser.ml" in # 126 "" ( Some x ) -# 42927 "parsing/parser.ml" +# 42951 "parsing/parser.ml" in -# 3850 "parsing/parser.mly" +# 3851 "parsing/parser.mly" ( _1 ) -# 42933 "parsing/parser.ml" +# 42957 "parsing/parser.ml" in -# 3838 "parsing/parser.mly" +# 3839 "parsing/parser.mly" ( (Ptype_variant cs, priv, oty) ) -# 42939 "parsing/parser.ml" +# 42963 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42958,26 +42982,26 @@ module Tables = struct let _startpos = _startpos__3_ in let _endpos = _endpos__3_ in let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = -# 4848 "parsing/parser.mly" +# 4849 "parsing/parser.mly" ( Public ) -# 42964 "parsing/parser.ml" +# 42988 "parsing/parser.ml" in let oty = let _1 = # 124 "" ( None ) -# 42970 "parsing/parser.ml" +# 42994 "parsing/parser.ml" in -# 3850 "parsing/parser.mly" +# 3851 "parsing/parser.mly" ( _1 ) -# 42975 "parsing/parser.ml" +# 42999 "parsing/parser.ml" in -# 3842 "parsing/parser.mly" +# 3843 "parsing/parser.mly" ( (Ptype_open, priv, oty) ) -# 42981 "parsing/parser.ml" +# 43005 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43007,26 +43031,26 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = -# 4849 "parsing/parser.mly" +# 4850 "parsing/parser.mly" ( Private ) -# 43013 "parsing/parser.ml" +# 43037 "parsing/parser.ml" in let oty = let _1 = # 124 "" ( None ) -# 43019 "parsing/parser.ml" +# 43043 "parsing/parser.ml" in -# 3850 "parsing/parser.mly" +# 3851 "parsing/parser.mly" ( _1 ) -# 43024 "parsing/parser.ml" +# 43048 "parsing/parser.ml" in -# 3842 "parsing/parser.mly" +# 3843 "parsing/parser.mly" ( (Ptype_open, priv, oty) ) -# 43030 "parsing/parser.ml" +# 43054 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43063,33 +43087,33 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos__3_ in let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = -# 4848 "parsing/parser.mly" +# 4849 "parsing/parser.mly" ( Public ) -# 43069 "parsing/parser.ml" +# 43093 "parsing/parser.ml" in let oty = let _1 = let x = # 191 "" ( x ) -# 43076 "parsing/parser.ml" +# 43100 "parsing/parser.ml" in # 126 "" ( Some x ) -# 43081 "parsing/parser.ml" +# 43105 "parsing/parser.ml" in -# 3850 "parsing/parser.mly" +# 3851 "parsing/parser.mly" ( _1 ) -# 43087 "parsing/parser.ml" +# 43111 "parsing/parser.ml" in -# 3842 "parsing/parser.mly" +# 3843 "parsing/parser.mly" ( (Ptype_open, priv, oty) ) -# 43093 "parsing/parser.ml" +# 43117 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43133,33 +43157,33 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos__3_ in let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = -# 4849 "parsing/parser.mly" +# 4850 "parsing/parser.mly" ( Private ) -# 43139 "parsing/parser.ml" +# 43163 "parsing/parser.ml" in let oty = let _1 = let x = # 191 "" ( x ) -# 43146 "parsing/parser.ml" +# 43170 "parsing/parser.ml" in # 126 "" ( Some x ) -# 43151 "parsing/parser.ml" +# 43175 "parsing/parser.ml" in -# 3850 "parsing/parser.mly" +# 3851 "parsing/parser.mly" ( _1 ) -# 43157 "parsing/parser.ml" +# 43181 "parsing/parser.ml" in -# 3842 "parsing/parser.mly" +# 3843 "parsing/parser.mly" ( (Ptype_open, priv, oty) ) -# 43163 "parsing/parser.ml" +# 43187 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43196,26 +43220,26 @@ module Tables = struct let _startpos = _startpos__3_ in let _endpos = _endpos__5_ in let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = -# 4848 "parsing/parser.mly" +# 4849 "parsing/parser.mly" ( Public ) -# 43202 "parsing/parser.ml" +# 43226 "parsing/parser.ml" in let oty = let _1 = # 124 "" ( None ) -# 43208 "parsing/parser.ml" +# 43232 "parsing/parser.ml" in -# 3850 "parsing/parser.mly" +# 3851 "parsing/parser.mly" ( _1 ) -# 43213 "parsing/parser.ml" +# 43237 "parsing/parser.ml" in -# 3846 "parsing/parser.mly" +# 3847 "parsing/parser.mly" ( (Ptype_record ls, priv, oty) ) -# 43219 "parsing/parser.ml" +# 43243 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43259,26 +43283,26 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = -# 4849 "parsing/parser.mly" +# 4850 "parsing/parser.mly" ( Private ) -# 43265 "parsing/parser.ml" +# 43289 "parsing/parser.ml" in let oty = let _1 = # 124 "" ( None ) -# 43271 "parsing/parser.ml" +# 43295 "parsing/parser.ml" in -# 3850 "parsing/parser.mly" +# 3851 "parsing/parser.mly" ( _1 ) -# 43276 "parsing/parser.ml" +# 43300 "parsing/parser.ml" in -# 3846 "parsing/parser.mly" +# 3847 "parsing/parser.mly" ( (Ptype_record ls, priv, oty) ) -# 43282 "parsing/parser.ml" +# 43306 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43329,33 +43353,33 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos__5_ in let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = -# 4848 "parsing/parser.mly" +# 4849 "parsing/parser.mly" ( Public ) -# 43335 "parsing/parser.ml" +# 43359 "parsing/parser.ml" in let oty = let _1 = let x = # 191 "" ( x ) -# 43342 "parsing/parser.ml" +# 43366 "parsing/parser.ml" in # 126 "" ( Some x ) -# 43347 "parsing/parser.ml" +# 43371 "parsing/parser.ml" in -# 3850 "parsing/parser.mly" +# 3851 "parsing/parser.mly" ( _1 ) -# 43353 "parsing/parser.ml" +# 43377 "parsing/parser.ml" in -# 3846 "parsing/parser.mly" +# 3847 "parsing/parser.mly" ( (Ptype_record ls, priv, oty) ) -# 43359 "parsing/parser.ml" +# 43383 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43413,33 +43437,33 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos__5_ in let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = -# 4849 "parsing/parser.mly" +# 4850 "parsing/parser.mly" ( Private ) -# 43419 "parsing/parser.ml" +# 43443 "parsing/parser.ml" in let oty = let _1 = let x = # 191 "" ( x ) -# 43426 "parsing/parser.ml" +# 43450 "parsing/parser.ml" in # 126 "" ( Some x ) -# 43431 "parsing/parser.ml" +# 43455 "parsing/parser.ml" in -# 3850 "parsing/parser.mly" +# 3851 "parsing/parser.mly" ( _1 ) -# 43437 "parsing/parser.ml" +# 43461 "parsing/parser.ml" in -# 3846 "parsing/parser.mly" +# 3847 "parsing/parser.mly" ( (Ptype_record ls, priv, oty) ) -# 43443 "parsing/parser.ml" +# 43467 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43492,24 +43516,24 @@ module Tables = struct let _v : (Parsetree.open_declaration * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined2 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 43498 "parsing/parser.ml" +# 43522 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined2_ in let attrs1 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 43507 "parsing/parser.ml" +# 43531 "parsing/parser.ml" in let override = -# 4907 "parsing/parser.mly" +# 4908 "parsing/parser.mly" ( Fresh ) -# 43513 "parsing/parser.ml" +# 43537 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in @@ -43522,7 +43546,7 @@ module Tables = struct let docs = symbol_docs _sloc in Opn.mk me ~override ~attrs ~loc ~docs, ext ) -# 43526 "parsing/parser.ml" +# 43550 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43582,24 +43606,24 @@ module Tables = struct let _v : (Parsetree.open_declaration * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined3 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 43588 "parsing/parser.ml" +# 43612 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let attrs1 = let _1 = _1_inlined2 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 43597 "parsing/parser.ml" +# 43621 "parsing/parser.ml" in let override = -# 4908 "parsing/parser.mly" +# 4909 "parsing/parser.mly" ( Override ) -# 43603 "parsing/parser.ml" +# 43627 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in @@ -43612,7 +43636,7 @@ module Tables = struct let docs = symbol_docs _sloc in Opn.mk me ~override ~attrs ~loc ~docs, ext ) -# 43616 "parsing/parser.ml" +# 43640 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43665,9 +43689,9 @@ module Tables = struct let _v : (Parsetree.open_description * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined3 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 43671 "parsing/parser.ml" +# 43695 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -43679,21 +43703,21 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 43683 "parsing/parser.ml" +# 43707 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 43691 "parsing/parser.ml" +# 43715 "parsing/parser.ml" in let override = -# 4907 "parsing/parser.mly" +# 4908 "parsing/parser.mly" ( Fresh ) -# 43697 "parsing/parser.ml" +# 43721 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in @@ -43706,7 +43730,7 @@ module Tables = struct let docs = symbol_docs _sloc in Opn.mk id ~override ~attrs ~loc ~docs, ext ) -# 43710 "parsing/parser.ml" +# 43734 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43766,9 +43790,9 @@ module Tables = struct let _v : (Parsetree.open_description * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined4 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 43772 "parsing/parser.ml" +# 43796 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in @@ -43780,21 +43804,21 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 43784 "parsing/parser.ml" +# 43808 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined2 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 43792 "parsing/parser.ml" +# 43816 "parsing/parser.ml" in let override = -# 4908 "parsing/parser.mly" +# 4909 "parsing/parser.mly" ( Override ) -# 43798 "parsing/parser.ml" +# 43822 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in @@ -43807,7 +43831,7 @@ module Tables = struct let docs = symbol_docs _sloc in Opn.mk id ~override ~attrs ~loc ~docs, ext ) -# 43811 "parsing/parser.ml" +# 43835 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43828,15 +43852,15 @@ module Tables = struct let _1 : ( # 1043 "parsing/parser.mly" (string) -# 43832 "parsing/parser.ml" +# 43856 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = -# 4670 "parsing/parser.mly" +# 4671 "parsing/parser.mly" ( _1 ) -# 43840 "parsing/parser.ml" +# 43864 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43857,15 +43881,15 @@ module Tables = struct let _1 : ( # 994 "parsing/parser.mly" (string) -# 43861 "parsing/parser.ml" +# 43885 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = -# 4671 "parsing/parser.mly" +# 4672 "parsing/parser.mly" ( _1 ) -# 43869 "parsing/parser.ml" +# 43893 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43886,15 +43910,15 @@ module Tables = struct let _1 : ( # 995 "parsing/parser.mly" (string) -# 43890 "parsing/parser.ml" +# 43914 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = -# 4672 "parsing/parser.mly" +# 4673 "parsing/parser.mly" ( _1 ) -# 43898 "parsing/parser.ml" +# 43922 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43936,15 +43960,15 @@ module Tables = struct let _1 : ( # 993 "parsing/parser.mly" (string) -# 43940 "parsing/parser.ml" +# 43964 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Asttypes.label) = -# 4673 "parsing/parser.mly" +# 4674 "parsing/parser.mly" ( "."^ _1 ^"(" ^ _3 ^ ")" ) -# 43948 "parsing/parser.ml" +# 43972 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43993,15 +44017,15 @@ module Tables = struct let _1 : ( # 993 "parsing/parser.mly" (string) -# 43997 "parsing/parser.ml" +# 44021 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Asttypes.label) = -# 4674 "parsing/parser.mly" +# 4675 "parsing/parser.mly" ( "."^ _1 ^ "(" ^ _3 ^ ")<-" ) -# 44005 "parsing/parser.ml" +# 44029 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44043,15 +44067,15 @@ module Tables = struct let _1 : ( # 993 "parsing/parser.mly" (string) -# 44047 "parsing/parser.ml" +# 44071 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Asttypes.label) = -# 4675 "parsing/parser.mly" +# 4676 "parsing/parser.mly" ( "."^ _1 ^"[" ^ _3 ^ "]" ) -# 44055 "parsing/parser.ml" +# 44079 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44100,15 +44124,15 @@ module Tables = struct let _1 : ( # 993 "parsing/parser.mly" (string) -# 44104 "parsing/parser.ml" +# 44128 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Asttypes.label) = -# 4676 "parsing/parser.mly" +# 4677 "parsing/parser.mly" ( "."^ _1 ^ "[" ^ _3 ^ "]<-" ) -# 44112 "parsing/parser.ml" +# 44136 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44150,15 +44174,15 @@ module Tables = struct let _1 : ( # 993 "parsing/parser.mly" (string) -# 44154 "parsing/parser.ml" +# 44178 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Asttypes.label) = -# 4677 "parsing/parser.mly" +# 4678 "parsing/parser.mly" ( "."^ _1 ^"{" ^ _3 ^ "}" ) -# 44162 "parsing/parser.ml" +# 44186 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44207,15 +44231,15 @@ module Tables = struct let _1 : ( # 993 "parsing/parser.mly" (string) -# 44211 "parsing/parser.ml" +# 44235 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Asttypes.label) = -# 4678 "parsing/parser.mly" +# 4679 "parsing/parser.mly" ( "."^ _1 ^ "{" ^ _3 ^ "}<-" ) -# 44219 "parsing/parser.ml" +# 44243 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44236,15 +44260,15 @@ module Tables = struct let _1 : ( # 1055 "parsing/parser.mly" (string) -# 44240 "parsing/parser.ml" +# 44264 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = -# 4679 "parsing/parser.mly" +# 4680 "parsing/parser.mly" ( _1 ) -# 44248 "parsing/parser.ml" +# 44272 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44267,9 +44291,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = -# 4680 "parsing/parser.mly" +# 4681 "parsing/parser.mly" ( "!" ) -# 44273 "parsing/parser.ml" +# 44297 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44290,20 +44314,20 @@ module Tables = struct let op : ( # 986 "parsing/parser.mly" (string) -# 44294 "parsing/parser.ml" +# 44318 "parsing/parser.ml" ) = Obj.magic op in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_op_ in let _endpos = _endpos_op_ in let _v : (Asttypes.label) = let _1 = -# 4688 "parsing/parser.mly" +# 4689 "parsing/parser.mly" ( op ) -# 44302 "parsing/parser.ml" +# 44326 "parsing/parser.ml" in -# 4681 "parsing/parser.mly" +# 4682 "parsing/parser.mly" ( _1 ) -# 44307 "parsing/parser.ml" +# 44331 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44326,14 +44350,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 4690 "parsing/parser.mly" +# 4691 "parsing/parser.mly" ("@") -# 44332 "parsing/parser.ml" +# 44356 "parsing/parser.ml" in -# 4681 "parsing/parser.mly" +# 4682 "parsing/parser.mly" ( _1 ) -# 44337 "parsing/parser.ml" +# 44361 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44356,14 +44380,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 4691 "parsing/parser.mly" +# 4692 "parsing/parser.mly" ("@@") -# 44362 "parsing/parser.ml" +# 44386 "parsing/parser.ml" in -# 4681 "parsing/parser.mly" +# 4682 "parsing/parser.mly" ( _1 ) -# 44367 "parsing/parser.ml" +# 44391 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44384,20 +44408,20 @@ module Tables = struct let op : ( # 989 "parsing/parser.mly" (string) -# 44388 "parsing/parser.ml" +# 44412 "parsing/parser.ml" ) = Obj.magic op in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_op_ in let _endpos = _endpos_op_ in let _v : (Asttypes.label) = let _1 = -# 4692 "parsing/parser.mly" +# 4693 "parsing/parser.mly" ( op ) -# 44396 "parsing/parser.ml" +# 44420 "parsing/parser.ml" in -# 4681 "parsing/parser.mly" +# 4682 "parsing/parser.mly" ( _1 ) -# 44401 "parsing/parser.ml" +# 44425 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44418,20 +44442,20 @@ module Tables = struct let op : ( # 990 "parsing/parser.mly" (string) -# 44422 "parsing/parser.ml" +# 44446 "parsing/parser.ml" ) = Obj.magic op in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_op_ in let _endpos = _endpos_op_ in let _v : (Asttypes.label) = let _1 = -# 4693 "parsing/parser.mly" +# 4694 "parsing/parser.mly" ( op ) -# 44430 "parsing/parser.ml" +# 44454 "parsing/parser.ml" in -# 4681 "parsing/parser.mly" +# 4682 "parsing/parser.mly" ( _1 ) -# 44435 "parsing/parser.ml" +# 44459 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44452,27 +44476,27 @@ module Tables = struct let op : ( # 991 "parsing/parser.mly" (string) -# 44456 "parsing/parser.ml" +# 44480 "parsing/parser.ml" ) = Obj.magic op in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_op_ in let _endpos = _endpos_op_ in let _v : (Asttypes.label) = let _1 = let op = -# 4684 "parsing/parser.mly" +# 4685 "parsing/parser.mly" ( op ) -# 44465 "parsing/parser.ml" +# 44489 "parsing/parser.ml" in -# 4694 "parsing/parser.mly" +# 4695 "parsing/parser.mly" ( op ) -# 44470 "parsing/parser.ml" +# 44494 "parsing/parser.ml" in -# 4681 "parsing/parser.mly" +# 4682 "parsing/parser.mly" ( _1 ) -# 44476 "parsing/parser.ml" +# 44500 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44496,20 +44520,20 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = let op = -# 4685 "parsing/parser.mly" +# 4686 "parsing/parser.mly" ( "mod" ) -# 44502 "parsing/parser.ml" +# 44526 "parsing/parser.ml" in -# 4694 "parsing/parser.mly" +# 4695 "parsing/parser.mly" ( op ) -# 44507 "parsing/parser.ml" +# 44531 "parsing/parser.ml" in -# 4681 "parsing/parser.mly" +# 4682 "parsing/parser.mly" ( _1 ) -# 44513 "parsing/parser.ml" +# 44537 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44530,20 +44554,20 @@ module Tables = struct let op : ( # 992 "parsing/parser.mly" (string) -# 44534 "parsing/parser.ml" +# 44558 "parsing/parser.ml" ) = Obj.magic op in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_op_ in let _endpos = _endpos_op_ in let _v : (Asttypes.label) = let _1 = -# 4695 "parsing/parser.mly" +# 4696 "parsing/parser.mly" ( op ) -# 44542 "parsing/parser.ml" +# 44566 "parsing/parser.ml" in -# 4681 "parsing/parser.mly" +# 4682 "parsing/parser.mly" ( _1 ) -# 44547 "parsing/parser.ml" +# 44571 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44566,14 +44590,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 4696 "parsing/parser.mly" +# 4697 "parsing/parser.mly" ("+") -# 44572 "parsing/parser.ml" +# 44596 "parsing/parser.ml" in -# 4681 "parsing/parser.mly" +# 4682 "parsing/parser.mly" ( _1 ) -# 44577 "parsing/parser.ml" +# 44601 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44596,14 +44620,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 4697 "parsing/parser.mly" +# 4698 "parsing/parser.mly" ("+.") -# 44602 "parsing/parser.ml" +# 44626 "parsing/parser.ml" in -# 4681 "parsing/parser.mly" +# 4682 "parsing/parser.mly" ( _1 ) -# 44607 "parsing/parser.ml" +# 44631 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44626,14 +44650,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 4698 "parsing/parser.mly" +# 4699 "parsing/parser.mly" ("+=") -# 44632 "parsing/parser.ml" +# 44656 "parsing/parser.ml" in -# 4681 "parsing/parser.mly" +# 4682 "parsing/parser.mly" ( _1 ) -# 44637 "parsing/parser.ml" +# 44661 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44656,14 +44680,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 4699 "parsing/parser.mly" +# 4700 "parsing/parser.mly" ("-") -# 44662 "parsing/parser.ml" +# 44686 "parsing/parser.ml" in -# 4681 "parsing/parser.mly" +# 4682 "parsing/parser.mly" ( _1 ) -# 44667 "parsing/parser.ml" +# 44691 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44686,14 +44710,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 4700 "parsing/parser.mly" +# 4701 "parsing/parser.mly" ("-.") -# 44692 "parsing/parser.ml" +# 44716 "parsing/parser.ml" in -# 4681 "parsing/parser.mly" +# 4682 "parsing/parser.mly" ( _1 ) -# 44697 "parsing/parser.ml" +# 44721 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44716,14 +44740,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 4701 "parsing/parser.mly" +# 4702 "parsing/parser.mly" ("*") -# 44722 "parsing/parser.ml" +# 44746 "parsing/parser.ml" in -# 4681 "parsing/parser.mly" +# 4682 "parsing/parser.mly" ( _1 ) -# 44727 "parsing/parser.ml" +# 44751 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44746,14 +44770,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 4702 "parsing/parser.mly" +# 4703 "parsing/parser.mly" ("%") -# 44752 "parsing/parser.ml" +# 44776 "parsing/parser.ml" in -# 4681 "parsing/parser.mly" +# 4682 "parsing/parser.mly" ( _1 ) -# 44757 "parsing/parser.ml" +# 44781 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44776,14 +44800,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 4703 "parsing/parser.mly" +# 4704 "parsing/parser.mly" ("=") -# 44782 "parsing/parser.ml" +# 44806 "parsing/parser.ml" in -# 4681 "parsing/parser.mly" +# 4682 "parsing/parser.mly" ( _1 ) -# 44787 "parsing/parser.ml" +# 44811 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44806,14 +44830,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 4704 "parsing/parser.mly" +# 4705 "parsing/parser.mly" ("<") -# 44812 "parsing/parser.ml" +# 44836 "parsing/parser.ml" in -# 4681 "parsing/parser.mly" +# 4682 "parsing/parser.mly" ( _1 ) -# 44817 "parsing/parser.ml" +# 44841 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44836,14 +44860,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 4705 "parsing/parser.mly" +# 4706 "parsing/parser.mly" (">") -# 44842 "parsing/parser.ml" +# 44866 "parsing/parser.ml" in -# 4681 "parsing/parser.mly" +# 4682 "parsing/parser.mly" ( _1 ) -# 44847 "parsing/parser.ml" +# 44871 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44866,14 +44890,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 4706 "parsing/parser.mly" +# 4707 "parsing/parser.mly" ("or") -# 44872 "parsing/parser.ml" +# 44896 "parsing/parser.ml" in -# 4681 "parsing/parser.mly" +# 4682 "parsing/parser.mly" ( _1 ) -# 44877 "parsing/parser.ml" +# 44901 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44896,14 +44920,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 4707 "parsing/parser.mly" +# 4708 "parsing/parser.mly" ("||") -# 44902 "parsing/parser.ml" +# 44926 "parsing/parser.ml" in -# 4681 "parsing/parser.mly" +# 4682 "parsing/parser.mly" ( _1 ) -# 44907 "parsing/parser.ml" +# 44931 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44926,14 +44950,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 4708 "parsing/parser.mly" +# 4709 "parsing/parser.mly" ("&") -# 44932 "parsing/parser.ml" +# 44956 "parsing/parser.ml" in -# 4681 "parsing/parser.mly" +# 4682 "parsing/parser.mly" ( _1 ) -# 44937 "parsing/parser.ml" +# 44961 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44956,14 +44980,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 4709 "parsing/parser.mly" +# 4710 "parsing/parser.mly" ("&&") -# 44962 "parsing/parser.ml" +# 44986 "parsing/parser.ml" in -# 4681 "parsing/parser.mly" +# 4682 "parsing/parser.mly" ( _1 ) -# 44967 "parsing/parser.ml" +# 44991 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44986,14 +45010,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 4710 "parsing/parser.mly" +# 4711 "parsing/parser.mly" (":=") -# 44992 "parsing/parser.ml" +# 45016 "parsing/parser.ml" in -# 4681 "parsing/parser.mly" +# 4682 "parsing/parser.mly" ( _1 ) -# 44997 "parsing/parser.ml" +# 45021 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45016,9 +45040,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (bool) = -# 4568 "parsing/parser.mly" +# 4569 "parsing/parser.mly" ( true ) -# 45022 "parsing/parser.ml" +# 45046 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45034,9 +45058,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (bool) = -# 4569 "parsing/parser.mly" +# 4570 "parsing/parser.mly" ( false ) -# 45040 "parsing/parser.ml" +# 45064 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45054,7 +45078,7 @@ module Tables = struct let _v : (unit option) = # 114 "" ( None ) -# 45058 "parsing/parser.ml" +# 45082 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45079,7 +45103,7 @@ module Tables = struct let _v : (unit option) = # 116 "" ( Some x ) -# 45083 "parsing/parser.ml" +# 45107 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45097,7 +45121,7 @@ module Tables = struct let _v : (unit option) = # 114 "" ( None ) -# 45101 "parsing/parser.ml" +# 45125 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45122,7 +45146,7 @@ module Tables = struct let _v : (unit option) = # 116 "" ( Some x ) -# 45126 "parsing/parser.ml" +# 45150 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45140,7 +45164,7 @@ module Tables = struct let _v : (Jane_asttypes.jkind_annotation option) = # 114 "" ( None ) -# 45144 "parsing/parser.ml" +# 45168 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45165,7 +45189,7 @@ module Tables = struct let _v : (Jane_asttypes.jkind_annotation option) = # 116 "" ( Some x ) -# 45169 "parsing/parser.ml" +# 45193 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45183,7 +45207,7 @@ module Tables = struct let _v : (string Asttypes.loc option) = # 114 "" ( None ) -# 45187 "parsing/parser.ml" +# 45211 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45210,7 +45234,7 @@ module Tables = struct let _1_inlined1 : ( # 1016 "parsing/parser.mly" (string) -# 45214 "parsing/parser.ml" +# 45238 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -45225,19 +45249,19 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 45229 "parsing/parser.ml" +# 45253 "parsing/parser.ml" in # 183 "" ( x ) -# 45235 "parsing/parser.ml" +# 45259 "parsing/parser.ml" in # 116 "" ( Some x ) -# 45241 "parsing/parser.ml" +# 45265 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45255,7 +45279,7 @@ module Tables = struct let _v : (Parsetree.core_type option) = # 114 "" ( None ) -# 45259 "parsing/parser.ml" +# 45283 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45287,12 +45311,12 @@ module Tables = struct let _v : (Parsetree.core_type option) = let x = # 183 "" ( x ) -# 45291 "parsing/parser.ml" +# 45315 "parsing/parser.ml" in # 116 "" ( Some x ) -# 45296 "parsing/parser.ml" +# 45320 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45310,7 +45334,7 @@ module Tables = struct let _v : (Parsetree.core_type option) = # 114 "" ( None ) -# 45314 "parsing/parser.ml" +# 45338 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45342,12 +45366,12 @@ module Tables = struct let _v : (Parsetree.core_type option) = let x = # 183 "" ( x ) -# 45346 "parsing/parser.ml" +# 45370 "parsing/parser.ml" in # 116 "" ( Some x ) -# 45351 "parsing/parser.ml" +# 45375 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45365,7 +45389,7 @@ module Tables = struct let _v : (Parsetree.expression option) = # 114 "" ( None ) -# 45369 "parsing/parser.ml" +# 45393 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45400,24 +45424,24 @@ module Tables = struct let _1 = # 2574 "parsing/parser.mly" ( _1 ) -# 45404 "parsing/parser.ml" +# 45428 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 45409 "parsing/parser.ml" +# 45433 "parsing/parser.ml" in # 183 "" ( x ) -# 45415 "parsing/parser.ml" +# 45439 "parsing/parser.ml" in # 116 "" ( Some x ) -# 45421 "parsing/parser.ml" +# 45445 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45476,18 +45500,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 45480 "parsing/parser.ml" +# 45504 "parsing/parser.ml" in # 1423 "parsing/parser.mly" ( xs ) -# 45485 "parsing/parser.ml" +# 45509 "parsing/parser.ml" in # 3265 "parsing/parser.mly" ( xs ) -# 45491 "parsing/parser.ml" +# 45515 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in @@ -45496,15 +45520,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 45502 "parsing/parser.ml" +# 45526 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 45508 "parsing/parser.ml" +# 45532 "parsing/parser.ml" in let _endpos = _endpos__3_ in @@ -45517,25 +45541,25 @@ module Tables = struct mkfunction [] None (Pfunction_cases (cases, loc, [])) ~loc:_sloc ~attrs:_2 ) -# 45521 "parsing/parser.ml" +# 45545 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 45527 "parsing/parser.ml" +# 45551 "parsing/parser.ml" in # 183 "" ( x ) -# 45533 "parsing/parser.ml" +# 45557 "parsing/parser.ml" in # 116 "" ( Some x ) -# 45539 "parsing/parser.ml" +# 45563 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45553,7 +45577,7 @@ module Tables = struct let _v : (Parsetree.module_type option) = # 114 "" ( None ) -# 45557 "parsing/parser.ml" +# 45581 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45585,12 +45609,12 @@ module Tables = struct let _v : (Parsetree.module_type option) = let x = # 183 "" ( x ) -# 45589 "parsing/parser.ml" +# 45613 "parsing/parser.ml" in # 116 "" ( Some x ) -# 45594 "parsing/parser.ml" +# 45618 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45608,7 +45632,7 @@ module Tables = struct let _v : (Parsetree.pattern option) = # 114 "" ( None ) -# 45612 "parsing/parser.ml" +# 45636 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45640,12 +45664,12 @@ module Tables = struct let _v : (Parsetree.pattern option) = let x = # 183 "" ( x ) -# 45644 "parsing/parser.ml" +# 45668 "parsing/parser.ml" in # 116 "" ( Some x ) -# 45649 "parsing/parser.ml" +# 45673 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45663,7 +45687,7 @@ module Tables = struct let _v : (Parsetree.expression option) = # 114 "" ( None ) -# 45667 "parsing/parser.ml" +# 45691 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45695,12 +45719,12 @@ module Tables = struct let _v : (Parsetree.expression option) = let x = # 183 "" ( x ) -# 45699 "parsing/parser.ml" +# 45723 "parsing/parser.ml" in # 116 "" ( Some x ) -# 45704 "parsing/parser.ml" +# 45728 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45718,7 +45742,7 @@ module Tables = struct let _v : (N_ary.type_constraint option) = # 114 "" ( None ) -# 45722 "parsing/parser.ml" +# 45746 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45743,7 +45767,7 @@ module Tables = struct let _v : (N_ary.type_constraint option) = # 116 "" ( Some x ) -# 45747 "parsing/parser.ml" +# 45771 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45764,15 +45788,15 @@ module Tables = struct let _1 : ( # 1036 "parsing/parser.mly" (string) -# 45768 "parsing/parser.ml" +# 45792 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4919 "parsing/parser.mly" +# 4920 "parsing/parser.mly" ( _1 ) -# 45776 "parsing/parser.ml" +# 45800 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45806,16 +45830,16 @@ module Tables = struct let _2 : ( # 1016 "parsing/parser.mly" (string) -# 45810 "parsing/parser.ml" +# 45834 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (string) = -# 4920 "parsing/parser.mly" +# 4921 "parsing/parser.mly" ( _2 ) -# 45819 "parsing/parser.ml" +# 45843 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45871,7 +45895,7 @@ module Tables = struct # 1680 "parsing/parser.mly" ( mkmod ~loc:_sloc (Pmod_constraint(me, mty)) ) -# 45875 "parsing/parser.ml" +# 45899 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45926,7 +45950,7 @@ module Tables = struct # 1682 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__5_ ) -# 45930 "parsing/parser.ml" +# 45954 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45965,7 +45989,7 @@ module Tables = struct let _v : (Parsetree.module_expr) = # 1685 "parsing/parser.mly" ( me (* TODO consider reloc *) ) -# 45969 "parsing/parser.ml" +# 45993 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46006,7 +46030,7 @@ module Tables = struct # 1687 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) -# 46010 "parsing/parser.ml" +# 46034 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46062,26 +46086,26 @@ module Tables = struct let _1 = # 2574 "parsing/parser.mly" ( _1 ) -# 46066 "parsing/parser.ml" +# 46090 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 46071 "parsing/parser.ml" +# 46095 "parsing/parser.ml" in # 1704 "parsing/parser.mly" ( e ) -# 46077 "parsing/parser.ml" +# 46101 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 46085 "parsing/parser.ml" +# 46109 "parsing/parser.ml" in let _endpos = _endpos__5_ in @@ -46090,7 +46114,7 @@ module Tables = struct # 1691 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) -# 46094 "parsing/parser.ml" +# 46118 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46170,18 +46194,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 46174 "parsing/parser.ml" +# 46198 "parsing/parser.ml" in # 1423 "parsing/parser.mly" ( xs ) -# 46179 "parsing/parser.ml" +# 46203 "parsing/parser.ml" in # 3265 "parsing/parser.mly" ( xs ) -# 46185 "parsing/parser.ml" +# 46209 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in @@ -46190,15 +46214,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 46196 "parsing/parser.ml" +# 46220 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 46202 "parsing/parser.ml" +# 46226 "parsing/parser.ml" in let _endpos = _endpos__3_ in @@ -46211,27 +46235,27 @@ module Tables = struct mkfunction [] None (Pfunction_cases (cases, loc, [])) ~loc:_sloc ~attrs:_2 ) -# 46215 "parsing/parser.ml" +# 46239 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 46221 "parsing/parser.ml" +# 46245 "parsing/parser.ml" in # 1704 "parsing/parser.mly" ( e ) -# 46227 "parsing/parser.ml" +# 46251 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 46235 "parsing/parser.ml" +# 46259 "parsing/parser.ml" in let _endpos = _endpos__5_ in @@ -46240,7 +46264,7 @@ module Tables = struct # 1691 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) -# 46244 "parsing/parser.ml" +# 46268 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46312,11 +46336,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4543 "parsing/parser.mly" +# 4544 "parsing/parser.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in let descr = Ptyp_package (lid, cstrs) in mktyp ~loc:_sloc ~attrs descr ) -# 46320 "parsing/parser.ml" +# 46344 "parsing/parser.ml" in let _endpos_ty_ = _endpos__1_inlined1_ in @@ -46324,12 +46348,12 @@ module Tables = struct let _1 = # 2574 "parsing/parser.mly" ( _1 ) -# 46328 "parsing/parser.ml" +# 46352 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 46333 "parsing/parser.ml" +# 46357 "parsing/parser.ml" in let _startpos_e_ = _startpos__1_ in @@ -46339,15 +46363,15 @@ module Tables = struct # 1706 "parsing/parser.mly" ( ghexp ~loc:_loc (Pexp_constraint (e, ty)) ) -# 46343 "parsing/parser.ml" +# 46367 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 46351 "parsing/parser.ml" +# 46375 "parsing/parser.ml" in let _endpos = _endpos__5_ in @@ -46356,7 +46380,7 @@ module Tables = struct # 1691 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) -# 46360 "parsing/parser.ml" +# 46384 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46449,11 +46473,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4543 "parsing/parser.mly" +# 4544 "parsing/parser.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in let descr = Ptyp_package (lid, cstrs) in mktyp ~loc:_sloc ~attrs descr ) -# 46457 "parsing/parser.ml" +# 46481 "parsing/parser.ml" in let _endpos_ty_ = _endpos__1_inlined3_ in @@ -46464,18 +46488,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 46468 "parsing/parser.ml" +# 46492 "parsing/parser.ml" in # 1423 "parsing/parser.mly" ( xs ) -# 46473 "parsing/parser.ml" +# 46497 "parsing/parser.ml" in # 3265 "parsing/parser.mly" ( xs ) -# 46479 "parsing/parser.ml" +# 46503 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in @@ -46484,15 +46508,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 46490 "parsing/parser.ml" +# 46514 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 46496 "parsing/parser.ml" +# 46520 "parsing/parser.ml" in let _endpos = _endpos__3_ in @@ -46505,13 +46529,13 @@ module Tables = struct mkfunction [] None (Pfunction_cases (cases, loc, [])) ~loc:_sloc ~attrs:_2 ) -# 46509 "parsing/parser.ml" +# 46533 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 46515 "parsing/parser.ml" +# 46539 "parsing/parser.ml" in let _startpos_e_ = _startpos__1_ in @@ -46521,15 +46545,15 @@ module Tables = struct # 1706 "parsing/parser.mly" ( ghexp ~loc:_loc (Pexp_constraint (e, ty)) ) -# 46525 "parsing/parser.ml" +# 46549 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 46533 "parsing/parser.ml" +# 46557 "parsing/parser.ml" in let _endpos = _endpos__5_ in @@ -46538,7 +46562,7 @@ module Tables = struct # 1691 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) -# 46542 "parsing/parser.ml" +# 46566 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46624,11 +46648,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4543 "parsing/parser.mly" +# 4544 "parsing/parser.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in let descr = Ptyp_package (lid, cstrs) in mktyp ~loc:_sloc ~attrs descr ) -# 46632 "parsing/parser.ml" +# 46656 "parsing/parser.ml" in let _endpos_ty2_ = _endpos__1_inlined2_ in @@ -46638,23 +46662,23 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4543 "parsing/parser.mly" +# 4544 "parsing/parser.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in let descr = Ptyp_package (lid, cstrs) in mktyp ~loc:_sloc ~attrs descr ) -# 46646 "parsing/parser.ml" +# 46670 "parsing/parser.ml" in let e = let _1 = # 2574 "parsing/parser.mly" ( _1 ) -# 46653 "parsing/parser.ml" +# 46677 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 46658 "parsing/parser.ml" +# 46682 "parsing/parser.ml" in let _startpos_e_ = _startpos__1_ in @@ -46664,15 +46688,15 @@ module Tables = struct # 1708 "parsing/parser.mly" ( ghexp ~loc:_loc (Pexp_coerce (e, Some ty1, ty2)) ) -# 46668 "parsing/parser.ml" +# 46692 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 46676 "parsing/parser.ml" +# 46700 "parsing/parser.ml" in let _endpos = _endpos__5_ in @@ -46681,7 +46705,7 @@ module Tables = struct # 1691 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) -# 46685 "parsing/parser.ml" +# 46709 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46788,11 +46812,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4543 "parsing/parser.mly" +# 4544 "parsing/parser.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in let descr = Ptyp_package (lid, cstrs) in mktyp ~loc:_sloc ~attrs descr ) -# 46796 "parsing/parser.ml" +# 46820 "parsing/parser.ml" in let _endpos_ty2_ = _endpos__1_inlined4_ in @@ -46802,11 +46826,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4543 "parsing/parser.mly" +# 4544 "parsing/parser.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in let descr = Ptyp_package (lid, cstrs) in mktyp ~loc:_sloc ~attrs descr ) -# 46810 "parsing/parser.ml" +# 46834 "parsing/parser.ml" in let e = @@ -46816,18 +46840,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 46820 "parsing/parser.ml" +# 46844 "parsing/parser.ml" in # 1423 "parsing/parser.mly" ( xs ) -# 46825 "parsing/parser.ml" +# 46849 "parsing/parser.ml" in # 3265 "parsing/parser.mly" ( xs ) -# 46831 "parsing/parser.ml" +# 46855 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in @@ -46836,15 +46860,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 46842 "parsing/parser.ml" +# 46866 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 46848 "parsing/parser.ml" +# 46872 "parsing/parser.ml" in let _endpos = _endpos__3_ in @@ -46857,13 +46881,13 @@ module Tables = struct mkfunction [] None (Pfunction_cases (cases, loc, [])) ~loc:_sloc ~attrs:_2 ) -# 46861 "parsing/parser.ml" +# 46885 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 46867 "parsing/parser.ml" +# 46891 "parsing/parser.ml" in let _startpos_e_ = _startpos__1_ in @@ -46873,15 +46897,15 @@ module Tables = struct # 1708 "parsing/parser.mly" ( ghexp ~loc:_loc (Pexp_coerce (e, Some ty1, ty2)) ) -# 46877 "parsing/parser.ml" +# 46901 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 46885 "parsing/parser.ml" +# 46909 "parsing/parser.ml" in let _endpos = _endpos__5_ in @@ -46890,7 +46914,7 @@ module Tables = struct # 1691 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) -# 46894 "parsing/parser.ml" +# 46918 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46962,11 +46986,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4543 "parsing/parser.mly" +# 4544 "parsing/parser.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in let descr = Ptyp_package (lid, cstrs) in mktyp ~loc:_sloc ~attrs descr ) -# 46970 "parsing/parser.ml" +# 46994 "parsing/parser.ml" in let _endpos_ty2_ = _endpos__1_inlined1_ in @@ -46974,12 +46998,12 @@ module Tables = struct let _1 = # 2574 "parsing/parser.mly" ( _1 ) -# 46978 "parsing/parser.ml" +# 47002 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 46983 "parsing/parser.ml" +# 47007 "parsing/parser.ml" in let _startpos_e_ = _startpos__1_ in @@ -46989,15 +47013,15 @@ module Tables = struct # 1710 "parsing/parser.mly" ( ghexp ~loc:_loc (Pexp_coerce (e, None, ty2)) ) -# 46993 "parsing/parser.ml" +# 47017 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 47001 "parsing/parser.ml" +# 47025 "parsing/parser.ml" in let _endpos = _endpos__5_ in @@ -47006,7 +47030,7 @@ module Tables = struct # 1691 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) -# 47010 "parsing/parser.ml" +# 47034 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47099,11 +47123,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4543 "parsing/parser.mly" +# 4544 "parsing/parser.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in let descr = Ptyp_package (lid, cstrs) in mktyp ~loc:_sloc ~attrs descr ) -# 47107 "parsing/parser.ml" +# 47131 "parsing/parser.ml" in let _endpos_ty2_ = _endpos__1_inlined3_ in @@ -47114,18 +47138,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 47118 "parsing/parser.ml" +# 47142 "parsing/parser.ml" in # 1423 "parsing/parser.mly" ( xs ) -# 47123 "parsing/parser.ml" +# 47147 "parsing/parser.ml" in # 3265 "parsing/parser.mly" ( xs ) -# 47129 "parsing/parser.ml" +# 47153 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in @@ -47134,15 +47158,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 47140 "parsing/parser.ml" +# 47164 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 47146 "parsing/parser.ml" +# 47170 "parsing/parser.ml" in let _endpos = _endpos__3_ in @@ -47155,13 +47179,13 @@ module Tables = struct mkfunction [] None (Pfunction_cases (cases, loc, [])) ~loc:_sloc ~attrs:_2 ) -# 47159 "parsing/parser.ml" +# 47183 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 47165 "parsing/parser.ml" +# 47189 "parsing/parser.ml" in let _startpos_e_ = _startpos__1_ in @@ -47171,15 +47195,15 @@ module Tables = struct # 1710 "parsing/parser.mly" ( ghexp ~loc:_loc (Pexp_coerce (e, None, ty2)) ) -# 47175 "parsing/parser.ml" +# 47199 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 47183 "parsing/parser.ml" +# 47207 "parsing/parser.ml" in let _endpos = _endpos__5_ in @@ -47188,7 +47212,7 @@ module Tables = struct # 1691 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) -# 47192 "parsing/parser.ml" +# 47216 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47250,20 +47274,20 @@ module Tables = struct let _1 = # 2574 "parsing/parser.mly" ( _1 ) -# 47254 "parsing/parser.ml" +# 47278 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 47259 "parsing/parser.ml" +# 47283 "parsing/parser.ml" in let _3 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 47267 "parsing/parser.ml" +# 47291 "parsing/parser.ml" in let _loc__6_ = (_startpos__6_, _endpos__6_) in @@ -47271,7 +47295,7 @@ module Tables = struct # 1693 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__6_ ) -# 47275 "parsing/parser.ml" +# 47299 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47357,18 +47381,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 47361 "parsing/parser.ml" +# 47385 "parsing/parser.ml" in # 1423 "parsing/parser.mly" ( xs ) -# 47366 "parsing/parser.ml" +# 47390 "parsing/parser.ml" in # 3265 "parsing/parser.mly" ( xs ) -# 47372 "parsing/parser.ml" +# 47396 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in @@ -47377,15 +47401,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 47383 "parsing/parser.ml" +# 47407 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 47389 "parsing/parser.ml" +# 47413 "parsing/parser.ml" in let _endpos = _endpos__3_ in @@ -47398,21 +47422,21 @@ module Tables = struct mkfunction [] None (Pfunction_cases (cases, loc, [])) ~loc:_sloc ~attrs:_2 ) -# 47402 "parsing/parser.ml" +# 47426 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 47408 "parsing/parser.ml" +# 47432 "parsing/parser.ml" in let _3 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 47416 "parsing/parser.ml" +# 47440 "parsing/parser.ml" in let _loc__6_ = (_startpos__6_, _endpos__6_) in @@ -47420,7 +47444,7 @@ module Tables = struct # 1693 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__6_ ) -# 47424 "parsing/parser.ml" +# 47448 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47482,20 +47506,20 @@ module Tables = struct let _1 = # 2574 "parsing/parser.mly" ( _1 ) -# 47486 "parsing/parser.ml" +# 47510 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 47491 "parsing/parser.ml" +# 47515 "parsing/parser.ml" in let _3 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 47499 "parsing/parser.ml" +# 47523 "parsing/parser.ml" in let _loc__6_ = (_startpos__6_, _endpos__6_) in @@ -47503,7 +47527,7 @@ module Tables = struct # 1695 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__6_ ) -# 47507 "parsing/parser.ml" +# 47531 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47589,18 +47613,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 47593 "parsing/parser.ml" +# 47617 "parsing/parser.ml" in # 1423 "parsing/parser.mly" ( xs ) -# 47598 "parsing/parser.ml" +# 47622 "parsing/parser.ml" in # 3265 "parsing/parser.mly" ( xs ) -# 47604 "parsing/parser.ml" +# 47628 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in @@ -47609,15 +47633,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 47615 "parsing/parser.ml" +# 47639 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 47621 "parsing/parser.ml" +# 47645 "parsing/parser.ml" in let _endpos = _endpos__3_ in @@ -47630,21 +47654,21 @@ module Tables = struct mkfunction [] None (Pfunction_cases (cases, loc, [])) ~loc:_sloc ~attrs:_2 ) -# 47634 "parsing/parser.ml" +# 47658 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 47640 "parsing/parser.ml" +# 47664 "parsing/parser.ml" in let _3 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 47648 "parsing/parser.ml" +# 47672 "parsing/parser.ml" in let _loc__6_ = (_startpos__6_, _endpos__6_) in @@ -47652,7 +47676,7 @@ module Tables = struct # 1695 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__6_ ) -# 47656 "parsing/parser.ml" +# 47680 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47707,20 +47731,20 @@ module Tables = struct let _1 = # 2574 "parsing/parser.mly" ( _1 ) -# 47711 "parsing/parser.ml" +# 47735 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 47716 "parsing/parser.ml" +# 47740 "parsing/parser.ml" in let _3 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 47724 "parsing/parser.ml" +# 47748 "parsing/parser.ml" in let _loc__5_ = (_startpos__5_, _endpos__5_) in @@ -47728,7 +47752,7 @@ module Tables = struct # 1697 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__5_ ) -# 47732 "parsing/parser.ml" +# 47756 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47807,18 +47831,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 47811 "parsing/parser.ml" +# 47835 "parsing/parser.ml" in # 1423 "parsing/parser.mly" ( xs ) -# 47816 "parsing/parser.ml" +# 47840 "parsing/parser.ml" in # 3265 "parsing/parser.mly" ( xs ) -# 47822 "parsing/parser.ml" +# 47846 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in @@ -47827,15 +47851,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 47833 "parsing/parser.ml" +# 47857 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 47839 "parsing/parser.ml" +# 47863 "parsing/parser.ml" in let _endpos = _endpos__3_ in @@ -47848,21 +47872,21 @@ module Tables = struct mkfunction [] None (Pfunction_cases (cases, loc, [])) ~loc:_sloc ~attrs:_2 ) -# 47852 "parsing/parser.ml" +# 47876 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 47858 "parsing/parser.ml" +# 47882 "parsing/parser.ml" in let _3 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 47866 "parsing/parser.ml" +# 47890 "parsing/parser.ml" in let _loc__5_ = (_startpos__5_, _endpos__5_) in @@ -47870,7 +47894,7 @@ module Tables = struct # 1697 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__5_ ) -# 47874 "parsing/parser.ml" +# 47898 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47893,9 +47917,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) = -# 3917 "parsing/parser.mly" +# 3918 "parsing/parser.mly" ( _1 ) -# 47899 "parsing/parser.ml" +# 47923 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47957,31 +47981,31 @@ module Tables = struct let attrs = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 47963 "parsing/parser.ml" +# 47987 "parsing/parser.ml" in let name = -# 3938 "parsing/parser.mly" +# 3939 "parsing/parser.mly" ( Some _2 ) -# 47969 "parsing/parser.ml" +# 47993 "parsing/parser.ml" in let _startpos_name_ = _startpos__1_ in let _endpos = _endpos_jkind_ in let _symbolstartpos = _startpos_name_ in let _sloc = (_symbolstartpos, _endpos) in -# 3912 "parsing/parser.mly" +# 3913 "parsing/parser.mly" ( Jane_syntax.Core_type.core_type_of ~loc:(make_loc _sloc) ~attrs (Jtyp_layout (Ltyp_var { name; jkind })) ) -# 47979 "parsing/parser.ml" +# 48003 "parsing/parser.ml" in -# 3919 "parsing/parser.mly" +# 3920 "parsing/parser.mly" ( _2, _1 ) -# 47985 "parsing/parser.ml" +# 48009 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48036,31 +48060,31 @@ module Tables = struct let attrs = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 48042 "parsing/parser.ml" +# 48066 "parsing/parser.ml" in let name = -# 3940 "parsing/parser.mly" +# 3941 "parsing/parser.mly" ( None ) -# 48048 "parsing/parser.ml" +# 48072 "parsing/parser.ml" in let _startpos_name_ = _startpos__1_ in let _endpos = _endpos_jkind_ in let _symbolstartpos = _startpos_name_ in let _sloc = (_symbolstartpos, _endpos) in -# 3912 "parsing/parser.mly" +# 3913 "parsing/parser.mly" ( Jane_syntax.Core_type.core_type_of ~loc:(make_loc _sloc) ~attrs (Jtyp_layout (Ltyp_var { name; jkind })) ) -# 48058 "parsing/parser.ml" +# 48082 "parsing/parser.ml" in -# 3919 "parsing/parser.mly" +# 3920 "parsing/parser.mly" ( _2, _1 ) -# 48064 "parsing/parser.ml" +# 48088 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48092,7 +48116,7 @@ module Tables = struct let _v : (Longident.t) = # 1598 "parsing/parser.mly" ( _1 ) -# 48096 "parsing/parser.ml" +# 48120 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48124,7 +48148,7 @@ module Tables = struct let _v : (Longident.t) = # 1583 "parsing/parser.mly" ( _1 ) -# 48128 "parsing/parser.ml" +# 48152 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48156,7 +48180,7 @@ module Tables = struct let _v : (Parsetree.core_type) = # 1558 "parsing/parser.mly" ( _1 ) -# 48160 "parsing/parser.ml" +# 48184 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48188,7 +48212,7 @@ module Tables = struct let _v : (Parsetree.expression) = # 1563 "parsing/parser.mly" ( _1 ) -# 48192 "parsing/parser.ml" +# 48216 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48220,7 +48244,7 @@ module Tables = struct let _v : (Longident.t) = # 1588 "parsing/parser.mly" ( _1 ) -# 48224 "parsing/parser.ml" +# 48248 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48252,7 +48276,7 @@ module Tables = struct let _v : (Longident.t) = # 1593 "parsing/parser.mly" ( _1 ) -# 48256 "parsing/parser.ml" +# 48280 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48284,7 +48308,7 @@ module Tables = struct let _v : (Parsetree.module_expr) = # 1553 "parsing/parser.mly" ( _1 ) -# 48288 "parsing/parser.ml" +# 48312 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48316,7 +48340,7 @@ module Tables = struct let _v : (Parsetree.module_type) = # 1548 "parsing/parser.mly" ( _1 ) -# 48320 "parsing/parser.ml" +# 48344 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48348,7 +48372,7 @@ module Tables = struct let _v : (Longident.t) = # 1573 "parsing/parser.mly" ( _1 ) -# 48352 "parsing/parser.ml" +# 48376 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48380,7 +48404,7 @@ module Tables = struct let _v : (Parsetree.pattern) = # 1568 "parsing/parser.mly" ( _1 ) -# 48384 "parsing/parser.ml" +# 48408 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48412,7 +48436,7 @@ module Tables = struct let _v : (Longident.t) = # 1578 "parsing/parser.mly" ( _1 ) -# 48416 "parsing/parser.ml" +# 48440 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48456,13 +48480,13 @@ module Tables = struct # 3496 "parsing/parser.mly" ( mkpat_cons ~loc:_sloc _loc__2_ (ghpat ~loc:_sloc (Ppat_tuple[_1;_3])) ) -# 48460 "parsing/parser.ml" +# 48484 "parsing/parser.ml" in # 3484 "parsing/parser.mly" ( _1 ) -# 48466 "parsing/parser.ml" +# 48490 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48494,12 +48518,12 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = # 3498 "parsing/parser.mly" ( Pat.attr _1 _2 ) -# 48498 "parsing/parser.ml" +# 48522 "parsing/parser.ml" in # 3484 "parsing/parser.mly" ( _1 ) -# 48503 "parsing/parser.ml" +# 48527 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48524,12 +48548,12 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = # 3500 "parsing/parser.mly" ( _1 ) -# 48528 "parsing/parser.ml" +# 48552 "parsing/parser.ml" in # 3484 "parsing/parser.mly" ( _1 ) -# 48533 "parsing/parser.ml" +# 48557 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48576,13 +48600,13 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 48580 "parsing/parser.ml" +# 48604 "parsing/parser.ml" in # 3503 "parsing/parser.mly" ( Ppat_alias(_1, _3) ) -# 48586 "parsing/parser.ml" +# 48610 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -48592,19 +48616,19 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 48596 "parsing/parser.ml" +# 48620 "parsing/parser.ml" in # 3512 "parsing/parser.mly" ( _1 ) -# 48602 "parsing/parser.ml" +# 48626 "parsing/parser.ml" in # 3484 "parsing/parser.mly" ( _1 ) -# 48608 "parsing/parser.ml" +# 48632 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48647,7 +48671,7 @@ module Tables = struct # 3505 "parsing/parser.mly" ( expecting _loc__3_ "identifier" ) -# 48651 "parsing/parser.ml" +# 48675 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -48657,19 +48681,19 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 48661 "parsing/parser.ml" +# 48685 "parsing/parser.ml" in # 3512 "parsing/parser.mly" ( _1 ) -# 48667 "parsing/parser.ml" +# 48691 "parsing/parser.ml" in # 3484 "parsing/parser.mly" ( _1 ) -# 48673 "parsing/parser.ml" +# 48697 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48712,7 +48736,7 @@ module Tables = struct # 3507 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) -# 48716 "parsing/parser.ml" +# 48740 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -48722,19 +48746,19 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 48726 "parsing/parser.ml" +# 48750 "parsing/parser.ml" in # 3512 "parsing/parser.mly" ( _1 ) -# 48732 "parsing/parser.ml" +# 48756 "parsing/parser.ml" in # 3484 "parsing/parser.mly" ( _1 ) -# 48738 "parsing/parser.ml" +# 48762 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48775,7 +48799,7 @@ module Tables = struct let _1 = # 3509 "parsing/parser.mly" ( Ppat_or(_1, _3) ) -# 48779 "parsing/parser.ml" +# 48803 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in @@ -48784,19 +48808,19 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 48788 "parsing/parser.ml" +# 48812 "parsing/parser.ml" in # 3512 "parsing/parser.mly" ( _1 ) -# 48794 "parsing/parser.ml" +# 48818 "parsing/parser.ml" in # 3484 "parsing/parser.mly" ( _1 ) -# 48800 "parsing/parser.ml" +# 48824 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48839,7 +48863,7 @@ module Tables = struct # 3511 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) -# 48843 "parsing/parser.ml" +# 48867 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -48849,19 +48873,19 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 48853 "parsing/parser.ml" +# 48877 "parsing/parser.ml" in # 3512 "parsing/parser.mly" ( _1 ) -# 48859 "parsing/parser.ml" +# 48883 "parsing/parser.ml" in # 3484 "parsing/parser.mly" ( _1 ) -# 48865 "parsing/parser.ml" +# 48889 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48892,13 +48916,13 @@ module Tables = struct ( let closed, pats = _1 in ppat_ltuple _sloc (List.rev pats) closed ) -# 48896 "parsing/parser.ml" +# 48920 "parsing/parser.ml" in # 3484 "parsing/parser.mly" ( _1 ) -# 48902 "parsing/parser.ml" +# 48926 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48946,15 +48970,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 48952 "parsing/parser.ml" +# 48976 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 48958 "parsing/parser.ml" +# 48982 "parsing/parser.ml" in let _endpos = _endpos__3_ in @@ -48963,7 +48987,7 @@ module Tables = struct # 3486 "parsing/parser.mly" ( mkpat_attrs ~loc:_sloc (Ppat_exception _3) _2) -# 48967 "parsing/parser.ml" +# 48991 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48986,9 +49010,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = -# 3575 "parsing/parser.mly" +# 3576 "parsing/parser.mly" ( _1 ) -# 48992 "parsing/parser.ml" +# 49016 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49026,13 +49050,13 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 49030 "parsing/parser.ml" +# 49054 "parsing/parser.ml" in -# 3578 "parsing/parser.mly" +# 3579 "parsing/parser.mly" ( Ppat_construct(_1, Some ([], _2)) ) -# 49036 "parsing/parser.ml" +# 49060 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -49042,13 +49066,13 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 49046 "parsing/parser.ml" +# 49070 "parsing/parser.ml" in -# 3584 "parsing/parser.mly" +# 3585 "parsing/parser.mly" ( _1 ) -# 49052 "parsing/parser.ml" +# 49076 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49110,7 +49134,7 @@ module Tables = struct let newtypes = # 3076 "parsing/parser.mly" ( xs ) -# 49114 "parsing/parser.ml" +# 49138 "parsing/parser.ml" in let constr = let _endpos = _endpos__1_ in @@ -49119,13 +49143,13 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 49123 "parsing/parser.ml" +# 49147 "parsing/parser.ml" in -# 3581 "parsing/parser.mly" +# 3582 "parsing/parser.mly" ( Ppat_construct(constr, Some (newtypes, pat)) ) -# 49129 "parsing/parser.ml" +# 49153 "parsing/parser.ml" in let _endpos__1_ = _endpos_pat_ in @@ -49135,13 +49159,13 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 49139 "parsing/parser.ml" +# 49163 "parsing/parser.ml" in -# 3584 "parsing/parser.mly" +# 3585 "parsing/parser.mly" ( _1 ) -# 49145 "parsing/parser.ml" +# 49169 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49172,9 +49196,9 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 3583 "parsing/parser.mly" +# 3584 "parsing/parser.mly" ( Ppat_variant(_1, Some _2) ) -# 49178 "parsing/parser.ml" +# 49202 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in let _endpos = _endpos__1_ in @@ -49183,13 +49207,13 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 49187 "parsing/parser.ml" +# 49211 "parsing/parser.ml" in -# 3584 "parsing/parser.mly" +# 3585 "parsing/parser.mly" ( _1 ) -# 49193 "parsing/parser.ml" +# 49217 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49237,24 +49261,24 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 49243 "parsing/parser.ml" +# 49267 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 49249 "parsing/parser.ml" +# 49273 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3586 "parsing/parser.mly" +# 3587 "parsing/parser.mly" ( mkpat_attrs ~loc:_sloc (Ppat_lazy _3) _2) -# 49258 "parsing/parser.ml" +# 49282 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49298,13 +49322,13 @@ module Tables = struct # 3496 "parsing/parser.mly" ( mkpat_cons ~loc:_sloc _loc__2_ (ghpat ~loc:_sloc (Ppat_tuple[_1;_3])) ) -# 49302 "parsing/parser.ml" +# 49326 "parsing/parser.ml" in # 3491 "parsing/parser.mly" ( _1 ) -# 49308 "parsing/parser.ml" +# 49332 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49336,12 +49360,12 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = # 3498 "parsing/parser.mly" ( Pat.attr _1 _2 ) -# 49340 "parsing/parser.ml" +# 49364 "parsing/parser.ml" in # 3491 "parsing/parser.mly" ( _1 ) -# 49345 "parsing/parser.ml" +# 49369 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49366,12 +49390,12 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = # 3500 "parsing/parser.mly" ( _1 ) -# 49370 "parsing/parser.ml" +# 49394 "parsing/parser.ml" in # 3491 "parsing/parser.mly" ( _1 ) -# 49375 "parsing/parser.ml" +# 49399 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49418,13 +49442,13 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 49422 "parsing/parser.ml" +# 49446 "parsing/parser.ml" in # 3503 "parsing/parser.mly" ( Ppat_alias(_1, _3) ) -# 49428 "parsing/parser.ml" +# 49452 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -49434,19 +49458,19 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 49438 "parsing/parser.ml" +# 49462 "parsing/parser.ml" in # 3512 "parsing/parser.mly" ( _1 ) -# 49444 "parsing/parser.ml" +# 49468 "parsing/parser.ml" in # 3491 "parsing/parser.mly" ( _1 ) -# 49450 "parsing/parser.ml" +# 49474 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49489,7 +49513,7 @@ module Tables = struct # 3505 "parsing/parser.mly" ( expecting _loc__3_ "identifier" ) -# 49493 "parsing/parser.ml" +# 49517 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -49499,19 +49523,19 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 49503 "parsing/parser.ml" +# 49527 "parsing/parser.ml" in # 3512 "parsing/parser.mly" ( _1 ) -# 49509 "parsing/parser.ml" +# 49533 "parsing/parser.ml" in # 3491 "parsing/parser.mly" ( _1 ) -# 49515 "parsing/parser.ml" +# 49539 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49554,7 +49578,7 @@ module Tables = struct # 3507 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) -# 49558 "parsing/parser.ml" +# 49582 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -49564,19 +49588,19 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 49568 "parsing/parser.ml" +# 49592 "parsing/parser.ml" in # 3512 "parsing/parser.mly" ( _1 ) -# 49574 "parsing/parser.ml" +# 49598 "parsing/parser.ml" in # 3491 "parsing/parser.mly" ( _1 ) -# 49580 "parsing/parser.ml" +# 49604 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49617,7 +49641,7 @@ module Tables = struct let _1 = # 3509 "parsing/parser.mly" ( Ppat_or(_1, _3) ) -# 49621 "parsing/parser.ml" +# 49645 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in @@ -49626,19 +49650,19 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 49630 "parsing/parser.ml" +# 49654 "parsing/parser.ml" in # 3512 "parsing/parser.mly" ( _1 ) -# 49636 "parsing/parser.ml" +# 49660 "parsing/parser.ml" in # 3491 "parsing/parser.mly" ( _1 ) -# 49642 "parsing/parser.ml" +# 49666 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49681,7 +49705,7 @@ module Tables = struct # 3511 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) -# 49685 "parsing/parser.ml" +# 49709 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -49691,19 +49715,19 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 49695 "parsing/parser.ml" +# 49719 "parsing/parser.ml" in # 3512 "parsing/parser.mly" ( _1 ) -# 49701 "parsing/parser.ml" +# 49725 "parsing/parser.ml" in # 3491 "parsing/parser.mly" ( _1 ) -# 49707 "parsing/parser.ml" +# 49731 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49734,13 +49758,13 @@ module Tables = struct ( let closed, pats = _1 in ppat_ltuple _sloc (List.rev pats) closed ) -# 49738 "parsing/parser.ml" +# 49762 "parsing/parser.ml" in # 3491 "parsing/parser.mly" ( _1 ) -# 49744 "parsing/parser.ml" +# 49768 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49761,7 +49785,7 @@ module Tables = struct let _1 : ( # 1016 "parsing/parser.mly" (string) -# 49765 "parsing/parser.ml" +# 49789 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -49775,13 +49799,13 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 49779 "parsing/parser.ml" +# 49803 "parsing/parser.ml" in # 2649 "parsing/parser.mly" ( Ppat_var _1 ) -# 49785 "parsing/parser.ml" +# 49809 "parsing/parser.ml" in let _endpos = _endpos__1_ in @@ -49790,13 +49814,13 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 49794 "parsing/parser.ml" +# 49818 "parsing/parser.ml" in # 2651 "parsing/parser.mly" ( _1 ) -# 49800 "parsing/parser.ml" +# 49824 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49822,7 +49846,7 @@ module Tables = struct let _1 = # 2650 "parsing/parser.mly" ( Ppat_any ) -# 49826 "parsing/parser.ml" +# 49850 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -49830,13 +49854,13 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 49834 "parsing/parser.ml" +# 49858 "parsing/parser.ml" in # 2651 "parsing/parser.mly" ( _1 ) -# 49840 "parsing/parser.ml" +# 49864 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49859,9 +49883,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.payload) = -# 5032 "parsing/parser.mly" +# 5033 "parsing/parser.mly" ( PStr _1 ) -# 49865 "parsing/parser.ml" +# 49889 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49891,9 +49915,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.payload) = -# 5033 "parsing/parser.mly" +# 5034 "parsing/parser.mly" ( PSig _2 ) -# 49897 "parsing/parser.ml" +# 49921 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49923,9 +49947,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.payload) = -# 5034 "parsing/parser.mly" +# 5035 "parsing/parser.mly" ( PTyp _2 ) -# 49929 "parsing/parser.ml" +# 49953 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49955,9 +49979,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.payload) = -# 5035 "parsing/parser.mly" +# 5036 "parsing/parser.mly" ( PPat (_2, None) ) -# 49961 "parsing/parser.ml" +# 49985 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50001,9 +50025,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Parsetree.payload) = -# 5036 "parsing/parser.mly" +# 5037 "parsing/parser.mly" ( PPat (_2, Some _4) ) -# 50007 "parsing/parser.ml" +# 50031 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50026,9 +50050,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = -# 4205 "parsing/parser.mly" +# 4206 "parsing/parser.mly" ( _1 ) -# 50032 "parsing/parser.ml" +# 50056 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50070,24 +50094,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 50074 "parsing/parser.ml" +# 50098 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 50079 "parsing/parser.ml" +# 50103 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 50085 "parsing/parser.ml" +# 50109 "parsing/parser.ml" in -# 4201 "parsing/parser.mly" +# 4202 "parsing/parser.mly" ( (_1, _3) ) -# 50091 "parsing/parser.ml" +# 50115 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__3_, _startpos_xs_) in @@ -50095,11 +50119,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4207 "parsing/parser.mly" +# 4208 "parsing/parser.mly" ( let bound_vars, inner_type = _1 in Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) (Ltyp_poly { bound_vars; inner_type }) ) -# 50103 "parsing/parser.ml" +# 50127 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50122,14 +50146,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = let _1 = -# 4238 "parsing/parser.mly" +# 4239 "parsing/parser.mly" ( _1 ) -# 50128 "parsing/parser.ml" +# 50152 "parsing/parser.ml" in -# 4205 "parsing/parser.mly" +# 4206 "parsing/parser.mly" ( _1 ) -# 50133 "parsing/parser.ml" +# 50157 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50167,33 +50191,33 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = let _1 = let _3 = -# 4238 "parsing/parser.mly" +# 4239 "parsing/parser.mly" ( _1 ) -# 50173 "parsing/parser.ml" +# 50197 "parsing/parser.ml" in let _1 = let _1 = let xs = # 253 "" ( List.rev xs ) -# 50180 "parsing/parser.ml" +# 50204 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 50185 "parsing/parser.ml" +# 50209 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 50191 "parsing/parser.ml" +# 50215 "parsing/parser.ml" in -# 4201 "parsing/parser.mly" +# 4202 "parsing/parser.mly" ( (_1, _3) ) -# 50197 "parsing/parser.ml" +# 50221 "parsing/parser.ml" in let _startpos__1_ = _startpos_xs_ in @@ -50201,11 +50225,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4207 "parsing/parser.mly" +# 4208 "parsing/parser.mly" ( let bound_vars, inner_type = _1 in Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) (Ltyp_poly { bound_vars; inner_type }) ) -# 50209 "parsing/parser.ml" +# 50233 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50252,9 +50276,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4993 "parsing/parser.mly" +# 4994 "parsing/parser.mly" ( mk_attr ~loc:(make_loc _sloc) _2 _3 ) -# 50258 "parsing/parser.ml" +# 50282 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50335,9 +50359,9 @@ module Tables = struct let _v : (Parsetree.value_description * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined3 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 50341 "parsing/parser.ml" +# 50365 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -50349,28 +50373,28 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 50353 "parsing/parser.ml" +# 50377 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 50361 "parsing/parser.ml" +# 50385 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3740 "parsing/parser.mly" +# 3741 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in let docs = symbol_docs _sloc in Val.mk id ty ~prim ~attrs ~loc ~docs, ext ) -# 50374 "parsing/parser.ml" +# 50398 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50386,14 +50410,14 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.private_flag) = let _1 = -# 4848 "parsing/parser.mly" +# 4849 "parsing/parser.mly" ( Public ) -# 50392 "parsing/parser.ml" +# 50416 "parsing/parser.ml" in -# 4845 "parsing/parser.mly" +# 4846 "parsing/parser.mly" ( _1 ) -# 50397 "parsing/parser.ml" +# 50421 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50416,14 +50440,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.private_flag) = let _1 = -# 4849 "parsing/parser.mly" +# 4850 "parsing/parser.mly" ( Private ) -# 50422 "parsing/parser.ml" +# 50446 "parsing/parser.ml" in -# 4845 "parsing/parser.mly" +# 4846 "parsing/parser.mly" ( _1 ) -# 50427 "parsing/parser.ml" +# 50451 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50439,9 +50463,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = -# 4883 "parsing/parser.mly" +# 4884 "parsing/parser.mly" ( Public, Concrete ) -# 50445 "parsing/parser.ml" +# 50469 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50464,9 +50488,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = -# 4884 "parsing/parser.mly" +# 4885 "parsing/parser.mly" ( Private, Concrete ) -# 50470 "parsing/parser.ml" +# 50494 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50489,9 +50513,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = -# 4885 "parsing/parser.mly" +# 4886 "parsing/parser.mly" ( Public, Virtual ) -# 50495 "parsing/parser.ml" +# 50519 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50521,9 +50545,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = -# 4886 "parsing/parser.mly" +# 4887 "parsing/parser.mly" ( Private, Virtual ) -# 50527 "parsing/parser.ml" +# 50551 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50553,9 +50577,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = -# 4887 "parsing/parser.mly" +# 4888 "parsing/parser.mly" ( Private, Virtual ) -# 50559 "parsing/parser.ml" +# 50583 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50571,9 +50595,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.rec_flag) = -# 4826 "parsing/parser.mly" +# 4827 "parsing/parser.mly" ( Nonrecursive ) -# 50577 "parsing/parser.ml" +# 50601 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50596,9 +50620,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.rec_flag) = -# 4827 "parsing/parser.mly" +# 4828 "parsing/parser.mly" ( Recursive ) -# 50602 "parsing/parser.ml" +# 50626 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50624,12 +50648,12 @@ module Tables = struct (Longident.t Asttypes.loc * Parsetree.expression) list) = let eo = # 124 "" ( None ) -# 50628 "parsing/parser.ml" +# 50652 "parsing/parser.ml" in # 3392 "parsing/parser.mly" ( eo, fields ) -# 50633 "parsing/parser.ml" +# 50657 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50670,18 +50694,18 @@ module Tables = struct let x = # 191 "" ( x ) -# 50674 "parsing/parser.ml" +# 50698 "parsing/parser.ml" in # 126 "" ( Some x ) -# 50679 "parsing/parser.ml" +# 50703 "parsing/parser.ml" in # 3392 "parsing/parser.mly" ( eo, fields ) -# 50685 "parsing/parser.ml" +# 50709 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50707,18 +50731,18 @@ module Tables = struct let _startpos = _startpos_d_ in let _endpos = _endpos_d_ in let _v : (Parsetree.constructor_declaration list) = let x = -# 3990 "parsing/parser.mly" +# 3991 "parsing/parser.mly" ( let cid, vars_jkinds, args, res, attrs, loc, info = d in Jane_syntax.Layouts.constructor_declaration_of cid ~vars_jkinds ~args ~res ~attrs ~loc ~info ) -# 50717 "parsing/parser.ml" +# 50741 "parsing/parser.ml" in # 1440 "parsing/parser.mly" ( [x] ) -# 50722 "parsing/parser.ml" +# 50746 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50744,18 +50768,18 @@ module Tables = struct let _startpos = _startpos_d_ in let _endpos = _endpos_d_ in let _v : (Parsetree.constructor_declaration list) = let x = -# 3990 "parsing/parser.mly" +# 3991 "parsing/parser.mly" ( let cid, vars_jkinds, args, res, attrs, loc, info = d in Jane_syntax.Layouts.constructor_declaration_of cid ~vars_jkinds ~args ~res ~attrs ~loc ~info ) -# 50754 "parsing/parser.ml" +# 50778 "parsing/parser.ml" in # 1443 "parsing/parser.mly" ( [x] ) -# 50759 "parsing/parser.ml" +# 50783 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50788,18 +50812,18 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_d_ in let _v : (Parsetree.constructor_declaration list) = let x = -# 3990 "parsing/parser.mly" +# 3991 "parsing/parser.mly" ( let cid, vars_jkinds, args, res, attrs, loc, info = d in Jane_syntax.Layouts.constructor_declaration_of cid ~vars_jkinds ~args ~res ~attrs ~loc ~info ) -# 50798 "parsing/parser.ml" +# 50822 "parsing/parser.ml" in # 1447 "parsing/parser.mly" ( x :: xs ) -# 50803 "parsing/parser.ml" +# 50827 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50826,25 +50850,25 @@ module Tables = struct let _endpos = _endpos_d_ in let _v : (Parsetree.extension_constructor list) = let x = let _1 = -# 4130 "parsing/parser.mly" +# 4131 "parsing/parser.mly" ( let name, vars_jkinds, args, res, attrs, loc, info = d in Jane_syntax.Extension_constructor.extension_constructor_of ~loc ~attrs ~info ~name (Jext_layout (Lext_decl(vars_jkinds, args, res))) ) -# 50837 "parsing/parser.ml" +# 50861 "parsing/parser.ml" in -# 4124 "parsing/parser.mly" +# 4125 "parsing/parser.mly" ( _1 ) -# 50842 "parsing/parser.ml" +# 50866 "parsing/parser.ml" in # 1440 "parsing/parser.mly" ( [x] ) -# 50848 "parsing/parser.ml" +# 50872 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50867,14 +50891,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.extension_constructor list) = let x = -# 4126 "parsing/parser.mly" +# 4127 "parsing/parser.mly" ( _1 ) -# 50873 "parsing/parser.ml" +# 50897 "parsing/parser.ml" in # 1440 "parsing/parser.mly" ( [x] ) -# 50878 "parsing/parser.ml" +# 50902 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50901,25 +50925,25 @@ module Tables = struct let _endpos = _endpos_d_ in let _v : (Parsetree.extension_constructor list) = let x = let _1 = -# 4130 "parsing/parser.mly" +# 4131 "parsing/parser.mly" ( let name, vars_jkinds, args, res, attrs, loc, info = d in Jane_syntax.Extension_constructor.extension_constructor_of ~loc ~attrs ~info ~name (Jext_layout (Lext_decl(vars_jkinds, args, res))) ) -# 50912 "parsing/parser.ml" +# 50936 "parsing/parser.ml" in -# 4124 "parsing/parser.mly" +# 4125 "parsing/parser.mly" ( _1 ) -# 50917 "parsing/parser.ml" +# 50941 "parsing/parser.ml" in # 1443 "parsing/parser.mly" ( [x] ) -# 50923 "parsing/parser.ml" +# 50947 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50942,14 +50966,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.extension_constructor list) = let x = -# 4126 "parsing/parser.mly" +# 4127 "parsing/parser.mly" ( _1 ) -# 50948 "parsing/parser.ml" +# 50972 "parsing/parser.ml" in # 1443 "parsing/parser.mly" ( [x] ) -# 50953 "parsing/parser.ml" +# 50977 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50983,25 +51007,25 @@ module Tables = struct let _endpos = _endpos_d_ in let _v : (Parsetree.extension_constructor list) = let x = let _1 = -# 4130 "parsing/parser.mly" +# 4131 "parsing/parser.mly" ( let name, vars_jkinds, args, res, attrs, loc, info = d in Jane_syntax.Extension_constructor.extension_constructor_of ~loc ~attrs ~info ~name (Jext_layout (Lext_decl(vars_jkinds, args, res))) ) -# 50994 "parsing/parser.ml" +# 51018 "parsing/parser.ml" in -# 4124 "parsing/parser.mly" +# 4125 "parsing/parser.mly" ( _1 ) -# 50999 "parsing/parser.ml" +# 51023 "parsing/parser.ml" in # 1447 "parsing/parser.mly" ( x :: xs ) -# 51005 "parsing/parser.ml" +# 51029 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51031,14 +51055,14 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos__1_ in let _v : (Parsetree.extension_constructor list) = let x = -# 4126 "parsing/parser.mly" +# 4127 "parsing/parser.mly" ( _1 ) -# 51037 "parsing/parser.ml" +# 51061 "parsing/parser.ml" in # 1447 "parsing/parser.mly" ( x :: xs ) -# 51042 "parsing/parser.ml" +# 51066 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51064,19 +51088,19 @@ module Tables = struct let _startpos = _startpos_d_ in let _endpos = _endpos_d_ in let _v : (Parsetree.extension_constructor list) = let x = -# 4130 "parsing/parser.mly" +# 4131 "parsing/parser.mly" ( let name, vars_jkinds, args, res, attrs, loc, info = d in Jane_syntax.Extension_constructor.extension_constructor_of ~loc ~attrs ~info ~name (Jext_layout (Lext_decl(vars_jkinds, args, res))) ) -# 51075 "parsing/parser.ml" +# 51099 "parsing/parser.ml" in # 1440 "parsing/parser.mly" ( [x] ) -# 51080 "parsing/parser.ml" +# 51104 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51102,19 +51126,19 @@ module Tables = struct let _startpos = _startpos_d_ in let _endpos = _endpos_d_ in let _v : (Parsetree.extension_constructor list) = let x = -# 4130 "parsing/parser.mly" +# 4131 "parsing/parser.mly" ( let name, vars_jkinds, args, res, attrs, loc, info = d in Jane_syntax.Extension_constructor.extension_constructor_of ~loc ~attrs ~info ~name (Jext_layout (Lext_decl(vars_jkinds, args, res))) ) -# 51113 "parsing/parser.ml" +# 51137 "parsing/parser.ml" in # 1443 "parsing/parser.mly" ( [x] ) -# 51118 "parsing/parser.ml" +# 51142 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51147,19 +51171,19 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_d_ in let _v : (Parsetree.extension_constructor list) = let x = -# 4130 "parsing/parser.mly" +# 4131 "parsing/parser.mly" ( let name, vars_jkinds, args, res, attrs, loc, info = d in Jane_syntax.Extension_constructor.extension_constructor_of ~loc ~attrs ~info ~name (Jext_layout (Lext_decl(vars_jkinds, args, res))) ) -# 51158 "parsing/parser.ml" +# 51182 "parsing/parser.ml" in # 1447 "parsing/parser.mly" ( x :: xs ) -# 51163 "parsing/parser.ml" +# 51187 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51200,24 +51224,24 @@ module Tables = struct let _1 = # 2574 "parsing/parser.mly" ( _1 ) -# 51204 "parsing/parser.ml" +# 51228 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 51209 "parsing/parser.ml" +# 51233 "parsing/parser.ml" in # 3344 "parsing/parser.mly" ( None, _1 ) -# 51215 "parsing/parser.ml" +# 51239 "parsing/parser.ml" in # 3360 "parsing/parser.mly" ( x :: xs ) -# 51221 "parsing/parser.ml" +# 51245 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51283,18 +51307,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 51287 "parsing/parser.ml" +# 51311 "parsing/parser.ml" in # 1423 "parsing/parser.mly" ( xs ) -# 51292 "parsing/parser.ml" +# 51316 "parsing/parser.ml" in # 3265 "parsing/parser.mly" ( xs ) -# 51298 "parsing/parser.ml" +# 51322 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in @@ -51303,15 +51327,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 51309 "parsing/parser.ml" +# 51333 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 51315 "parsing/parser.ml" +# 51339 "parsing/parser.ml" in let _endpos = _endpos__3_ in @@ -51324,25 +51348,25 @@ module Tables = struct mkfunction [] None (Pfunction_cases (cases, loc, [])) ~loc:_sloc ~attrs:_2 ) -# 51328 "parsing/parser.ml" +# 51352 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 51334 "parsing/parser.ml" +# 51358 "parsing/parser.ml" in # 3344 "parsing/parser.mly" ( None, _1 ) -# 51340 "parsing/parser.ml" +# 51364 "parsing/parser.ml" in # 3360 "parsing/parser.mly" ( x :: xs ) -# 51346 "parsing/parser.ml" +# 51370 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51382,7 +51406,7 @@ module Tables = struct let _1 : ( # 1002 "parsing/parser.mly" (string) -# 51386 "parsing/parser.ml" +# 51410 "parsing/parser.ml" ) = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let xs : ((string option * Parsetree.expression) list) = Obj.magic xs in @@ -51394,13 +51418,13 @@ module Tables = struct # 3346 "parsing/parser.mly" ( Some _1, _2 ) -# 51398 "parsing/parser.ml" +# 51422 "parsing/parser.ml" in # 3360 "parsing/parser.mly" ( x :: xs ) -# 51404 "parsing/parser.ml" +# 51428 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51439,7 +51463,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 51443 "parsing/parser.ml" +# 51467 "parsing/parser.ml" ) = Obj.magic label in let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in @@ -51453,13 +51477,13 @@ module Tables = struct # 3348 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkexpvar ~loc label ) -# 51457 "parsing/parser.ml" +# 51481 "parsing/parser.ml" in # 3360 "parsing/parser.mly" ( x :: xs ) -# 51463 "parsing/parser.ml" +# 51487 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51518,7 +51542,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 51522 "parsing/parser.ml" +# 51546 "parsing/parser.ml" ) = Obj.magic label in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -51536,13 +51560,13 @@ module Tables = struct ( Some label, mkexp_type_constraint ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_label_ label) c ) -# 51540 "parsing/parser.ml" +# 51564 "parsing/parser.ml" in # 3360 "parsing/parser.mly" ( x :: xs ) -# 51546 "parsing/parser.ml" +# 51570 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51584,36 +51608,36 @@ module Tables = struct let _1 = # 2574 "parsing/parser.mly" ( _1 ) -# 51588 "parsing/parser.ml" +# 51612 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 51593 "parsing/parser.ml" +# 51617 "parsing/parser.ml" in # 3344 "parsing/parser.mly" ( None, _1 ) -# 51599 "parsing/parser.ml" +# 51623 "parsing/parser.ml" in let x1 = let _1 = # 2574 "parsing/parser.mly" ( _1 ) -# 51606 "parsing/parser.ml" +# 51630 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 51611 "parsing/parser.ml" +# 51635 "parsing/parser.ml" in # 3365 "parsing/parser.mly" ( [ x2; None, x1 ] ) -# 51617 "parsing/parser.ml" +# 51641 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51679,18 +51703,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 51683 "parsing/parser.ml" +# 51707 "parsing/parser.ml" in # 1423 "parsing/parser.mly" ( xs ) -# 51688 "parsing/parser.ml" +# 51712 "parsing/parser.ml" in # 3265 "parsing/parser.mly" ( xs ) -# 51694 "parsing/parser.ml" +# 51718 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in @@ -51699,15 +51723,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 51705 "parsing/parser.ml" +# 51729 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 51711 "parsing/parser.ml" +# 51735 "parsing/parser.ml" in let _endpos = _endpos__3_ in @@ -51720,37 +51744,37 @@ module Tables = struct mkfunction [] None (Pfunction_cases (cases, loc, [])) ~loc:_sloc ~attrs:_2 ) -# 51724 "parsing/parser.ml" +# 51748 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 51730 "parsing/parser.ml" +# 51754 "parsing/parser.ml" in # 3344 "parsing/parser.mly" ( None, _1 ) -# 51736 "parsing/parser.ml" +# 51760 "parsing/parser.ml" in let x1 = let _1 = # 2574 "parsing/parser.mly" ( _1 ) -# 51743 "parsing/parser.ml" +# 51767 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 51748 "parsing/parser.ml" +# 51772 "parsing/parser.ml" in # 3365 "parsing/parser.mly" ( [ x2; None, x1 ] ) -# 51754 "parsing/parser.ml" +# 51778 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51790,7 +51814,7 @@ module Tables = struct let _1_inlined1 : ( # 1002 "parsing/parser.mly" (string) -# 51794 "parsing/parser.ml" +# 51818 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in @@ -51802,25 +51826,25 @@ module Tables = struct # 3346 "parsing/parser.mly" ( Some _1, _2 ) -# 51806 "parsing/parser.ml" +# 51830 "parsing/parser.ml" in let x1 = let _1 = # 2574 "parsing/parser.mly" ( _1 ) -# 51813 "parsing/parser.ml" +# 51837 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 51818 "parsing/parser.ml" +# 51842 "parsing/parser.ml" in # 3365 "parsing/parser.mly" ( [ x2; None, x1 ] ) -# 51824 "parsing/parser.ml" +# 51848 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51859,7 +51883,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 51863 "parsing/parser.ml" +# 51887 "parsing/parser.ml" ) = Obj.magic label in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in @@ -51873,25 +51897,25 @@ module Tables = struct # 3348 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkexpvar ~loc label ) -# 51877 "parsing/parser.ml" +# 51901 "parsing/parser.ml" in let x1 = let _1 = # 2574 "parsing/parser.mly" ( _1 ) -# 51884 "parsing/parser.ml" +# 51908 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 51889 "parsing/parser.ml" +# 51913 "parsing/parser.ml" in # 3365 "parsing/parser.mly" ( [ x2; None, x1 ] ) -# 51895 "parsing/parser.ml" +# 51919 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51950,7 +51974,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 51954 "parsing/parser.ml" +# 51978 "parsing/parser.ml" ) = Obj.magic label in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in @@ -51968,25 +51992,25 @@ module Tables = struct ( Some label, mkexp_type_constraint ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_label_ label) c ) -# 51972 "parsing/parser.ml" +# 51996 "parsing/parser.ml" in let x1 = let _1 = # 2574 "parsing/parser.mly" ( _1 ) -# 51979 "parsing/parser.ml" +# 52003 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 51984 "parsing/parser.ml" +# 52008 "parsing/parser.ml" in # 3365 "parsing/parser.mly" ( [ x2; None, x1 ] ) -# 51990 "parsing/parser.ml" +# 52014 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52049,18 +52073,18 @@ module Tables = struct let _1 = # 2574 "parsing/parser.mly" ( _1 ) -# 52053 "parsing/parser.ml" +# 52077 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 52058 "parsing/parser.ml" +# 52082 "parsing/parser.ml" in # 3344 "parsing/parser.mly" ( None, _1 ) -# 52064 "parsing/parser.ml" +# 52088 "parsing/parser.ml" in let x1 = @@ -52070,18 +52094,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 52074 "parsing/parser.ml" +# 52098 "parsing/parser.ml" in # 1423 "parsing/parser.mly" ( xs ) -# 52079 "parsing/parser.ml" +# 52103 "parsing/parser.ml" in # 3265 "parsing/parser.mly" ( xs ) -# 52085 "parsing/parser.ml" +# 52109 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in @@ -52090,15 +52114,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 52096 "parsing/parser.ml" +# 52120 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 52102 "parsing/parser.ml" +# 52126 "parsing/parser.ml" in let _endpos = _endpos__3_ in @@ -52111,19 +52135,19 @@ module Tables = struct mkfunction [] None (Pfunction_cases (cases, loc, [])) ~loc:_sloc ~attrs:_2 ) -# 52115 "parsing/parser.ml" +# 52139 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 52121 "parsing/parser.ml" +# 52145 "parsing/parser.ml" in # 3365 "parsing/parser.mly" ( [ x2; None, x1 ] ) -# 52127 "parsing/parser.ml" +# 52151 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52210,18 +52234,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 52214 "parsing/parser.ml" +# 52238 "parsing/parser.ml" in # 1423 "parsing/parser.mly" ( xs ) -# 52219 "parsing/parser.ml" +# 52243 "parsing/parser.ml" in # 3265 "parsing/parser.mly" ( xs ) -# 52225 "parsing/parser.ml" +# 52249 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in @@ -52230,15 +52254,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 52236 "parsing/parser.ml" +# 52260 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 52242 "parsing/parser.ml" +# 52266 "parsing/parser.ml" in let _endpos = _endpos__3_ in @@ -52251,19 +52275,19 @@ module Tables = struct mkfunction [] None (Pfunction_cases (cases, loc, [])) ~loc:_sloc ~attrs:_2 ) -# 52255 "parsing/parser.ml" +# 52279 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 52261 "parsing/parser.ml" +# 52285 "parsing/parser.ml" in # 3344 "parsing/parser.mly" ( None, _1 ) -# 52267 "parsing/parser.ml" +# 52291 "parsing/parser.ml" in let x1 = @@ -52273,18 +52297,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 52277 "parsing/parser.ml" +# 52301 "parsing/parser.ml" in # 1423 "parsing/parser.mly" ( xs ) -# 52282 "parsing/parser.ml" +# 52306 "parsing/parser.ml" in # 3265 "parsing/parser.mly" ( xs ) -# 52288 "parsing/parser.ml" +# 52312 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in @@ -52293,15 +52317,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 52299 "parsing/parser.ml" +# 52323 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 52305 "parsing/parser.ml" +# 52329 "parsing/parser.ml" in let _endpos = _endpos__3_ in @@ -52314,19 +52338,19 @@ module Tables = struct mkfunction [] None (Pfunction_cases (cases, loc, [])) ~loc:_sloc ~attrs:_2 ) -# 52318 "parsing/parser.ml" +# 52342 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 52324 "parsing/parser.ml" +# 52348 "parsing/parser.ml" in # 3365 "parsing/parser.mly" ( [ x2; None, x1 ] ) -# 52330 "parsing/parser.ml" +# 52354 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52384,7 +52408,7 @@ module Tables = struct let _1_inlined3 : ( # 1002 "parsing/parser.mly" (string) -# 52388 "parsing/parser.ml" +# 52412 "parsing/parser.ml" ) = Obj.magic _1_inlined3 in let _2 : unit = Obj.magic _2 in let xs : (Parsetree.case list) = Obj.magic xs in @@ -52399,7 +52423,7 @@ module Tables = struct # 3346 "parsing/parser.mly" ( Some _1, _2 ) -# 52403 "parsing/parser.ml" +# 52427 "parsing/parser.ml" in let x1 = @@ -52409,18 +52433,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 52413 "parsing/parser.ml" +# 52437 "parsing/parser.ml" in # 1423 "parsing/parser.mly" ( xs ) -# 52418 "parsing/parser.ml" +# 52442 "parsing/parser.ml" in # 3265 "parsing/parser.mly" ( xs ) -# 52424 "parsing/parser.ml" +# 52448 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in @@ -52429,15 +52453,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 52435 "parsing/parser.ml" +# 52459 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 52441 "parsing/parser.ml" +# 52465 "parsing/parser.ml" in let _endpos = _endpos__3_ in @@ -52450,19 +52474,19 @@ module Tables = struct mkfunction [] None (Pfunction_cases (cases, loc, [])) ~loc:_sloc ~attrs:_2 ) -# 52454 "parsing/parser.ml" +# 52478 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 52460 "parsing/parser.ml" +# 52484 "parsing/parser.ml" in # 3365 "parsing/parser.mly" ( [ x2; None, x1 ] ) -# 52466 "parsing/parser.ml" +# 52490 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52519,7 +52543,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 52523 "parsing/parser.ml" +# 52547 "parsing/parser.ml" ) = Obj.magic label in let _1_inlined3 : unit = Obj.magic _1_inlined3 in let _2 : unit = Obj.magic _2 in @@ -52536,7 +52560,7 @@ module Tables = struct # 3348 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkexpvar ~loc label ) -# 52540 "parsing/parser.ml" +# 52564 "parsing/parser.ml" in let x1 = @@ -52546,18 +52570,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 52550 "parsing/parser.ml" +# 52574 "parsing/parser.ml" in # 1423 "parsing/parser.mly" ( xs ) -# 52555 "parsing/parser.ml" +# 52579 "parsing/parser.ml" in # 3265 "parsing/parser.mly" ( xs ) -# 52561 "parsing/parser.ml" +# 52585 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in @@ -52566,15 +52590,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 52572 "parsing/parser.ml" +# 52596 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 52578 "parsing/parser.ml" +# 52602 "parsing/parser.ml" in let _endpos = _endpos__3_ in @@ -52587,19 +52611,19 @@ module Tables = struct mkfunction [] None (Pfunction_cases (cases, loc, [])) ~loc:_sloc ~attrs:_2 ) -# 52591 "parsing/parser.ml" +# 52615 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 52597 "parsing/parser.ml" +# 52621 "parsing/parser.ml" in # 3365 "parsing/parser.mly" ( [ x2; None, x1 ] ) -# 52603 "parsing/parser.ml" +# 52627 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52676,7 +52700,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 52680 "parsing/parser.ml" +# 52704 "parsing/parser.ml" ) = Obj.magic label in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1_inlined3 : unit = Obj.magic _1_inlined3 in @@ -52697,7 +52721,7 @@ module Tables = struct ( Some label, mkexp_type_constraint ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_label_ label) c ) -# 52701 "parsing/parser.ml" +# 52725 "parsing/parser.ml" in let x1 = @@ -52707,18 +52731,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 52711 "parsing/parser.ml" +# 52735 "parsing/parser.ml" in # 1423 "parsing/parser.mly" ( xs ) -# 52716 "parsing/parser.ml" +# 52740 "parsing/parser.ml" in # 3265 "parsing/parser.mly" ( xs ) -# 52722 "parsing/parser.ml" +# 52746 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in @@ -52727,15 +52751,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 52733 "parsing/parser.ml" +# 52757 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 52739 "parsing/parser.ml" +# 52763 "parsing/parser.ml" in let _endpos = _endpos__3_ in @@ -52748,19 +52772,19 @@ module Tables = struct mkfunction [] None (Pfunction_cases (cases, loc, [])) ~loc:_sloc ~attrs:_2 ) -# 52752 "parsing/parser.ml" +# 52776 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 52758 "parsing/parser.ml" +# 52782 "parsing/parser.ml" in # 3365 "parsing/parser.mly" ( [ x2; None, x1 ] ) -# 52764 "parsing/parser.ml" +# 52788 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52802,7 +52826,7 @@ module Tables = struct let l1 : ( # 1002 "parsing/parser.mly" (string) -# 52806 "parsing/parser.ml" +# 52830 "parsing/parser.ml" ) = Obj.magic l1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_l1_ in @@ -52812,24 +52836,24 @@ module Tables = struct let _1 = # 2574 "parsing/parser.mly" ( _1 ) -# 52816 "parsing/parser.ml" +# 52840 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 52821 "parsing/parser.ml" +# 52845 "parsing/parser.ml" in # 3344 "parsing/parser.mly" ( None, _1 ) -# 52827 "parsing/parser.ml" +# 52851 "parsing/parser.ml" in # 3369 "parsing/parser.mly" ( [ x2; Some l1, x1 ] ) -# 52833 "parsing/parser.ml" +# 52857 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52892,7 +52916,7 @@ module Tables = struct let l1 : ( # 1002 "parsing/parser.mly" (string) -# 52896 "parsing/parser.ml" +# 52920 "parsing/parser.ml" ) = Obj.magic l1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_l1_ in @@ -52905,18 +52929,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 52909 "parsing/parser.ml" +# 52933 "parsing/parser.ml" in # 1423 "parsing/parser.mly" ( xs ) -# 52914 "parsing/parser.ml" +# 52938 "parsing/parser.ml" in # 3265 "parsing/parser.mly" ( xs ) -# 52920 "parsing/parser.ml" +# 52944 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in @@ -52925,15 +52949,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 52931 "parsing/parser.ml" +# 52955 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 52937 "parsing/parser.ml" +# 52961 "parsing/parser.ml" in let _endpos = _endpos__3_ in @@ -52946,25 +52970,25 @@ module Tables = struct mkfunction [] None (Pfunction_cases (cases, loc, [])) ~loc:_sloc ~attrs:_2 ) -# 52950 "parsing/parser.ml" +# 52974 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 52956 "parsing/parser.ml" +# 52980 "parsing/parser.ml" in # 3344 "parsing/parser.mly" ( None, _1 ) -# 52962 "parsing/parser.ml" +# 52986 "parsing/parser.ml" in # 3369 "parsing/parser.mly" ( [ x2; Some l1, x1 ] ) -# 52968 "parsing/parser.ml" +# 52992 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53010,14 +53034,14 @@ module Tables = struct let _1 : ( # 1002 "parsing/parser.mly" (string) -# 53014 "parsing/parser.ml" +# 53038 "parsing/parser.ml" ) = Obj.magic _1 in let _3 : unit = Obj.magic _3 in let x1 : (Parsetree.expression) = Obj.magic x1 in let l1 : ( # 1002 "parsing/parser.mly" (string) -# 53021 "parsing/parser.ml" +# 53045 "parsing/parser.ml" ) = Obj.magic l1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_l1_ in @@ -53025,12 +53049,12 @@ module Tables = struct let _v : ((string option * Parsetree.expression) list) = let x2 = # 3346 "parsing/parser.mly" ( Some _1, _2 ) -# 53029 "parsing/parser.ml" +# 53053 "parsing/parser.ml" in # 3369 "parsing/parser.mly" ( [ x2; Some l1, x1 ] ) -# 53034 "parsing/parser.ml" +# 53058 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53075,7 +53099,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 53079 "parsing/parser.ml" +# 53103 "parsing/parser.ml" ) = Obj.magic label in let _1 : unit = Obj.magic _1 in let _3 : unit = Obj.magic _3 in @@ -53083,7 +53107,7 @@ module Tables = struct let l1 : ( # 1002 "parsing/parser.mly" (string) -# 53087 "parsing/parser.ml" +# 53111 "parsing/parser.ml" ) = Obj.magic l1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_l1_ in @@ -53094,13 +53118,13 @@ module Tables = struct # 3348 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkexpvar ~loc label ) -# 53098 "parsing/parser.ml" +# 53122 "parsing/parser.ml" in # 3369 "parsing/parser.mly" ( [ x2; Some l1, x1 ] ) -# 53104 "parsing/parser.ml" +# 53128 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53165,7 +53189,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 53169 "parsing/parser.ml" +# 53193 "parsing/parser.ml" ) = Obj.magic label in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in @@ -53174,7 +53198,7 @@ module Tables = struct let l1 : ( # 1002 "parsing/parser.mly" (string) -# 53178 "parsing/parser.ml" +# 53202 "parsing/parser.ml" ) = Obj.magic l1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_l1_ in @@ -53187,13 +53211,13 @@ module Tables = struct ( Some label, mkexp_type_constraint ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_label_ label) c ) -# 53191 "parsing/parser.ml" +# 53215 "parsing/parser.ml" in # 3369 "parsing/parser.mly" ( [ x2; Some l1, x1 ] ) -# 53197 "parsing/parser.ml" +# 53221 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53234,7 +53258,7 @@ module Tables = struct let l1 : ( # 1016 "parsing/parser.mly" (string) -# 53238 "parsing/parser.ml" +# 53262 "parsing/parser.ml" ) = Obj.magic l1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -53246,18 +53270,18 @@ module Tables = struct let _1 = # 2574 "parsing/parser.mly" ( _1 ) -# 53250 "parsing/parser.ml" +# 53274 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 53255 "parsing/parser.ml" +# 53279 "parsing/parser.ml" in # 3344 "parsing/parser.mly" ( None, _1 ) -# 53261 "parsing/parser.ml" +# 53285 "parsing/parser.ml" in let _loc_l1_ = (_startpos_l1_, _endpos_l1_) in @@ -53265,7 +53289,7 @@ module Tables = struct # 3373 "parsing/parser.mly" ( let loc = _loc_l1_ in [ x2; Some l1, mkexpvar ~loc l1] ) -# 53269 "parsing/parser.ml" +# 53293 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53327,7 +53351,7 @@ module Tables = struct let l1 : ( # 1016 "parsing/parser.mly" (string) -# 53331 "parsing/parser.ml" +# 53355 "parsing/parser.ml" ) = Obj.magic l1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -53342,18 +53366,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 53346 "parsing/parser.ml" +# 53370 "parsing/parser.ml" in # 1423 "parsing/parser.mly" ( xs ) -# 53351 "parsing/parser.ml" +# 53375 "parsing/parser.ml" in # 3265 "parsing/parser.mly" ( xs ) -# 53357 "parsing/parser.ml" +# 53381 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in @@ -53362,15 +53386,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 53368 "parsing/parser.ml" +# 53392 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 53374 "parsing/parser.ml" +# 53398 "parsing/parser.ml" in let _endpos = _endpos__3_ in @@ -53383,19 +53407,19 @@ module Tables = struct mkfunction [] None (Pfunction_cases (cases, loc, [])) ~loc:_sloc ~attrs:_2 ) -# 53387 "parsing/parser.ml" +# 53411 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 53393 "parsing/parser.ml" +# 53417 "parsing/parser.ml" in # 3344 "parsing/parser.mly" ( None, _1 ) -# 53399 "parsing/parser.ml" +# 53423 "parsing/parser.ml" in let _loc_l1_ = (_startpos_l1_, _endpos_l1_) in @@ -53403,7 +53427,7 @@ module Tables = struct # 3373 "parsing/parser.mly" ( let loc = _loc_l1_ in [ x2; Some l1, mkexpvar ~loc l1] ) -# 53407 "parsing/parser.ml" +# 53431 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53449,13 +53473,13 @@ module Tables = struct let _1_inlined1 : ( # 1002 "parsing/parser.mly" (string) -# 53453 "parsing/parser.ml" +# 53477 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _3 : unit = Obj.magic _3 in let l1 : ( # 1016 "parsing/parser.mly" (string) -# 53459 "parsing/parser.ml" +# 53483 "parsing/parser.ml" ) = Obj.magic l1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -53466,7 +53490,7 @@ module Tables = struct # 3346 "parsing/parser.mly" ( Some _1, _2 ) -# 53470 "parsing/parser.ml" +# 53494 "parsing/parser.ml" in let _loc_l1_ = (_startpos_l1_, _endpos_l1_) in @@ -53474,7 +53498,7 @@ module Tables = struct # 3373 "parsing/parser.mly" ( let loc = _loc_l1_ in [ x2; Some l1, mkexpvar ~loc l1] ) -# 53478 "parsing/parser.ml" +# 53502 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53519,14 +53543,14 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 53523 "parsing/parser.ml" +# 53547 "parsing/parser.ml" ) = Obj.magic label in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _3 : unit = Obj.magic _3 in let l1 : ( # 1016 "parsing/parser.mly" (string) -# 53530 "parsing/parser.ml" +# 53554 "parsing/parser.ml" ) = Obj.magic l1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -53538,7 +53562,7 @@ module Tables = struct # 3348 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkexpvar ~loc label ) -# 53542 "parsing/parser.ml" +# 53566 "parsing/parser.ml" in let _loc_l1_ = (_startpos_l1_, _endpos_l1_) in @@ -53546,7 +53570,7 @@ module Tables = struct # 3373 "parsing/parser.mly" ( let loc = _loc_l1_ in [ x2; Some l1, mkexpvar ~loc l1] ) -# 53550 "parsing/parser.ml" +# 53574 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53611,7 +53635,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 53615 "parsing/parser.ml" +# 53639 "parsing/parser.ml" ) = Obj.magic label in let _2 : unit = Obj.magic _2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in @@ -53619,7 +53643,7 @@ module Tables = struct let l1 : ( # 1016 "parsing/parser.mly" (string) -# 53623 "parsing/parser.ml" +# 53647 "parsing/parser.ml" ) = Obj.magic l1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -53633,7 +53657,7 @@ module Tables = struct ( Some label, mkexp_type_constraint ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_label_ label) c ) -# 53637 "parsing/parser.ml" +# 53661 "parsing/parser.ml" in let _loc_l1_ = (_startpos_l1_, _endpos_l1_) in @@ -53641,7 +53665,7 @@ module Tables = struct # 3373 "parsing/parser.mly" ( let loc = _loc_l1_ in [ x2; Some l1, mkexpvar ~loc l1] ) -# 53645 "parsing/parser.ml" +# 53669 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53702,7 +53726,7 @@ module Tables = struct let l1 : ( # 1016 "parsing/parser.mly" (string) -# 53706 "parsing/parser.ml" +# 53730 "parsing/parser.ml" ) = Obj.magic l1 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in @@ -53715,18 +53739,18 @@ module Tables = struct let _1 = # 2574 "parsing/parser.mly" ( _1 ) -# 53719 "parsing/parser.ml" +# 53743 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 53724 "parsing/parser.ml" +# 53748 "parsing/parser.ml" in # 3344 "parsing/parser.mly" ( None, _1 ) -# 53730 "parsing/parser.ml" +# 53754 "parsing/parser.ml" in let _endpos_x2_ = _endpos__1_inlined1_ in @@ -53739,7 +53763,7 @@ module Tables = struct ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_l1_ l1) c in [ x2; Some l1, x1] ) -# 53743 "parsing/parser.ml" +# 53767 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53821,7 +53845,7 @@ module Tables = struct let l1 : ( # 1016 "parsing/parser.mly" (string) -# 53825 "parsing/parser.ml" +# 53849 "parsing/parser.ml" ) = Obj.magic l1 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in @@ -53837,18 +53861,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 53841 "parsing/parser.ml" +# 53865 "parsing/parser.ml" in # 1423 "parsing/parser.mly" ( xs ) -# 53846 "parsing/parser.ml" +# 53870 "parsing/parser.ml" in # 3265 "parsing/parser.mly" ( xs ) -# 53852 "parsing/parser.ml" +# 53876 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in @@ -53857,15 +53881,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 53863 "parsing/parser.ml" +# 53887 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 53869 "parsing/parser.ml" +# 53893 "parsing/parser.ml" in let _endpos = _endpos__3_ in @@ -53878,19 +53902,19 @@ module Tables = struct mkfunction [] None (Pfunction_cases (cases, loc, [])) ~loc:_sloc ~attrs:_2 ) -# 53882 "parsing/parser.ml" +# 53906 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 53888 "parsing/parser.ml" +# 53912 "parsing/parser.ml" in # 3344 "parsing/parser.mly" ( None, _1 ) -# 53894 "parsing/parser.ml" +# 53918 "parsing/parser.ml" in let _endpos_x2_ = _endpos_xs_ in @@ -53903,7 +53927,7 @@ module Tables = struct ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_l1_ l1) c in [ x2; Some l1, x1] ) -# 53907 "parsing/parser.ml" +# 53931 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53967,7 +53991,7 @@ module Tables = struct let _1_inlined1 : ( # 1002 "parsing/parser.mly" (string) -# 53971 "parsing/parser.ml" +# 53995 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _6 : unit = Obj.magic _6 in let _5 : unit = Obj.magic _5 in @@ -53975,7 +53999,7 @@ module Tables = struct let l1 : ( # 1016 "parsing/parser.mly" (string) -# 53979 "parsing/parser.ml" +# 54003 "parsing/parser.ml" ) = Obj.magic l1 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in @@ -53987,7 +54011,7 @@ module Tables = struct # 3346 "parsing/parser.mly" ( Some _1, _2 ) -# 53991 "parsing/parser.ml" +# 54015 "parsing/parser.ml" in let _endpos_x2_ = _endpos__2_inlined1_ in @@ -54000,7 +54024,7 @@ module Tables = struct ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_l1_ l1) c in [ x2; Some l1, x1] ) -# 54004 "parsing/parser.ml" +# 54028 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54063,7 +54087,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 54067 "parsing/parser.ml" +# 54091 "parsing/parser.ml" ) = Obj.magic label in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _6 : unit = Obj.magic _6 in @@ -54072,7 +54096,7 @@ module Tables = struct let l1 : ( # 1016 "parsing/parser.mly" (string) -# 54076 "parsing/parser.ml" +# 54100 "parsing/parser.ml" ) = Obj.magic l1 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in @@ -54085,7 +54109,7 @@ module Tables = struct # 3348 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkexpvar ~loc label ) -# 54089 "parsing/parser.ml" +# 54113 "parsing/parser.ml" in let _endpos_x2_ = _endpos_label_ in @@ -54098,7 +54122,7 @@ module Tables = struct ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_l1_ l1) c in [ x2; Some l1, x1] ) -# 54102 "parsing/parser.ml" +# 54126 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54181,7 +54205,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 54185 "parsing/parser.ml" +# 54209 "parsing/parser.ml" ) = Obj.magic label in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in @@ -54191,7 +54215,7 @@ module Tables = struct let l1 : ( # 1016 "parsing/parser.mly" (string) -# 54195 "parsing/parser.ml" +# 54219 "parsing/parser.ml" ) = Obj.magic l1 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in @@ -54207,7 +54231,7 @@ module Tables = struct ( Some label, mkexp_type_constraint ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_label_ label) c ) -# 54211 "parsing/parser.ml" +# 54235 "parsing/parser.ml" in let _endpos_x2_ = _endpos__5_inlined1_ in @@ -54220,7 +54244,7 @@ module Tables = struct ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_l1_ l1) c in [ x2; Some l1, x1] ) -# 54224 "parsing/parser.ml" +# 54248 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54243,9 +54267,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.closed_flag * (string option * Parsetree.pattern) list) = -# 3567 "parsing/parser.mly" +# 3568 "parsing/parser.mly" ( Closed, _1 ) -# 54249 "parsing/parser.ml" +# 54273 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54282,9 +54306,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Asttypes.closed_flag * (string option * Parsetree.pattern) list) = -# 3569 "parsing/parser.mly" +# 3570 "parsing/parser.mly" ( Open, _1 ) -# 54288 "parsing/parser.ml" +# 54312 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54323,12 +54347,12 @@ module Tables = struct let _v : (Asttypes.closed_flag * (string option * Parsetree.pattern) list) = let _1 = # 3545 "parsing/parser.mly" ( None, _1 ) -# 54327 "parsing/parser.ml" +# 54351 "parsing/parser.ml" in -# 3571 "parsing/parser.mly" +# 3572 "parsing/parser.mly" ( Open, [ _1 ] ) -# 54332 "parsing/parser.ml" +# 54356 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54370,7 +54394,7 @@ module Tables = struct let _1 : ( # 1002 "parsing/parser.mly" (string) -# 54374 "parsing/parser.ml" +# 54398 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -54380,13 +54404,13 @@ module Tables = struct # 3547 "parsing/parser.mly" ( Some _1, _2 ) -# 54384 "parsing/parser.ml" +# 54408 "parsing/parser.ml" in -# 3571 "parsing/parser.mly" +# 3572 "parsing/parser.mly" ( Open, [ _1 ] ) -# 54390 "parsing/parser.ml" +# 54414 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54427,7 +54451,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 54431 "parsing/parser.ml" +# 54455 "parsing/parser.ml" ) = Obj.magic label in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -54439,13 +54463,13 @@ module Tables = struct # 3549 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkpatvar ~loc label ) -# 54443 "parsing/parser.ml" +# 54467 "parsing/parser.ml" in -# 3571 "parsing/parser.mly" +# 3572 "parsing/parser.mly" ( Open, [ _1 ] ) -# 54449 "parsing/parser.ml" +# 54473 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54513,7 +54537,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 54517 "parsing/parser.ml" +# 54541 "parsing/parser.ml" ) = Obj.magic label in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -54521,19 +54545,22 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Asttypes.closed_flag * (string option * Parsetree.pattern) list) = let _1 = + let _startpos__2_ = _startpos__2_inlined1_ in + let _endpos = _endpos__6_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3552 "parsing/parser.mly" - ( let loc = _loc_label_ in - let pat = mkpatvar ~loc label in - Some label, mkpat_opt_constraint ~loc pat (Some cty) ) -# 54531 "parsing/parser.ml" + ( let lbl_loc = _loc_label_ in + let pat_loc = _startpos__2_, _endpos in + let pat = mkpatvar ~loc:lbl_loc label in + Some label, mkpat_opt_constraint ~loc:pat_loc pat (Some cty) ) +# 54558 "parsing/parser.ml" in -# 3571 "parsing/parser.mly" +# 3572 "parsing/parser.mly" ( Open, [ _1 ] ) -# 54537 "parsing/parser.ml" +# 54564 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54556,9 +54583,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.closed_flag * (string option * Parsetree.pattern) list) = -# 3567 "parsing/parser.mly" +# 3568 "parsing/parser.mly" ( Closed, _1 ) -# 54562 "parsing/parser.ml" +# 54589 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54595,9 +54622,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Asttypes.closed_flag * (string option * Parsetree.pattern) list) = -# 3569 "parsing/parser.mly" +# 3570 "parsing/parser.mly" ( Open, _1 ) -# 54601 "parsing/parser.ml" +# 54628 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54636,12 +54663,12 @@ module Tables = struct let _v : (Asttypes.closed_flag * (string option * Parsetree.pattern) list) = let _1 = # 3545 "parsing/parser.mly" ( None, _1 ) -# 54640 "parsing/parser.ml" +# 54667 "parsing/parser.ml" in -# 3571 "parsing/parser.mly" +# 3572 "parsing/parser.mly" ( Open, [ _1 ] ) -# 54645 "parsing/parser.ml" +# 54672 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54683,7 +54710,7 @@ module Tables = struct let _1 : ( # 1002 "parsing/parser.mly" (string) -# 54687 "parsing/parser.ml" +# 54714 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -54693,13 +54720,13 @@ module Tables = struct # 3547 "parsing/parser.mly" ( Some _1, _2 ) -# 54697 "parsing/parser.ml" +# 54724 "parsing/parser.ml" in -# 3571 "parsing/parser.mly" +# 3572 "parsing/parser.mly" ( Open, [ _1 ] ) -# 54703 "parsing/parser.ml" +# 54730 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54740,7 +54767,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 54744 "parsing/parser.ml" +# 54771 "parsing/parser.ml" ) = Obj.magic label in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -54752,13 +54779,13 @@ module Tables = struct # 3549 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkpatvar ~loc label ) -# 54756 "parsing/parser.ml" +# 54783 "parsing/parser.ml" in -# 3571 "parsing/parser.mly" +# 3572 "parsing/parser.mly" ( Open, [ _1 ] ) -# 54762 "parsing/parser.ml" +# 54789 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54826,7 +54853,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 54830 "parsing/parser.ml" +# 54857 "parsing/parser.ml" ) = Obj.magic label in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -54834,19 +54861,22 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Asttypes.closed_flag * (string option * Parsetree.pattern) list) = let _1 = + let _startpos__2_ = _startpos__2_inlined1_ in + let _endpos = _endpos__6_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3552 "parsing/parser.mly" - ( let loc = _loc_label_ in - let pat = mkpatvar ~loc label in - Some label, mkpat_opt_constraint ~loc pat (Some cty) ) -# 54844 "parsing/parser.ml" + ( let lbl_loc = _loc_label_ in + let pat_loc = _startpos__2_, _endpos in + let pat = mkpatvar ~loc:lbl_loc label in + Some label, mkpat_opt_constraint ~loc:pat_loc pat (Some cty) ) +# 54874 "parsing/parser.ml" in -# 3571 "parsing/parser.mly" +# 3572 "parsing/parser.mly" ( Open, [ _1 ] ) -# 54850 "parsing/parser.ml" +# 54880 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54864,7 +54894,7 @@ module Tables = struct let _v : ((Parsetree.core_type * Parsetree.core_type * Location.t) list) = # 1286 "parsing/parser.mly" ( [] ) -# 54868 "parsing/parser.ml" +# 54898 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54923,19 +54953,19 @@ module Tables = struct # 2484 "parsing/parser.mly" ( _1, _3, make_loc _sloc ) -# 54927 "parsing/parser.ml" +# 54957 "parsing/parser.ml" in # 183 "" ( x ) -# 54933 "parsing/parser.ml" +# 54963 "parsing/parser.ml" in # 1288 "parsing/parser.mly" ( x :: xs ) -# 54939 "parsing/parser.ml" +# 54969 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54960,7 +54990,7 @@ module Tables = struct let _v : (N_ary.function_param list) = # 1319 "parsing/parser.mly" ( List.rev x ) -# 54964 "parsing/parser.ml" +# 54994 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54992,7 +55022,7 @@ module Tables = struct let _v : (N_ary.function_param list) = # 1321 "parsing/parser.mly" ( List.rev_append x xs ) -# 54996 "parsing/parser.ml" +# 55026 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55017,7 +55047,7 @@ module Tables = struct let _v : (Jane_syntax.Comprehensions.clause list) = # 1300 "parsing/parser.mly" ( [ x ] ) -# 55021 "parsing/parser.ml" +# 55051 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55049,7 +55079,7 @@ module Tables = struct let _v : (Jane_syntax.Comprehensions.clause list) = # 1302 "parsing/parser.mly" ( x :: xs ) -# 55053 "parsing/parser.ml" +# 55083 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55074,7 +55104,7 @@ module Tables = struct let _v : ((Lexing.position * Parsetree.functor_parameter) list) = # 1300 "parsing/parser.mly" ( [ x ] ) -# 55078 "parsing/parser.ml" +# 55108 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55106,7 +55136,7 @@ module Tables = struct let _v : ((Lexing.position * Parsetree.functor_parameter) list) = # 1302 "parsing/parser.mly" ( x :: xs ) -# 55110 "parsing/parser.ml" +# 55140 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55131,7 +55161,7 @@ module Tables = struct let _v : ((Asttypes.arg_label * Parsetree.expression) list) = # 1300 "parsing/parser.mly" ( [ x ] ) -# 55135 "parsing/parser.ml" +# 55165 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55163,7 +55193,7 @@ module Tables = struct let _v : ((Asttypes.arg_label * Parsetree.expression) list) = # 1302 "parsing/parser.mly" ( x :: xs ) -# 55167 "parsing/parser.ml" +# 55197 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55188,7 +55218,7 @@ module Tables = struct let _v : (Asttypes.label list) = # 1300 "parsing/parser.mly" ( [ x ] ) -# 55192 "parsing/parser.ml" +# 55222 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55220,7 +55250,7 @@ module Tables = struct let _v : (Asttypes.label list) = # 1302 "parsing/parser.mly" ( x :: xs ) -# 55224 "parsing/parser.ml" +# 55254 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55258,19 +55288,19 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 55262 "parsing/parser.ml" +# 55292 "parsing/parser.ml" in -# 4190 "parsing/parser.mly" +# 4191 "parsing/parser.mly" ( (_2, None) ) -# 55268 "parsing/parser.ml" +# 55298 "parsing/parser.ml" in # 1300 "parsing/parser.mly" ( [ x ] ) -# 55274 "parsing/parser.ml" +# 55304 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55336,19 +55366,19 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 55340 "parsing/parser.ml" +# 55370 "parsing/parser.ml" in -# 4192 "parsing/parser.mly" +# 4193 "parsing/parser.mly" ( (tyvar, Some jkind) ) -# 55346 "parsing/parser.ml" +# 55376 "parsing/parser.ml" in # 1300 "parsing/parser.mly" ( [ x ] ) -# 55352 "parsing/parser.ml" +# 55382 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55393,19 +55423,19 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 55397 "parsing/parser.ml" +# 55427 "parsing/parser.ml" in -# 4190 "parsing/parser.mly" +# 4191 "parsing/parser.mly" ( (_2, None) ) -# 55403 "parsing/parser.ml" +# 55433 "parsing/parser.ml" in # 1302 "parsing/parser.mly" ( x :: xs ) -# 55409 "parsing/parser.ml" +# 55439 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55478,19 +55508,19 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 55482 "parsing/parser.ml" +# 55512 "parsing/parser.ml" in -# 4192 "parsing/parser.mly" +# 4193 "parsing/parser.mly" ( (tyvar, Some jkind) ) -# 55488 "parsing/parser.ml" +# 55518 "parsing/parser.ml" in # 1302 "parsing/parser.mly" ( x :: xs ) -# 55494 "parsing/parser.ml" +# 55524 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55515,12 +55545,12 @@ module Tables = struct let _v : (Parsetree.case list) = let _1 = # 124 "" ( None ) -# 55519 "parsing/parser.ml" +# 55549 "parsing/parser.ml" in # 1411 "parsing/parser.mly" ( [x] ) -# 55524 "parsing/parser.ml" +# 55554 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55554,13 +55584,13 @@ module Tables = struct # 126 "" ( Some x ) -# 55558 "parsing/parser.ml" +# 55588 "parsing/parser.ml" in # 1411 "parsing/parser.mly" ( [x] ) -# 55564 "parsing/parser.ml" +# 55594 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55599,7 +55629,7 @@ module Tables = struct let _v : (Parsetree.case list) = # 1415 "parsing/parser.mly" ( x :: xs ) -# 55603 "parsing/parser.ml" +# 55633 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55623,20 +55653,20 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.core_type list) = let xs = let x = -# 4238 "parsing/parser.mly" +# 4239 "parsing/parser.mly" ( _1 ) -# 55629 "parsing/parser.ml" +# 55659 "parsing/parser.ml" in # 1346 "parsing/parser.mly" ( [ x ] ) -# 55634 "parsing/parser.ml" +# 55664 "parsing/parser.ml" in # 1354 "parsing/parser.mly" ( xs ) -# 55640 "parsing/parser.ml" +# 55670 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55674,20 +55704,20 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.core_type list) = let xs = let x = -# 4238 "parsing/parser.mly" +# 4239 "parsing/parser.mly" ( _1 ) -# 55680 "parsing/parser.ml" +# 55710 "parsing/parser.ml" in # 1350 "parsing/parser.mly" ( x :: xs ) -# 55685 "parsing/parser.ml" +# 55715 "parsing/parser.ml" in # 1354 "parsing/parser.mly" ( xs ) -# 55691 "parsing/parser.ml" +# 55721 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55712,12 +55742,12 @@ module Tables = struct let _v : (Jane_syntax.Comprehensions.clause_binding list) = let xs = # 1346 "parsing/parser.mly" ( [ x ] ) -# 55716 "parsing/parser.ml" +# 55746 "parsing/parser.ml" in # 1354 "parsing/parser.mly" ( xs ) -# 55721 "parsing/parser.ml" +# 55751 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55756,12 +55786,12 @@ module Tables = struct let _v : (Jane_syntax.Comprehensions.clause_binding list) = let xs = # 1350 "parsing/parser.mly" ( x :: xs ) -# 55760 "parsing/parser.ml" +# 55790 "parsing/parser.ml" in # 1354 "parsing/parser.mly" ( xs ) -# 55765 "parsing/parser.ml" +# 55795 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55786,12 +55816,12 @@ module Tables = struct let _v : (Parsetree.with_constraint list) = let xs = # 1346 "parsing/parser.mly" ( [ x ] ) -# 55790 "parsing/parser.ml" +# 55820 "parsing/parser.ml" in # 1354 "parsing/parser.mly" ( xs ) -# 55795 "parsing/parser.ml" +# 55825 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55830,12 +55860,12 @@ module Tables = struct let _v : (Parsetree.with_constraint list) = let xs = # 1350 "parsing/parser.mly" ( x :: xs ) -# 55834 "parsing/parser.ml" +# 55864 "parsing/parser.ml" in # 1354 "parsing/parser.mly" ( xs ) -# 55839 "parsing/parser.ml" +# 55869 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55860,12 +55890,12 @@ module Tables = struct let _v : (Parsetree.row_field list) = let xs = # 1346 "parsing/parser.mly" ( [ x ] ) -# 55864 "parsing/parser.ml" +# 55894 "parsing/parser.ml" in # 1354 "parsing/parser.mly" ( xs ) -# 55869 "parsing/parser.ml" +# 55899 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55904,12 +55934,12 @@ module Tables = struct let _v : (Parsetree.row_field list) = let xs = # 1350 "parsing/parser.mly" ( x :: xs ) -# 55908 "parsing/parser.ml" +# 55938 "parsing/parser.ml" in # 1354 "parsing/parser.mly" ( xs ) -# 55913 "parsing/parser.ml" +# 55943 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55934,12 +55964,12 @@ module Tables = struct let _v : (Parsetree.core_type list) = let xs = # 1346 "parsing/parser.mly" ( [ x ] ) -# 55938 "parsing/parser.ml" +# 55968 "parsing/parser.ml" in # 1354 "parsing/parser.mly" ( xs ) -# 55943 "parsing/parser.ml" +# 55973 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55978,12 +56008,12 @@ module Tables = struct let _v : (Parsetree.core_type list) = let xs = # 1350 "parsing/parser.mly" ( x :: xs ) -# 55982 "parsing/parser.ml" +# 56012 "parsing/parser.ml" in # 1354 "parsing/parser.mly" ( xs ) -# 55987 "parsing/parser.ml" +# 56017 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56008,12 +56038,12 @@ module Tables = struct let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = let xs = # 1346 "parsing/parser.mly" ( [ x ] ) -# 56012 "parsing/parser.ml" +# 56042 "parsing/parser.ml" in # 1354 "parsing/parser.mly" ( xs ) -# 56017 "parsing/parser.ml" +# 56047 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56052,12 +56082,12 @@ module Tables = struct let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = let xs = # 1350 "parsing/parser.mly" ( x :: xs ) -# 56056 "parsing/parser.ml" +# 56086 "parsing/parser.ml" in # 1354 "parsing/parser.mly" ( xs ) -# 56061 "parsing/parser.ml" +# 56091 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56082,12 +56112,12 @@ module Tables = struct let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = let xs = # 1346 "parsing/parser.mly" ( [ x ] ) -# 56086 "parsing/parser.ml" +# 56116 "parsing/parser.ml" in # 1354 "parsing/parser.mly" ( xs ) -# 56091 "parsing/parser.ml" +# 56121 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56126,12 +56156,12 @@ module Tables = struct let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = let xs = # 1350 "parsing/parser.mly" ( x :: xs ) -# 56130 "parsing/parser.ml" +# 56160 "parsing/parser.ml" in # 1354 "parsing/parser.mly" ( xs ) -# 56135 "parsing/parser.ml" +# 56165 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56156,34 +56186,34 @@ module Tables = struct let _v : (Parsetree.core_type list) = let xs = let x = let m1 = -# 4417 "parsing/parser.mly" +# 4418 "parsing/parser.mly" ( Mode.empty ) -# 56162 "parsing/parser.ml" +# 56192 "parsing/parser.ml" in let gbl = -# 4864 "parsing/parser.mly" +# 4865 "parsing/parser.mly" ( Mode.empty ) -# 56167 "parsing/parser.ml" +# 56197 "parsing/parser.ml" in -# 4056 "parsing/parser.mly" +# 4057 "parsing/parser.mly" ( let m = Mode.concat gbl m1 in mktyp_with_modes m cty ) -# 56175 "parsing/parser.ml" +# 56205 "parsing/parser.ml" in # 1346 "parsing/parser.mly" ( [ x ] ) -# 56181 "parsing/parser.ml" +# 56211 "parsing/parser.ml" in # 1354 "parsing/parser.mly" ( xs ) -# 56187 "parsing/parser.ml" +# 56217 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56215,34 +56245,34 @@ module Tables = struct let _v : (Parsetree.core_type list) = let xs = let x = let m1 = -# 4418 "parsing/parser.mly" +# 4419 "parsing/parser.mly" (_1) -# 56221 "parsing/parser.ml" +# 56251 "parsing/parser.ml" in let gbl = -# 4864 "parsing/parser.mly" +# 4865 "parsing/parser.mly" ( Mode.empty ) -# 56226 "parsing/parser.ml" +# 56256 "parsing/parser.ml" in -# 4056 "parsing/parser.mly" +# 4057 "parsing/parser.mly" ( let m = Mode.concat gbl m1 in mktyp_with_modes m cty ) -# 56234 "parsing/parser.ml" +# 56264 "parsing/parser.ml" in # 1346 "parsing/parser.mly" ( [ x ] ) -# 56240 "parsing/parser.ml" +# 56270 "parsing/parser.ml" in # 1354 "parsing/parser.mly" ( xs ) -# 56246 "parsing/parser.ml" +# 56276 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56274,39 +56304,39 @@ module Tables = struct let _v : (Parsetree.core_type list) = let xs = let x = let m1 = -# 4417 "parsing/parser.mly" +# 4418 "parsing/parser.mly" ( Mode.empty ) -# 56280 "parsing/parser.ml" +# 56310 "parsing/parser.ml" in let gbl = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4865 "parsing/parser.mly" +# 4866 "parsing/parser.mly" ( Mode.singleton (Mode.Const.mk "global" (make_loc _sloc)) ) -# 56289 "parsing/parser.ml" +# 56319 "parsing/parser.ml" in -# 4056 "parsing/parser.mly" +# 4057 "parsing/parser.mly" ( let m = Mode.concat gbl m1 in mktyp_with_modes m cty ) -# 56298 "parsing/parser.ml" +# 56328 "parsing/parser.ml" in # 1346 "parsing/parser.mly" ( [ x ] ) -# 56304 "parsing/parser.ml" +# 56334 "parsing/parser.ml" in # 1354 "parsing/parser.mly" ( xs ) -# 56310 "parsing/parser.ml" +# 56340 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56347,9 +56377,9 @@ module Tables = struct let m1 = let _1 = _1_inlined1 in -# 4418 "parsing/parser.mly" +# 4419 "parsing/parser.mly" (_1) -# 56353 "parsing/parser.ml" +# 56383 "parsing/parser.ml" in let gbl = @@ -56357,30 +56387,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4865 "parsing/parser.mly" +# 4866 "parsing/parser.mly" ( Mode.singleton (Mode.Const.mk "global" (make_loc _sloc)) ) -# 56363 "parsing/parser.ml" +# 56393 "parsing/parser.ml" in -# 4056 "parsing/parser.mly" +# 4057 "parsing/parser.mly" ( let m = Mode.concat gbl m1 in mktyp_with_modes m cty ) -# 56372 "parsing/parser.ml" +# 56402 "parsing/parser.ml" in # 1346 "parsing/parser.mly" ( [ x ] ) -# 56378 "parsing/parser.ml" +# 56408 "parsing/parser.ml" in # 1354 "parsing/parser.mly" ( xs ) -# 56384 "parsing/parser.ml" +# 56414 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56419,34 +56449,34 @@ module Tables = struct let _v : (Parsetree.core_type list) = let xs = let x = let m1 = -# 4417 "parsing/parser.mly" +# 4418 "parsing/parser.mly" ( Mode.empty ) -# 56425 "parsing/parser.ml" +# 56455 "parsing/parser.ml" in let gbl = -# 4864 "parsing/parser.mly" +# 4865 "parsing/parser.mly" ( Mode.empty ) -# 56430 "parsing/parser.ml" +# 56460 "parsing/parser.ml" in -# 4056 "parsing/parser.mly" +# 4057 "parsing/parser.mly" ( let m = Mode.concat gbl m1 in mktyp_with_modes m cty ) -# 56438 "parsing/parser.ml" +# 56468 "parsing/parser.ml" in # 1350 "parsing/parser.mly" ( x :: xs ) -# 56444 "parsing/parser.ml" +# 56474 "parsing/parser.ml" in # 1354 "parsing/parser.mly" ( xs ) -# 56450 "parsing/parser.ml" +# 56480 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56492,34 +56522,34 @@ module Tables = struct let _v : (Parsetree.core_type list) = let xs = let x = let m1 = -# 4418 "parsing/parser.mly" +# 4419 "parsing/parser.mly" (_1) -# 56498 "parsing/parser.ml" +# 56528 "parsing/parser.ml" in let gbl = -# 4864 "parsing/parser.mly" +# 4865 "parsing/parser.mly" ( Mode.empty ) -# 56503 "parsing/parser.ml" +# 56533 "parsing/parser.ml" in -# 4056 "parsing/parser.mly" +# 4057 "parsing/parser.mly" ( let m = Mode.concat gbl m1 in mktyp_with_modes m cty ) -# 56511 "parsing/parser.ml" +# 56541 "parsing/parser.ml" in # 1350 "parsing/parser.mly" ( x :: xs ) -# 56517 "parsing/parser.ml" +# 56547 "parsing/parser.ml" in # 1354 "parsing/parser.mly" ( xs ) -# 56523 "parsing/parser.ml" +# 56553 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56565,39 +56595,39 @@ module Tables = struct let _v : (Parsetree.core_type list) = let xs = let x = let m1 = -# 4417 "parsing/parser.mly" +# 4418 "parsing/parser.mly" ( Mode.empty ) -# 56571 "parsing/parser.ml" +# 56601 "parsing/parser.ml" in let gbl = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4865 "parsing/parser.mly" +# 4866 "parsing/parser.mly" ( Mode.singleton (Mode.Const.mk "global" (make_loc _sloc)) ) -# 56580 "parsing/parser.ml" +# 56610 "parsing/parser.ml" in -# 4056 "parsing/parser.mly" +# 4057 "parsing/parser.mly" ( let m = Mode.concat gbl m1 in mktyp_with_modes m cty ) -# 56589 "parsing/parser.ml" +# 56619 "parsing/parser.ml" in # 1350 "parsing/parser.mly" ( x :: xs ) -# 56595 "parsing/parser.ml" +# 56625 "parsing/parser.ml" in # 1354 "parsing/parser.mly" ( xs ) -# 56601 "parsing/parser.ml" +# 56631 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56652,9 +56682,9 @@ module Tables = struct let m1 = let _1 = _1_inlined1 in -# 4418 "parsing/parser.mly" +# 4419 "parsing/parser.mly" (_1) -# 56658 "parsing/parser.ml" +# 56688 "parsing/parser.ml" in let gbl = @@ -56662,30 +56692,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4865 "parsing/parser.mly" +# 4866 "parsing/parser.mly" ( Mode.singleton (Mode.Const.mk "global" (make_loc _sloc)) ) -# 56668 "parsing/parser.ml" +# 56698 "parsing/parser.ml" in -# 4056 "parsing/parser.mly" +# 4057 "parsing/parser.mly" ( let m = Mode.concat gbl m1 in mktyp_with_modes m cty ) -# 56677 "parsing/parser.ml" +# 56707 "parsing/parser.ml" in # 1350 "parsing/parser.mly" ( x :: xs ) -# 56683 "parsing/parser.ml" +# 56713 "parsing/parser.ml" in # 1354 "parsing/parser.mly" ( xs ) -# 56689 "parsing/parser.ml" +# 56719 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56709,20 +56739,20 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : ((string option * Parsetree.core_type) list) = let xs = let x = -# 4461 "parsing/parser.mly" +# 4462 "parsing/parser.mly" ( None, _1 ) -# 56715 "parsing/parser.ml" +# 56745 "parsing/parser.ml" in # 1346 "parsing/parser.mly" ( [ x ] ) -# 56720 "parsing/parser.ml" +# 56750 "parsing/parser.ml" in # 1354 "parsing/parser.mly" ( xs ) -# 56726 "parsing/parser.ml" +# 56756 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56757,27 +56787,27 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 56761 "parsing/parser.ml" +# 56791 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in let _endpos = _endpos_ty_ in let _v : ((string option * Parsetree.core_type) list) = let xs = let x = -# 4463 "parsing/parser.mly" +# 4464 "parsing/parser.mly" ( Some label, ty ) -# 56770 "parsing/parser.ml" +# 56800 "parsing/parser.ml" in # 1346 "parsing/parser.mly" ( [ x ] ) -# 56775 "parsing/parser.ml" +# 56805 "parsing/parser.ml" in # 1354 "parsing/parser.mly" ( xs ) -# 56781 "parsing/parser.ml" +# 56811 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56815,20 +56845,20 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : ((string option * Parsetree.core_type) list) = let xs = let x = -# 4461 "parsing/parser.mly" +# 4462 "parsing/parser.mly" ( None, _1 ) -# 56821 "parsing/parser.ml" +# 56851 "parsing/parser.ml" in # 1350 "parsing/parser.mly" ( x :: xs ) -# 56826 "parsing/parser.ml" +# 56856 "parsing/parser.ml" in # 1354 "parsing/parser.mly" ( xs ) -# 56832 "parsing/parser.ml" +# 56862 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56875,7 +56905,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 56879 "parsing/parser.ml" +# 56909 "parsing/parser.ml" ) = Obj.magic label in let _2 : unit = Obj.magic _2 in let xs : ((string option * Parsetree.core_type) list) = Obj.magic xs in @@ -56884,20 +56914,20 @@ module Tables = struct let _endpos = _endpos_ty_ in let _v : ((string option * Parsetree.core_type) list) = let xs = let x = -# 4463 "parsing/parser.mly" +# 4464 "parsing/parser.mly" ( Some label, ty ) -# 56890 "parsing/parser.ml" +# 56920 "parsing/parser.ml" in # 1350 "parsing/parser.mly" ( x :: xs ) -# 56895 "parsing/parser.ml" +# 56925 "parsing/parser.ml" in # 1354 "parsing/parser.mly" ( xs ) -# 56901 "parsing/parser.ml" +# 56931 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56936,7 +56966,7 @@ module Tables = struct let _v : (Parsetree.core_type list) = # 1377 "parsing/parser.mly" ( x :: xs ) -# 56940 "parsing/parser.ml" +# 56970 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56975,7 +57005,7 @@ module Tables = struct let _v : (Parsetree.core_type list) = # 1381 "parsing/parser.mly" ( [ x2; x1 ] ) -# 56979 "parsing/parser.ml" +# 57009 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56998,9 +57028,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.row_field) = -# 4553 "parsing/parser.mly" +# 4554 "parsing/parser.mly" ( _1 ) -# 57004 "parsing/parser.ml" +# 57034 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57026,9 +57056,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4555 "parsing/parser.mly" +# 4556 "parsing/parser.mly" ( Rf.inherit_ ~loc:(make_loc _sloc) _1 ) -# 57032 "parsing/parser.ml" +# 57062 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57053,24 +57083,24 @@ module Tables = struct let _v : (Parsetree.expression list) = let _2 = # 124 "" ( None ) -# 57057 "parsing/parser.ml" +# 57087 "parsing/parser.ml" in let x = let _1 = # 2574 "parsing/parser.mly" ( _1 ) -# 57063 "parsing/parser.ml" +# 57093 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 57068 "parsing/parser.ml" +# 57098 "parsing/parser.ml" in # 1398 "parsing/parser.mly" ( [x] ) -# 57074 "parsing/parser.ml" +# 57104 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57102,24 +57132,24 @@ module Tables = struct let _v : (Parsetree.expression list) = let _2 = # 126 "" ( Some x ) -# 57106 "parsing/parser.ml" +# 57136 "parsing/parser.ml" in let x = let _1 = # 2574 "parsing/parser.mly" ( _1 ) -# 57112 "parsing/parser.ml" +# 57142 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 57117 "parsing/parser.ml" +# 57147 "parsing/parser.ml" in # 1398 "parsing/parser.mly" ( [x] ) -# 57123 "parsing/parser.ml" +# 57153 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57165,7 +57195,7 @@ module Tables = struct let _v : (Parsetree.expression list) = let _2 = # 124 "" ( None ) -# 57169 "parsing/parser.ml" +# 57199 "parsing/parser.ml" in let x = let _1 = @@ -57174,18 +57204,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 57178 "parsing/parser.ml" +# 57208 "parsing/parser.ml" in # 1423 "parsing/parser.mly" ( xs ) -# 57183 "parsing/parser.ml" +# 57213 "parsing/parser.ml" in # 3265 "parsing/parser.mly" ( xs ) -# 57189 "parsing/parser.ml" +# 57219 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in @@ -57194,15 +57224,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 57200 "parsing/parser.ml" +# 57230 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 57206 "parsing/parser.ml" +# 57236 "parsing/parser.ml" in let _endpos = _endpos__3_ in @@ -57215,19 +57245,19 @@ module Tables = struct mkfunction [] None (Pfunction_cases (cases, loc, [])) ~loc:_sloc ~attrs:_2 ) -# 57219 "parsing/parser.ml" +# 57249 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 57225 "parsing/parser.ml" +# 57255 "parsing/parser.ml" in # 1398 "parsing/parser.mly" ( [x] ) -# 57231 "parsing/parser.ml" +# 57261 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57280,7 +57310,7 @@ module Tables = struct let _v : (Parsetree.expression list) = let _2 = # 126 "" ( Some x ) -# 57284 "parsing/parser.ml" +# 57314 "parsing/parser.ml" in let x = let _1 = @@ -57289,18 +57319,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 57293 "parsing/parser.ml" +# 57323 "parsing/parser.ml" in # 1423 "parsing/parser.mly" ( xs ) -# 57298 "parsing/parser.ml" +# 57328 "parsing/parser.ml" in # 3265 "parsing/parser.mly" ( xs ) -# 57304 "parsing/parser.ml" +# 57334 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in @@ -57309,15 +57339,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 57315 "parsing/parser.ml" +# 57345 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 57321 "parsing/parser.ml" +# 57351 "parsing/parser.ml" in let _endpos = _endpos__3_ in @@ -57330,19 +57360,19 @@ module Tables = struct mkfunction [] None (Pfunction_cases (cases, loc, [])) ~loc:_sloc ~attrs:_2 ) -# 57334 "parsing/parser.ml" +# 57364 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 57340 "parsing/parser.ml" +# 57370 "parsing/parser.ml" in # 1398 "parsing/parser.mly" ( [x] ) -# 57346 "parsing/parser.ml" +# 57376 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57382,18 +57412,18 @@ module Tables = struct let _1 = # 2574 "parsing/parser.mly" ( _1 ) -# 57386 "parsing/parser.ml" +# 57416 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 57391 "parsing/parser.ml" +# 57421 "parsing/parser.ml" in # 1402 "parsing/parser.mly" ( x :: xs ) -# 57397 "parsing/parser.ml" +# 57427 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57458,18 +57488,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 57462 "parsing/parser.ml" +# 57492 "parsing/parser.ml" in # 1423 "parsing/parser.mly" ( xs ) -# 57467 "parsing/parser.ml" +# 57497 "parsing/parser.ml" in # 3265 "parsing/parser.mly" ( xs ) -# 57473 "parsing/parser.ml" +# 57503 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in @@ -57478,15 +57508,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 57484 "parsing/parser.ml" +# 57514 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 57490 "parsing/parser.ml" +# 57520 "parsing/parser.ml" in let _endpos = _endpos__3_ in @@ -57499,19 +57529,19 @@ module Tables = struct mkfunction [] None (Pfunction_cases (cases, loc, [])) ~loc:_sloc ~attrs:_2 ) -# 57503 "parsing/parser.ml" +# 57533 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 57509 "parsing/parser.ml" +# 57539 "parsing/parser.ml" in # 1402 "parsing/parser.mly" ( x :: xs ) -# 57515 "parsing/parser.ml" +# 57545 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57539,7 +57569,7 @@ module Tables = struct let _1 : ( # 1016 "parsing/parser.mly" (string) -# 57543 "parsing/parser.ml" +# 57573 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -57547,14 +57577,14 @@ module Tables = struct let _v : ((Asttypes.label Asttypes.loc * Parsetree.expression) list) = let _2 = # 124 "" ( None ) -# 57551 "parsing/parser.ml" +# 57581 "parsing/parser.ml" in let x = let label = let _1 = -# 4617 "parsing/parser.mly" +# 4618 "parsing/parser.mly" ( _1 ) -# 57558 "parsing/parser.ml" +# 57588 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -57562,7 +57592,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 57566 "parsing/parser.ml" +# 57596 "parsing/parser.ml" in @@ -57576,13 +57606,13 @@ module Tables = struct label, e in label, e ) -# 57580 "parsing/parser.ml" +# 57610 "parsing/parser.ml" in # 1398 "parsing/parser.mly" ( [x] ) -# 57586 "parsing/parser.ml" +# 57616 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57617,7 +57647,7 @@ module Tables = struct let _1 : ( # 1016 "parsing/parser.mly" (string) -# 57621 "parsing/parser.ml" +# 57651 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -57625,14 +57655,14 @@ module Tables = struct let _v : ((Asttypes.label Asttypes.loc * Parsetree.expression) list) = let _2 = # 126 "" ( Some x ) -# 57629 "parsing/parser.ml" +# 57659 "parsing/parser.ml" in let x = let label = let _1 = -# 4617 "parsing/parser.mly" +# 4618 "parsing/parser.mly" ( _1 ) -# 57636 "parsing/parser.ml" +# 57666 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -57640,7 +57670,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 57644 "parsing/parser.ml" +# 57674 "parsing/parser.ml" in @@ -57654,13 +57684,13 @@ module Tables = struct label, e in label, e ) -# 57658 "parsing/parser.ml" +# 57688 "parsing/parser.ml" in # 1398 "parsing/parser.mly" ( [x] ) -# 57664 "parsing/parser.ml" +# 57694 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57702,7 +57732,7 @@ module Tables = struct let _1 : ( # 1016 "parsing/parser.mly" (string) -# 57706 "parsing/parser.ml" +# 57736 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -57710,9 +57740,9 @@ module Tables = struct let _v : ((Asttypes.label Asttypes.loc * Parsetree.expression) list) = let x = let label = let _1 = -# 4617 "parsing/parser.mly" +# 4618 "parsing/parser.mly" ( _1 ) -# 57716 "parsing/parser.ml" +# 57746 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -57720,7 +57750,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 57724 "parsing/parser.ml" +# 57754 "parsing/parser.ml" in @@ -57734,13 +57764,13 @@ module Tables = struct label, e in label, e ) -# 57738 "parsing/parser.ml" +# 57768 "parsing/parser.ml" in # 1402 "parsing/parser.mly" ( x :: xs ) -# 57744 "parsing/parser.ml" +# 57774 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57765,12 +57795,12 @@ module Tables = struct let _v : (Parsetree.pattern list) = let _2 = # 124 "" ( None ) -# 57769 "parsing/parser.ml" +# 57799 "parsing/parser.ml" in # 1398 "parsing/parser.mly" ( [x] ) -# 57774 "parsing/parser.ml" +# 57804 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57804,13 +57834,13 @@ module Tables = struct # 126 "" ( Some x ) -# 57808 "parsing/parser.ml" +# 57838 "parsing/parser.ml" in # 1398 "parsing/parser.mly" ( [x] ) -# 57814 "parsing/parser.ml" +# 57844 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57849,7 +57879,7 @@ module Tables = struct let _v : (Parsetree.pattern list) = # 1402 "parsing/parser.mly" ( x :: xs ) -# 57853 "parsing/parser.ml" +# 57883 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57888,7 +57918,7 @@ module Tables = struct let _v : ((Longident.t Asttypes.loc * Parsetree.expression) list) = let _2 = # 124 "" ( None ) -# 57892 "parsing/parser.ml" +# 57922 "parsing/parser.ml" in let x = let label = @@ -57898,7 +57928,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 57902 "parsing/parser.ml" +# 57932 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in @@ -57916,13 +57946,13 @@ module Tables = struct (_startpos_c_, _endpos), label, e in label, mkexp_opt_type_constraint ~loc:constraint_loc e c ) -# 57920 "parsing/parser.ml" +# 57950 "parsing/parser.ml" in # 1398 "parsing/parser.mly" ( [x] ) -# 57926 "parsing/parser.ml" +# 57956 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57968,7 +57998,7 @@ module Tables = struct let _v : ((Longident.t Asttypes.loc * Parsetree.expression) list) = let _2 = # 126 "" ( Some x ) -# 57972 "parsing/parser.ml" +# 58002 "parsing/parser.ml" in let x = let label = @@ -57978,7 +58008,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 57982 "parsing/parser.ml" +# 58012 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in @@ -57996,13 +58026,13 @@ module Tables = struct (_startpos_c_, _endpos), label, e in label, mkexp_opt_type_constraint ~loc:constraint_loc e c ) -# 58000 "parsing/parser.ml" +# 58030 "parsing/parser.ml" in # 1398 "parsing/parser.mly" ( [x] ) -# 58006 "parsing/parser.ml" +# 58036 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -58060,7 +58090,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 58064 "parsing/parser.ml" +# 58094 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in @@ -58078,13 +58108,13 @@ module Tables = struct (_startpos_c_, _endpos), label, e in label, mkexp_opt_type_constraint ~loc:constraint_loc e c ) -# 58082 "parsing/parser.ml" +# 58112 "parsing/parser.ml" in # 1402 "parsing/parser.mly" ( x :: xs ) -# 58088 "parsing/parser.ml" +# 58118 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -58109,12 +58139,12 @@ module Tables = struct let _v : (Parsetree.expression) = let _1 = # 2574 "parsing/parser.mly" ( _1 ) -# 58113 "parsing/parser.ml" +# 58143 "parsing/parser.ml" in # 2603 "parsing/parser.mly" ( _1 ) -# 58118 "parsing/parser.ml" +# 58148 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -58163,18 +58193,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 58167 "parsing/parser.ml" +# 58197 "parsing/parser.ml" in # 1423 "parsing/parser.mly" ( xs ) -# 58172 "parsing/parser.ml" +# 58202 "parsing/parser.ml" in # 3265 "parsing/parser.mly" ( xs ) -# 58178 "parsing/parser.ml" +# 58208 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in @@ -58183,15 +58213,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 58189 "parsing/parser.ml" +# 58219 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 58195 "parsing/parser.ml" +# 58225 "parsing/parser.ml" in let _endpos = _endpos__3_ in @@ -58204,13 +58234,13 @@ module Tables = struct mkfunction [] None (Pfunction_cases (cases, loc, [])) ~loc:_sloc ~attrs:_2 ) -# 58208 "parsing/parser.ml" +# 58238 "parsing/parser.ml" in # 2603 "parsing/parser.mly" ( _1 ) -# 58214 "parsing/parser.ml" +# 58244 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -58278,18 +58308,18 @@ module Tables = struct let _v : (Parsetree.type_exception * string Asttypes.loc option) = let attrs = let _1 = _1_inlined4 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 58284 "parsing/parser.ml" +# 58314 "parsing/parser.ml" in let _endpos_attrs_ = _endpos__1_inlined4_ in let attrs2 = let _1 = _1_inlined3 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 58293 "parsing/parser.ml" +# 58323 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -58301,15 +58331,15 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 58305 "parsing/parser.ml" +# 58335 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 58313 "parsing/parser.ml" +# 58343 "parsing/parser.ml" in let _endpos = _endpos_attrs_ in @@ -58317,7 +58347,7 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4021 "parsing/parser.mly" +# 4022 "parsing/parser.mly" ( let vars_jkinds, args, res = vars_args_res in let loc = make_loc (_startpos, _endpos_attrs2_) in let docs = symbol_docs _sloc in @@ -58327,7 +58357,7 @@ module Tables = struct (Jext_layout (Lext_decl (vars_jkinds, args, res))) in Te.mk_exception ~attrs ext_ctor, ext ) -# 58331 "parsing/parser.ml" +# 58361 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -58353,7 +58383,7 @@ module Tables = struct let _1 = # 260 "" ( List.flatten xss ) -# 58357 "parsing/parser.ml" +# 58387 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in @@ -58361,13 +58391,13 @@ module Tables = struct # 1198 "parsing/parser.mly" ( extra_sig _startpos _endpos _1 ) -# 58365 "parsing/parser.ml" +# 58395 "parsing/parser.ml" in # 2006 "parsing/parser.mly" ( _1 ) -# 58371 "parsing/parser.ml" +# 58401 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -58399,9 +58429,9 @@ module Tables = struct let _v : (Parsetree.signature_item) = let _2 = let _1 = _1_inlined1 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 58405 "parsing/parser.ml" +# 58435 "parsing/parser.ml" in let _endpos__2_ = _endpos__1_inlined1_ in @@ -58412,7 +58442,7 @@ module Tables = struct # 2021 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mksig ~loc:_sloc (Psig_extension (_1, (add_docs_attrs docs _2))) ) -# 58416 "parsing/parser.ml" +# 58446 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -58438,7 +58468,7 @@ module Tables = struct let _1 = # 2025 "parsing/parser.mly" ( Psig_attribute _1 ) -# 58442 "parsing/parser.ml" +# 58472 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -58446,13 +58476,13 @@ module Tables = struct # 1246 "parsing/parser.mly" ( mksig ~loc:_sloc _1 ) -# 58450 "parsing/parser.ml" +# 58480 "parsing/parser.ml" in # 2027 "parsing/parser.mly" ( _1 ) -# 58456 "parsing/parser.ml" +# 58486 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -58478,7 +58508,7 @@ module Tables = struct let _1 = # 2030 "parsing/parser.mly" ( psig_value _1 ) -# 58482 "parsing/parser.ml" +# 58512 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -58486,13 +58516,13 @@ module Tables = struct # 1263 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 58490 "parsing/parser.ml" +# 58520 "parsing/parser.ml" in # 2060 "parsing/parser.mly" ( _1 ) -# 58496 "parsing/parser.ml" +# 58526 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -58518,7 +58548,7 @@ module Tables = struct let _1 = # 2032 "parsing/parser.mly" ( psig_value _1 ) -# 58522 "parsing/parser.ml" +# 58552 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -58526,13 +58556,13 @@ module Tables = struct # 1263 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 58530 "parsing/parser.ml" +# 58560 "parsing/parser.ml" in # 2060 "parsing/parser.mly" ( _1 ) -# 58536 "parsing/parser.ml" +# 58566 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -58569,24 +58599,24 @@ module Tables = struct let _1 = # 1459 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 58573 "parsing/parser.ml" +# 58603 "parsing/parser.ml" in -# 3776 "parsing/parser.mly" +# 3777 "parsing/parser.mly" ( _1 ) -# 58578 "parsing/parser.ml" +# 58608 "parsing/parser.ml" in -# 3759 "parsing/parser.mly" +# 3760 "parsing/parser.mly" ( _1 ) -# 58584 "parsing/parser.ml" +# 58614 "parsing/parser.ml" in # 2034 "parsing/parser.mly" ( psig_type _1 ) -# 58590 "parsing/parser.ml" +# 58620 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_bs_, _startpos_a_) in @@ -58596,13 +58626,13 @@ module Tables = struct # 1263 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 58600 "parsing/parser.ml" +# 58630 "parsing/parser.ml" in # 2060 "parsing/parser.mly" ( _1 ) -# 58606 "parsing/parser.ml" +# 58636 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -58639,24 +58669,24 @@ module Tables = struct let _1 = # 1459 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 58643 "parsing/parser.ml" +# 58673 "parsing/parser.ml" in -# 3776 "parsing/parser.mly" +# 3777 "parsing/parser.mly" ( _1 ) -# 58648 "parsing/parser.ml" +# 58678 "parsing/parser.ml" in -# 3764 "parsing/parser.mly" +# 3765 "parsing/parser.mly" ( _1 ) -# 58654 "parsing/parser.ml" +# 58684 "parsing/parser.ml" in # 2036 "parsing/parser.mly" ( psig_typesubst _1 ) -# 58660 "parsing/parser.ml" +# 58690 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_bs_, _startpos_a_) in @@ -58666,13 +58696,13 @@ module Tables = struct # 1263 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 58670 "parsing/parser.ml" +# 58700 "parsing/parser.ml" in # 2060 "parsing/parser.mly" ( _1 ) -# 58676 "parsing/parser.ml" +# 58706 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -58757,16 +58787,16 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 58763 "parsing/parser.ml" +# 58793 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let cs = # 1451 "parsing/parser.mly" ( List.rev xs ) -# 58770 "parsing/parser.ml" +# 58800 "parsing/parser.ml" in let tid = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in @@ -58776,44 +58806,44 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 58780 "parsing/parser.ml" +# 58810 "parsing/parser.ml" in let _4 = -# 4834 "parsing/parser.mly" +# 4835 "parsing/parser.mly" ( Recursive ) -# 58786 "parsing/parser.ml" +# 58816 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 58793 "parsing/parser.ml" +# 58823 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4117 "parsing/parser.mly" +# 4118 "parsing/parser.mly" ( let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in Te.mk tid cs ~params ~priv ~attrs ~docs, ext ) -# 58805 "parsing/parser.ml" +# 58835 "parsing/parser.ml" in -# 4104 "parsing/parser.mly" +# 4105 "parsing/parser.mly" ( _1 ) -# 58811 "parsing/parser.ml" +# 58841 "parsing/parser.ml" in # 2038 "parsing/parser.mly" ( psig_typext _1 ) -# 58817 "parsing/parser.ml" +# 58847 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined3_ in @@ -58823,13 +58853,13 @@ module Tables = struct # 1263 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 58827 "parsing/parser.ml" +# 58857 "parsing/parser.ml" in # 2060 "parsing/parser.mly" ( _1 ) -# 58833 "parsing/parser.ml" +# 58863 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -58921,16 +58951,16 @@ module Tables = struct let attrs2 = let _1 = _1_inlined4 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 58927 "parsing/parser.ml" +# 58957 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in let cs = # 1451 "parsing/parser.mly" ( List.rev xs ) -# 58934 "parsing/parser.ml" +# 58964 "parsing/parser.ml" in let tid = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in @@ -58940,7 +58970,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 58944 "parsing/parser.ml" +# 58974 "parsing/parser.ml" in let _4 = @@ -58949,41 +58979,41 @@ module Tables = struct let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in -# 4836 "parsing/parser.mly" +# 4837 "parsing/parser.mly" ( not_expecting _loc "nonrec flag" ) -# 58955 "parsing/parser.ml" +# 58985 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 58963 "parsing/parser.ml" +# 58993 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4117 "parsing/parser.mly" +# 4118 "parsing/parser.mly" ( let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in Te.mk tid cs ~params ~priv ~attrs ~docs, ext ) -# 58975 "parsing/parser.ml" +# 59005 "parsing/parser.ml" in -# 4104 "parsing/parser.mly" +# 4105 "parsing/parser.mly" ( _1 ) -# 58981 "parsing/parser.ml" +# 59011 "parsing/parser.ml" in # 2038 "parsing/parser.mly" ( psig_typext _1 ) -# 58987 "parsing/parser.ml" +# 59017 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined4_ in @@ -58993,13 +59023,13 @@ module Tables = struct # 1263 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 58997 "parsing/parser.ml" +# 59027 "parsing/parser.ml" in # 2060 "parsing/parser.mly" ( _1 ) -# 59003 "parsing/parser.ml" +# 59033 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -59025,7 +59055,7 @@ module Tables = struct let _1 = # 2040 "parsing/parser.mly" ( psig_exception _1 ) -# 59029 "parsing/parser.ml" +# 59059 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -59033,13 +59063,13 @@ module Tables = struct # 1263 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 59037 "parsing/parser.ml" +# 59067 "parsing/parser.ml" in # 2060 "parsing/parser.mly" ( _1 ) -# 59043 "parsing/parser.ml" +# 59073 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -59102,9 +59132,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 59108 "parsing/parser.ml" +# 59138 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -59116,15 +59146,15 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 59120 "parsing/parser.ml" +# 59150 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 59128 "parsing/parser.ml" +# 59158 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in @@ -59138,13 +59168,13 @@ module Tables = struct let docs = symbol_docs _sloc in Md.mk name body ~attrs ~loc ~docs, ext ) -# 59142 "parsing/parser.ml" +# 59172 "parsing/parser.ml" in # 2042 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_module body, ext) ) -# 59148 "parsing/parser.ml" +# 59178 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined3_ in @@ -59154,13 +59184,13 @@ module Tables = struct # 1263 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 59158 "parsing/parser.ml" +# 59188 "parsing/parser.ml" in # 2060 "parsing/parser.mly" ( _1 ) -# 59164 "parsing/parser.ml" +# 59194 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -59230,9 +59260,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined4 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 59236 "parsing/parser.ml" +# 59266 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in @@ -59245,7 +59275,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 59249 "parsing/parser.ml" +# 59279 "parsing/parser.ml" in let (_endpos_id_, _startpos_id_) = (_endpos__1_, _startpos__1_) in @@ -59255,7 +59285,7 @@ module Tables = struct # 2124 "parsing/parser.mly" ( Mty.alias ~loc:(make_loc _sloc) id ) -# 59259 "parsing/parser.ml" +# 59289 "parsing/parser.ml" in let name = @@ -59266,15 +59296,15 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 59270 "parsing/parser.ml" +# 59300 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 59278 "parsing/parser.ml" +# 59308 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in @@ -59288,13 +59318,13 @@ module Tables = struct let docs = symbol_docs _sloc in Md.mk name body ~attrs ~loc ~docs, ext ) -# 59292 "parsing/parser.ml" +# 59322 "parsing/parser.ml" in # 2044 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_module body, ext) ) -# 59298 "parsing/parser.ml" +# 59328 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined4_ in @@ -59304,13 +59334,13 @@ module Tables = struct # 1263 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 59308 "parsing/parser.ml" +# 59338 "parsing/parser.ml" in # 2060 "parsing/parser.mly" ( _1 ) -# 59314 "parsing/parser.ml" +# 59344 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -59336,7 +59366,7 @@ module Tables = struct let _1 = # 2046 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_modsubst body, ext) ) -# 59340 "parsing/parser.ml" +# 59370 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -59344,13 +59374,13 @@ module Tables = struct # 1263 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 59348 "parsing/parser.ml" +# 59378 "parsing/parser.ml" in # 2060 "parsing/parser.mly" ( _1 ) -# 59354 "parsing/parser.ml" +# 59384 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -59436,9 +59466,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 59442 "parsing/parser.ml" +# 59472 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -59450,15 +59480,15 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 59454 "parsing/parser.ml" +# 59484 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 59462 "parsing/parser.ml" +# 59492 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in @@ -59472,25 +59502,25 @@ module Tables = struct let docs = symbol_docs _sloc in ext, Md.mk name mty ~attrs ~loc ~docs ) -# 59476 "parsing/parser.ml" +# 59506 "parsing/parser.ml" in # 1459 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 59482 "parsing/parser.ml" +# 59512 "parsing/parser.ml" in # 2147 "parsing/parser.mly" ( _1 ) -# 59488 "parsing/parser.ml" +# 59518 "parsing/parser.ml" in # 2048 "parsing/parser.mly" ( let (ext, l) = _1 in (Psig_recmodule l, ext) ) -# 59494 "parsing/parser.ml" +# 59524 "parsing/parser.ml" in let _endpos__1_ = _endpos_bs_ in @@ -59500,13 +59530,13 @@ module Tables = struct # 1263 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 59504 "parsing/parser.ml" +# 59534 "parsing/parser.ml" in # 2060 "parsing/parser.mly" ( _1 ) -# 59510 "parsing/parser.ml" +# 59540 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -59532,7 +59562,7 @@ module Tables = struct let _1 = # 2050 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_modtype body, ext) ) -# 59536 "parsing/parser.ml" +# 59566 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -59540,13 +59570,13 @@ module Tables = struct # 1263 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 59544 "parsing/parser.ml" +# 59574 "parsing/parser.ml" in # 2060 "parsing/parser.mly" ( _1 ) -# 59550 "parsing/parser.ml" +# 59580 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -59572,7 +59602,7 @@ module Tables = struct let _1 = # 2052 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_modtypesubst body, ext) ) -# 59576 "parsing/parser.ml" +# 59606 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -59580,13 +59610,13 @@ module Tables = struct # 1263 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 59584 "parsing/parser.ml" +# 59614 "parsing/parser.ml" in # 2060 "parsing/parser.mly" ( _1 ) -# 59590 "parsing/parser.ml" +# 59620 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -59612,7 +59642,7 @@ module Tables = struct let _1 = # 2054 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_open body, ext) ) -# 59616 "parsing/parser.ml" +# 59646 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -59620,13 +59650,13 @@ module Tables = struct # 1263 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 59624 "parsing/parser.ml" +# 59654 "parsing/parser.ml" in # 2060 "parsing/parser.mly" ( _1 ) -# 59630 "parsing/parser.ml" +# 59660 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -59705,7 +59735,7 @@ module Tables = struct let _1_inlined2 : ( # 1016 "parsing/parser.mly" (string) -# 59709 "parsing/parser.ml" +# 59739 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let params : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic params in let virt : (Asttypes.virtual_flag) = Obj.magic virt in @@ -59723,9 +59753,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 59729 "parsing/parser.ml" +# 59759 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -59737,15 +59767,15 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 59741 "parsing/parser.ml" +# 59771 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 59749 "parsing/parser.ml" +# 59779 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in @@ -59760,25 +59790,25 @@ module Tables = struct ext, Ci.mk id cty ~virt ~params ~attrs ~loc ~docs ) -# 59764 "parsing/parser.ml" +# 59794 "parsing/parser.ml" in # 1459 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 59770 "parsing/parser.ml" +# 59800 "parsing/parser.ml" in # 2493 "parsing/parser.mly" ( _1 ) -# 59776 "parsing/parser.ml" +# 59806 "parsing/parser.ml" in # 2056 "parsing/parser.mly" ( let (ext, l) = _1 in (Psig_class l, ext) ) -# 59782 "parsing/parser.ml" +# 59812 "parsing/parser.ml" in let _endpos__1_ = _endpos_bs_ in @@ -59788,13 +59818,13 @@ module Tables = struct # 1263 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 59792 "parsing/parser.ml" +# 59822 "parsing/parser.ml" in # 2060 "parsing/parser.mly" ( _1 ) -# 59798 "parsing/parser.ml" +# 59828 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -59820,7 +59850,7 @@ module Tables = struct let _1 = # 2058 "parsing/parser.mly" ( let (ext, l) = _1 in (Psig_class_type l, ext) ) -# 59824 "parsing/parser.ml" +# 59854 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -59828,13 +59858,13 @@ module Tables = struct # 1263 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 59832 "parsing/parser.ml" +# 59862 "parsing/parser.ml" in # 2060 "parsing/parser.mly" ( _1 ) -# 59838 "parsing/parser.ml" +# 59868 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -59888,16 +59918,16 @@ module Tables = struct let attrs2 = let _1 = _1_inlined1 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 59894 "parsing/parser.ml" +# 59924 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined1_ in let attrs1 = -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 59901 "parsing/parser.ml" +# 59931 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos_is_functor_ in @@ -59911,7 +59941,7 @@ module Tables = struct let incl = Incl.mk thing ~attrs ~loc ~docs in is_functor, incl, ext ) -# 59915 "parsing/parser.ml" +# 59945 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_is_functor_) in @@ -59929,7 +59959,7 @@ module Tables = struct in wrap_sig_ext ~loc:_sloc item ext ) -# 59933 "parsing/parser.ml" +# 59963 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -59958,7 +59988,7 @@ module Tables = struct ignore (name, jkind); Misc.fatal_error "jkind syntax not implemented" ) -# 59962 "parsing/parser.ml" +# 59992 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -59981,9 +60011,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Constant.t) = -# 4645 "parsing/parser.mly" +# 4646 "parsing/parser.mly" ( Constant.value _1 ) -# 59987 "parsing/parser.ml" +# 60017 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -60006,9 +60036,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Constant.t) = -# 4646 "parsing/parser.mly" +# 4647 "parsing/parser.mly" ( _1 ) -# 60012 "parsing/parser.ml" +# 60042 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -60035,7 +60065,7 @@ module Tables = struct let _2 : ( # 999 "parsing/parser.mly" (string * char option) -# 60039 "parsing/parser.ml" +# 60069 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -60046,9 +60076,9 @@ module Tables = struct let _loc__2_ = (_startpos__2_, _endpos__2_) in let _sloc = (_symbolstartpos, _endpos) in -# 4647 "parsing/parser.mly" +# 4648 "parsing/parser.mly" ( unboxed_int _sloc _loc__2_ Negative _2 ) -# 60052 "parsing/parser.ml" +# 60082 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -60075,7 +60105,7 @@ module Tables = struct let _2 : ( # 974 "parsing/parser.mly" (string * char option) -# 60079 "parsing/parser.ml" +# 60109 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -60085,9 +60115,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4648 "parsing/parser.mly" +# 4649 "parsing/parser.mly" ( unboxed_float _sloc Negative _2 ) -# 60091 "parsing/parser.ml" +# 60121 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -60114,7 +60144,7 @@ module Tables = struct let _2 : ( # 999 "parsing/parser.mly" (string * char option) -# 60118 "parsing/parser.ml" +# 60148 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -60125,9 +60155,9 @@ module Tables = struct let _loc__2_ = (_startpos__2_, _endpos__2_) in let _sloc = (_symbolstartpos, _endpos) in -# 4649 "parsing/parser.mly" +# 4650 "parsing/parser.mly" ( unboxed_int _sloc _loc__2_ Positive _2 ) -# 60131 "parsing/parser.ml" +# 60161 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -60154,7 +60184,7 @@ module Tables = struct let _2 : ( # 974 "parsing/parser.mly" (string * char option) -# 60158 "parsing/parser.ml" +# 60188 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -60164,9 +60194,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4650 "parsing/parser.mly" +# 4651 "parsing/parser.mly" ( unboxed_float _sloc Positive _2 ) -# 60170 "parsing/parser.ml" +# 60200 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -60189,9 +60219,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.constant) = -# 4638 "parsing/parser.mly" +# 4639 "parsing/parser.mly" ( _1 ) -# 60195 "parsing/parser.ml" +# 60225 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -60218,16 +60248,16 @@ module Tables = struct let _2 : ( # 998 "parsing/parser.mly" (string * char option) -# 60222 "parsing/parser.ml" +# 60252 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.constant) = -# 4639 "parsing/parser.mly" +# 4640 "parsing/parser.mly" ( let (n, m) = _2 in Pconst_integer("-" ^ n, m) ) -# 60231 "parsing/parser.ml" +# 60261 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -60254,16 +60284,16 @@ module Tables = struct let _2 : ( # 973 "parsing/parser.mly" (string * char option) -# 60258 "parsing/parser.ml" +# 60288 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.constant) = -# 4640 "parsing/parser.mly" +# 4641 "parsing/parser.mly" ( let (f, m) = _2 in Pconst_float("-" ^ f, m) ) -# 60267 "parsing/parser.ml" +# 60297 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -60290,16 +60320,16 @@ module Tables = struct let _2 : ( # 998 "parsing/parser.mly" (string * char option) -# 60294 "parsing/parser.ml" +# 60324 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.constant) = -# 4641 "parsing/parser.mly" +# 4642 "parsing/parser.mly" ( let (n, m) = _2 in Pconst_integer (n, m) ) -# 60303 "parsing/parser.ml" +# 60333 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -60326,16 +60356,16 @@ module Tables = struct let _2 : ( # 973 "parsing/parser.mly" (string * char option) -# 60330 "parsing/parser.ml" +# 60360 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.constant) = -# 4642 "parsing/parser.mly" +# 4643 "parsing/parser.mly" ( let (f, m) = _2 in Pconst_float(f, m) ) -# 60339 "parsing/parser.ml" +# 60369 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -60376,18 +60406,18 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 3686 "parsing/parser.mly" +# 3687 "parsing/parser.mly" ( let fields, closed = _1 in let closed = match closed with Some () -> Open | None -> Closed in fields, closed ) -# 60384 "parsing/parser.ml" +# 60414 "parsing/parser.ml" in -# 3656 "parsing/parser.mly" +# 3657 "parsing/parser.mly" ( let (fields, closed) = _2 in Ppat_record(fields, closed) ) -# 60391 "parsing/parser.ml" +# 60421 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -60397,13 +60427,13 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 60401 "parsing/parser.ml" +# 60431 "parsing/parser.ml" in -# 3670 "parsing/parser.mly" +# 3671 "parsing/parser.mly" ( _1 ) -# 60407 "parsing/parser.ml" +# 60437 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -60444,19 +60474,19 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 3686 "parsing/parser.mly" +# 3687 "parsing/parser.mly" ( let fields, closed = _1 in let closed = match closed with Some () -> Open | None -> Closed in fields, closed ) -# 60452 "parsing/parser.ml" +# 60482 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 3659 "parsing/parser.mly" +# 3660 "parsing/parser.mly" ( unclosed "{" _loc__1_ "}" _loc__3_ ) -# 60460 "parsing/parser.ml" +# 60490 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -60466,13 +60496,13 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 60470 "parsing/parser.ml" +# 60500 "parsing/parser.ml" in -# 3670 "parsing/parser.mly" +# 3671 "parsing/parser.mly" ( _1 ) -# 60476 "parsing/parser.ml" +# 60506 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -60511,15 +60541,15 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = let _1 = let _2 = -# 3680 "parsing/parser.mly" +# 3681 "parsing/parser.mly" ( ps ) -# 60517 "parsing/parser.ml" +# 60547 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3661 "parsing/parser.mly" +# 3662 "parsing/parser.mly" ( fst (mktailpat _loc__3_ _2) ) -# 60523 "parsing/parser.ml" +# 60553 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -60529,13 +60559,13 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 60533 "parsing/parser.ml" +# 60563 "parsing/parser.ml" in -# 3670 "parsing/parser.mly" +# 3671 "parsing/parser.mly" ( _1 ) -# 60539 "parsing/parser.ml" +# 60569 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -60574,16 +60604,16 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = let _1 = let _2 = -# 3680 "parsing/parser.mly" +# 3681 "parsing/parser.mly" ( ps ) -# 60580 "parsing/parser.ml" +# 60610 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 3663 "parsing/parser.mly" +# 3664 "parsing/parser.mly" ( unclosed "[" _loc__1_ "]" _loc__3_ ) -# 60587 "parsing/parser.ml" +# 60617 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -60593,13 +60623,13 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 60597 "parsing/parser.ml" +# 60627 "parsing/parser.ml" in -# 3670 "parsing/parser.mly" +# 3671 "parsing/parser.mly" ( _1 ) -# 60603 "parsing/parser.ml" +# 60633 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -60640,30 +60670,30 @@ module Tables = struct let _1 = let _1 = let _2 = -# 3680 "parsing/parser.mly" +# 3681 "parsing/parser.mly" ( ps ) -# 60646 "parsing/parser.ml" +# 60676 "parsing/parser.ml" in # 2945 "parsing/parser.mly" ( Generic_array.Simple.Literal _2 ) -# 60651 "parsing/parser.ml" +# 60681 "parsing/parser.ml" in # 2969 "parsing/parser.mly" ( _1 ) -# 60657 "parsing/parser.ml" +# 60687 "parsing/parser.ml" in -# 3665 "parsing/parser.mly" +# 3666 "parsing/parser.mly" ( Generic_array.Pattern.to_ast "[|" "|]" (fun elts -> Ppat_array elts) _1 ) -# 60667 "parsing/parser.ml" +# 60697 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -60673,13 +60703,13 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 60677 "parsing/parser.ml" +# 60707 "parsing/parser.ml" in -# 3670 "parsing/parser.mly" +# 3671 "parsing/parser.mly" ( _1 ) -# 60683 "parsing/parser.ml" +# 60713 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -60720,32 +60750,32 @@ module Tables = struct let _1 = let _1 = let _2 = -# 3680 "parsing/parser.mly" +# 3681 "parsing/parser.mly" ( ps ) -# 60726 "parsing/parser.ml" +# 60756 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 2947 "parsing/parser.mly" ( Generic_array.Simple.Unclosed(_loc__1_,_loc__3_) ) -# 60733 "parsing/parser.ml" +# 60763 "parsing/parser.ml" in # 2969 "parsing/parser.mly" ( _1 ) -# 60739 "parsing/parser.ml" +# 60769 "parsing/parser.ml" in -# 3665 "parsing/parser.mly" +# 3666 "parsing/parser.mly" ( Generic_array.Pattern.to_ast "[|" "|]" (fun elts -> Ppat_array elts) _1 ) -# 60749 "parsing/parser.ml" +# 60779 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -60755,13 +60785,13 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 60759 "parsing/parser.ml" +# 60789 "parsing/parser.ml" in -# 3670 "parsing/parser.mly" +# 3671 "parsing/parser.mly" ( _1 ) -# 60765 "parsing/parser.ml" +# 60795 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -60796,22 +60826,22 @@ module Tables = struct let _1 = # 2949 "parsing/parser.mly" ( Generic_array.Simple.Literal [] ) -# 60800 "parsing/parser.ml" +# 60830 "parsing/parser.ml" in # 2969 "parsing/parser.mly" ( _1 ) -# 60805 "parsing/parser.ml" +# 60835 "parsing/parser.ml" in -# 3665 "parsing/parser.mly" +# 3666 "parsing/parser.mly" ( Generic_array.Pattern.to_ast "[|" "|]" (fun elts -> Ppat_array elts) _1 ) -# 60815 "parsing/parser.ml" +# 60845 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -60821,13 +60851,13 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 60825 "parsing/parser.ml" +# 60855 "parsing/parser.ml" in -# 3670 "parsing/parser.mly" +# 3671 "parsing/parser.mly" ( _1 ) -# 60831 "parsing/parser.ml" +# 60861 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -60866,20 +60896,20 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = let _1 = let _2 = -# 3680 "parsing/parser.mly" +# 3681 "parsing/parser.mly" ( ps ) -# 60872 "parsing/parser.ml" +# 60902 "parsing/parser.ml" in # 2945 "parsing/parser.mly" ( Generic_array.Simple.Literal _2 ) -# 60877 "parsing/parser.ml" +# 60907 "parsing/parser.ml" in # 2969 "parsing/parser.mly" ( _1 ) -# 60883 "parsing/parser.ml" +# 60913 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -60887,13 +60917,13 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3672 "parsing/parser.mly" +# 3673 "parsing/parser.mly" ( Generic_array.Pattern.to_ast "[:" ":]" (ppat_iarray _sloc) _1 ) -# 60897 "parsing/parser.ml" +# 60927 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -60932,22 +60962,22 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = let _1 = let _2 = -# 3680 "parsing/parser.mly" +# 3681 "parsing/parser.mly" ( ps ) -# 60938 "parsing/parser.ml" +# 60968 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 2947 "parsing/parser.mly" ( Generic_array.Simple.Unclosed(_loc__1_,_loc__3_) ) -# 60945 "parsing/parser.ml" +# 60975 "parsing/parser.ml" in # 2969 "parsing/parser.mly" ( _1 ) -# 60951 "parsing/parser.ml" +# 60981 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -60955,13 +60985,13 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3672 "parsing/parser.mly" +# 3673 "parsing/parser.mly" ( Generic_array.Pattern.to_ast "[:" ":]" (ppat_iarray _sloc) _1 ) -# 60965 "parsing/parser.ml" +# 60995 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -60994,12 +61024,12 @@ module Tables = struct let _1 = # 2949 "parsing/parser.mly" ( Generic_array.Simple.Literal [] ) -# 60998 "parsing/parser.ml" +# 61028 "parsing/parser.ml" in # 2969 "parsing/parser.mly" ( _1 ) -# 61003 "parsing/parser.ml" +# 61033 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -61007,13 +61037,13 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3672 "parsing/parser.mly" +# 3673 "parsing/parser.mly" ( Generic_array.Pattern.to_ast "[:" ":]" (ppat_iarray _sloc) _1 ) -# 61017 "parsing/parser.ml" +# 61047 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -61055,7 +61085,7 @@ module Tables = struct # 2836 "parsing/parser.mly" ( reloc_exp ~loc:_sloc _2 ) -# 61059 "parsing/parser.ml" +# 61089 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -61096,7 +61126,7 @@ module Tables = struct # 2838 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) -# 61100 "parsing/parser.ml" +# 61130 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -61142,14 +61172,14 @@ module Tables = struct let _v : (Parsetree.expression) = let _3 = let _1 = _1_inlined1 in let _2 = -# 4417 "parsing/parser.mly" +# 4418 "parsing/parser.mly" ( Mode.empty ) -# 61148 "parsing/parser.ml" +# 61178 "parsing/parser.ml" in # 3439 "parsing/parser.mly" ( _1, _2 ) -# 61153 "parsing/parser.ml" +# 61183 "parsing/parser.ml" in let _endpos = _endpos__4_ in @@ -61160,7 +61190,7 @@ module Tables = struct ( let (t, m) = _3 in mkexp_with_modes ~ghost:false ~loc:_sloc m @@ mkexp_type_constraint ~ghost:true ~loc:_sloc _2 t ) -# 61164 "parsing/parser.ml" +# 61194 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -61215,15 +61245,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4418 "parsing/parser.mly" +# 4419 "parsing/parser.mly" (_1) -# 61221 "parsing/parser.ml" +# 61251 "parsing/parser.ml" in # 3439 "parsing/parser.mly" ( _1, _2 ) -# 61227 "parsing/parser.ml" +# 61257 "parsing/parser.ml" in let _endpos = _endpos__4_ in @@ -61234,7 +61264,7 @@ module Tables = struct ( let (t, m) = _3 in mkexp_with_modes ~ghost:false ~loc:_sloc m @@ mkexp_type_constraint ~ghost:true ~loc:_sloc _2 t ) -# 61238 "parsing/parser.ml" +# 61268 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -61288,12 +61318,12 @@ module Tables = struct let r = # 2843 "parsing/parser.mly" ( None ) -# 61292 "parsing/parser.ml" +# 61322 "parsing/parser.ml" in # 2709 "parsing/parser.mly" ( array, d, Paren, i, r ) -# 61297 "parsing/parser.ml" +# 61327 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -61303,7 +61333,7 @@ module Tables = struct # 2844 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 61307 "parsing/parser.ml" +# 61337 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -61357,12 +61387,12 @@ module Tables = struct let r = # 2843 "parsing/parser.mly" ( None ) -# 61361 "parsing/parser.ml" +# 61391 "parsing/parser.ml" in # 2711 "parsing/parser.mly" ( array, d, Brace, i, r ) -# 61366 "parsing/parser.ml" +# 61396 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -61372,7 +61402,7 @@ module Tables = struct # 2844 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 61376 "parsing/parser.ml" +# 61406 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -61426,12 +61456,12 @@ module Tables = struct let r = # 2843 "parsing/parser.mly" ( None ) -# 61430 "parsing/parser.ml" +# 61460 "parsing/parser.ml" in # 2713 "parsing/parser.mly" ( array, d, Bracket, i, r ) -# 61435 "parsing/parser.ml" +# 61465 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -61441,7 +61471,7 @@ module Tables = struct # 2844 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 61445 "parsing/parser.ml" +# 61475 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -61489,7 +61519,7 @@ module Tables = struct let _2 : ( # 993 "parsing/parser.mly" (string) -# 61493 "parsing/parser.ml" +# 61523 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -61499,29 +61529,29 @@ module Tables = struct let r = # 2847 "parsing/parser.mly" ( None ) -# 61503 "parsing/parser.ml" +# 61533 "parsing/parser.ml" in let i = # 3427 "parsing/parser.mly" ( es ) -# 61508 "parsing/parser.ml" +# 61538 "parsing/parser.ml" in let d = let _1 = # 124 "" ( None ) -# 61514 "parsing/parser.ml" +# 61544 "parsing/parser.ml" in # 2725 "parsing/parser.mly" ( _1, _2 ) -# 61519 "parsing/parser.ml" +# 61549 "parsing/parser.ml" in # 2709 "parsing/parser.mly" ( array, d, Paren, i, r ) -# 61525 "parsing/parser.ml" +# 61555 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -61531,7 +61561,7 @@ module Tables = struct # 2848 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 61535 "parsing/parser.ml" +# 61565 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -61591,7 +61621,7 @@ module Tables = struct let _2 : ( # 993 "parsing/parser.mly" (string) -# 61595 "parsing/parser.ml" +# 61625 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -61603,12 +61633,12 @@ module Tables = struct let r = # 2847 "parsing/parser.mly" ( None ) -# 61607 "parsing/parser.ml" +# 61637 "parsing/parser.ml" in let i = # 3427 "parsing/parser.mly" ( es ) -# 61612 "parsing/parser.ml" +# 61642 "parsing/parser.ml" in let d = let _1 = @@ -61616,24 +61646,24 @@ module Tables = struct let x = # 2725 "parsing/parser.mly" (_2) -# 61620 "parsing/parser.ml" +# 61650 "parsing/parser.ml" in # 126 "" ( Some x ) -# 61625 "parsing/parser.ml" +# 61655 "parsing/parser.ml" in # 2725 "parsing/parser.mly" ( _1, _2 ) -# 61631 "parsing/parser.ml" +# 61661 "parsing/parser.ml" in # 2709 "parsing/parser.mly" ( array, d, Paren, i, r ) -# 61637 "parsing/parser.ml" +# 61667 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -61643,7 +61673,7 @@ module Tables = struct # 2848 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 61647 "parsing/parser.ml" +# 61677 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -61691,7 +61721,7 @@ module Tables = struct let _2 : ( # 993 "parsing/parser.mly" (string) -# 61695 "parsing/parser.ml" +# 61725 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -61701,29 +61731,29 @@ module Tables = struct let r = # 2847 "parsing/parser.mly" ( None ) -# 61705 "parsing/parser.ml" +# 61735 "parsing/parser.ml" in let i = # 3427 "parsing/parser.mly" ( es ) -# 61710 "parsing/parser.ml" +# 61740 "parsing/parser.ml" in let d = let _1 = # 124 "" ( None ) -# 61716 "parsing/parser.ml" +# 61746 "parsing/parser.ml" in # 2725 "parsing/parser.mly" ( _1, _2 ) -# 61721 "parsing/parser.ml" +# 61751 "parsing/parser.ml" in # 2711 "parsing/parser.mly" ( array, d, Brace, i, r ) -# 61727 "parsing/parser.ml" +# 61757 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -61733,7 +61763,7 @@ module Tables = struct # 2848 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 61737 "parsing/parser.ml" +# 61767 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -61793,7 +61823,7 @@ module Tables = struct let _2 : ( # 993 "parsing/parser.mly" (string) -# 61797 "parsing/parser.ml" +# 61827 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -61805,12 +61835,12 @@ module Tables = struct let r = # 2847 "parsing/parser.mly" ( None ) -# 61809 "parsing/parser.ml" +# 61839 "parsing/parser.ml" in let i = # 3427 "parsing/parser.mly" ( es ) -# 61814 "parsing/parser.ml" +# 61844 "parsing/parser.ml" in let d = let _1 = @@ -61818,24 +61848,24 @@ module Tables = struct let x = # 2725 "parsing/parser.mly" (_2) -# 61822 "parsing/parser.ml" +# 61852 "parsing/parser.ml" in # 126 "" ( Some x ) -# 61827 "parsing/parser.ml" +# 61857 "parsing/parser.ml" in # 2725 "parsing/parser.mly" ( _1, _2 ) -# 61833 "parsing/parser.ml" +# 61863 "parsing/parser.ml" in # 2711 "parsing/parser.mly" ( array, d, Brace, i, r ) -# 61839 "parsing/parser.ml" +# 61869 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -61845,7 +61875,7 @@ module Tables = struct # 2848 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 61849 "parsing/parser.ml" +# 61879 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -61893,7 +61923,7 @@ module Tables = struct let _2 : ( # 993 "parsing/parser.mly" (string) -# 61897 "parsing/parser.ml" +# 61927 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -61903,29 +61933,29 @@ module Tables = struct let r = # 2847 "parsing/parser.mly" ( None ) -# 61907 "parsing/parser.ml" +# 61937 "parsing/parser.ml" in let i = # 3427 "parsing/parser.mly" ( es ) -# 61912 "parsing/parser.ml" +# 61942 "parsing/parser.ml" in let d = let _1 = # 124 "" ( None ) -# 61918 "parsing/parser.ml" +# 61948 "parsing/parser.ml" in # 2725 "parsing/parser.mly" ( _1, _2 ) -# 61923 "parsing/parser.ml" +# 61953 "parsing/parser.ml" in # 2713 "parsing/parser.mly" ( array, d, Bracket, i, r ) -# 61929 "parsing/parser.ml" +# 61959 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -61935,7 +61965,7 @@ module Tables = struct # 2848 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 61939 "parsing/parser.ml" +# 61969 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -61995,7 +62025,7 @@ module Tables = struct let _2 : ( # 993 "parsing/parser.mly" (string) -# 61999 "parsing/parser.ml" +# 62029 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -62007,12 +62037,12 @@ module Tables = struct let r = # 2847 "parsing/parser.mly" ( None ) -# 62011 "parsing/parser.ml" +# 62041 "parsing/parser.ml" in let i = # 3427 "parsing/parser.mly" ( es ) -# 62016 "parsing/parser.ml" +# 62046 "parsing/parser.ml" in let d = let _1 = @@ -62020,24 +62050,24 @@ module Tables = struct let x = # 2725 "parsing/parser.mly" (_2) -# 62024 "parsing/parser.ml" +# 62054 "parsing/parser.ml" in # 126 "" ( Some x ) -# 62029 "parsing/parser.ml" +# 62059 "parsing/parser.ml" in # 2725 "parsing/parser.mly" ( _1, _2 ) -# 62035 "parsing/parser.ml" +# 62065 "parsing/parser.ml" in # 2713 "parsing/parser.mly" ( array, d, Bracket, i, r ) -# 62041 "parsing/parser.ml" +# 62071 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -62047,7 +62077,7 @@ module Tables = struct # 2848 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 62051 "parsing/parser.ml" +# 62081 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -62103,13 +62133,13 @@ module Tables = struct # 2718 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Paren _loc__e_ ) -# 62107 "parsing/parser.ml" +# 62137 "parsing/parser.ml" in # 2849 "parsing/parser.mly" ( _1 ) -# 62113 "parsing/parser.ml" +# 62143 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -62165,13 +62195,13 @@ module Tables = struct # 2720 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Brace _loc__e_ ) -# 62169 "parsing/parser.ml" +# 62199 "parsing/parser.ml" in # 2849 "parsing/parser.mly" ( _1 ) -# 62175 "parsing/parser.ml" +# 62205 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -62227,13 +62257,13 @@ module Tables = struct # 2722 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Bracket _loc__e_ ) -# 62231 "parsing/parser.ml" +# 62261 "parsing/parser.ml" in # 2849 "parsing/parser.mly" ( _1 ) -# 62237 "parsing/parser.ml" +# 62267 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -62281,7 +62311,7 @@ module Tables = struct let _2 : ( # 993 "parsing/parser.mly" (string) -# 62285 "parsing/parser.ml" +# 62315 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -62291,18 +62321,18 @@ module Tables = struct let _4 = # 3427 "parsing/parser.mly" ( es ) -# 62295 "parsing/parser.ml" +# 62325 "parsing/parser.ml" in let _2 = let _1 = # 124 "" ( None ) -# 62301 "parsing/parser.ml" +# 62331 "parsing/parser.ml" in # 2725 "parsing/parser.mly" ( _1, _2 ) -# 62306 "parsing/parser.ml" +# 62336 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in @@ -62310,13 +62340,13 @@ module Tables = struct # 2718 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Paren _loc__e_ ) -# 62314 "parsing/parser.ml" +# 62344 "parsing/parser.ml" in # 2850 "parsing/parser.mly" ( _1 ) -# 62320 "parsing/parser.ml" +# 62350 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -62376,7 +62406,7 @@ module Tables = struct let _2 : ( # 993 "parsing/parser.mly" (string) -# 62380 "parsing/parser.ml" +# 62410 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in @@ -62388,7 +62418,7 @@ module Tables = struct let _4 = # 3427 "parsing/parser.mly" ( es ) -# 62392 "parsing/parser.ml" +# 62422 "parsing/parser.ml" in let _2 = let _1 = @@ -62396,18 +62426,18 @@ module Tables = struct let x = # 2725 "parsing/parser.mly" (_2) -# 62400 "parsing/parser.ml" +# 62430 "parsing/parser.ml" in # 126 "" ( Some x ) -# 62405 "parsing/parser.ml" +# 62435 "parsing/parser.ml" in # 2725 "parsing/parser.mly" ( _1, _2 ) -# 62411 "parsing/parser.ml" +# 62441 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in @@ -62415,13 +62445,13 @@ module Tables = struct # 2718 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Paren _loc__e_ ) -# 62419 "parsing/parser.ml" +# 62449 "parsing/parser.ml" in # 2850 "parsing/parser.mly" ( _1 ) -# 62425 "parsing/parser.ml" +# 62455 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -62469,7 +62499,7 @@ module Tables = struct let _2 : ( # 993 "parsing/parser.mly" (string) -# 62473 "parsing/parser.ml" +# 62503 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -62479,18 +62509,18 @@ module Tables = struct let _4 = # 3427 "parsing/parser.mly" ( es ) -# 62483 "parsing/parser.ml" +# 62513 "parsing/parser.ml" in let _2 = let _1 = # 124 "" ( None ) -# 62489 "parsing/parser.ml" +# 62519 "parsing/parser.ml" in # 2725 "parsing/parser.mly" ( _1, _2 ) -# 62494 "parsing/parser.ml" +# 62524 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in @@ -62498,13 +62528,13 @@ module Tables = struct # 2720 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Brace _loc__e_ ) -# 62502 "parsing/parser.ml" +# 62532 "parsing/parser.ml" in # 2850 "parsing/parser.mly" ( _1 ) -# 62508 "parsing/parser.ml" +# 62538 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -62564,7 +62594,7 @@ module Tables = struct let _2 : ( # 993 "parsing/parser.mly" (string) -# 62568 "parsing/parser.ml" +# 62598 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in @@ -62576,7 +62606,7 @@ module Tables = struct let _4 = # 3427 "parsing/parser.mly" ( es ) -# 62580 "parsing/parser.ml" +# 62610 "parsing/parser.ml" in let _2 = let _1 = @@ -62584,18 +62614,18 @@ module Tables = struct let x = # 2725 "parsing/parser.mly" (_2) -# 62588 "parsing/parser.ml" +# 62618 "parsing/parser.ml" in # 126 "" ( Some x ) -# 62593 "parsing/parser.ml" +# 62623 "parsing/parser.ml" in # 2725 "parsing/parser.mly" ( _1, _2 ) -# 62599 "parsing/parser.ml" +# 62629 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in @@ -62603,13 +62633,13 @@ module Tables = struct # 2720 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Brace _loc__e_ ) -# 62607 "parsing/parser.ml" +# 62637 "parsing/parser.ml" in # 2850 "parsing/parser.mly" ( _1 ) -# 62613 "parsing/parser.ml" +# 62643 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -62657,7 +62687,7 @@ module Tables = struct let _2 : ( # 993 "parsing/parser.mly" (string) -# 62661 "parsing/parser.ml" +# 62691 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -62667,18 +62697,18 @@ module Tables = struct let _4 = # 3427 "parsing/parser.mly" ( es ) -# 62671 "parsing/parser.ml" +# 62701 "parsing/parser.ml" in let _2 = let _1 = # 124 "" ( None ) -# 62677 "parsing/parser.ml" +# 62707 "parsing/parser.ml" in # 2725 "parsing/parser.mly" ( _1, _2 ) -# 62682 "parsing/parser.ml" +# 62712 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in @@ -62686,13 +62716,13 @@ module Tables = struct # 2722 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Bracket _loc__e_ ) -# 62690 "parsing/parser.ml" +# 62720 "parsing/parser.ml" in # 2850 "parsing/parser.mly" ( _1 ) -# 62696 "parsing/parser.ml" +# 62726 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -62752,7 +62782,7 @@ module Tables = struct let _2 : ( # 993 "parsing/parser.mly" (string) -# 62756 "parsing/parser.ml" +# 62786 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in @@ -62764,7 +62794,7 @@ module Tables = struct let _4 = # 3427 "parsing/parser.mly" ( es ) -# 62768 "parsing/parser.ml" +# 62798 "parsing/parser.ml" in let _2 = let _1 = @@ -62772,18 +62802,18 @@ module Tables = struct let x = # 2725 "parsing/parser.mly" (_2) -# 62776 "parsing/parser.ml" +# 62806 "parsing/parser.ml" in # 126 "" ( Some x ) -# 62781 "parsing/parser.ml" +# 62811 "parsing/parser.ml" in # 2725 "parsing/parser.mly" ( _1, _2 ) -# 62787 "parsing/parser.ml" +# 62817 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in @@ -62791,13 +62821,13 @@ module Tables = struct # 2722 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Bracket _loc__e_ ) -# 62795 "parsing/parser.ml" +# 62825 "parsing/parser.ml" in # 2850 "parsing/parser.mly" ( _1 ) -# 62801 "parsing/parser.ml" +# 62831 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -62851,15 +62881,15 @@ module Tables = struct let attrs = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 62857 "parsing/parser.ml" +# 62887 "parsing/parser.ml" in # 2874 "parsing/parser.mly" ( e.pexp_desc, (ext, attrs @ e.pexp_attributes) ) -# 62863 "parsing/parser.ml" +# 62893 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -62870,7 +62900,7 @@ module Tables = struct # 2852 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 62874 "parsing/parser.ml" +# 62904 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -62919,15 +62949,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 62925 "parsing/parser.ml" +# 62955 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 62931 "parsing/parser.ml" +# 62961 "parsing/parser.ml" in let _endpos = _endpos__3_ in @@ -62936,7 +62966,7 @@ module Tables = struct # 2876 "parsing/parser.mly" ( Pexp_construct (mkloc (Lident "()") (make_loc _sloc), None), _2 ) -# 62940 "parsing/parser.ml" +# 62970 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -62947,7 +62977,7 @@ module Tables = struct # 2852 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 62951 "parsing/parser.ml" +# 62981 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -63003,15 +63033,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 63009 "parsing/parser.ml" +# 63039 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 63015 "parsing/parser.ml" +# 63045 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in @@ -63019,7 +63049,7 @@ module Tables = struct # 2878 "parsing/parser.mly" ( unclosed "begin" _loc__1_ "end" _loc__4_ ) -# 63023 "parsing/parser.ml" +# 63053 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -63030,7 +63060,7 @@ module Tables = struct # 2852 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 63034 "parsing/parser.ml" +# 63064 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -63082,7 +63112,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 63086 "parsing/parser.ml" +# 63116 "parsing/parser.ml" in let _2 = @@ -63090,21 +63120,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 63096 "parsing/parser.ml" +# 63126 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 63102 "parsing/parser.ml" +# 63132 "parsing/parser.ml" in # 2880 "parsing/parser.mly" ( Pexp_new(_3), _2 ) -# 63108 "parsing/parser.ml" +# 63138 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined3_ in @@ -63115,7 +63145,7 @@ module Tables = struct # 2852 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 63119 "parsing/parser.ml" +# 63149 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -63178,21 +63208,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 63184 "parsing/parser.ml" +# 63214 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 63190 "parsing/parser.ml" +# 63220 "parsing/parser.ml" in # 2882 "parsing/parser.mly" ( Pexp_pack _4, _3 ) -# 63196 "parsing/parser.ml" +# 63226 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -63203,7 +63233,7 @@ module Tables = struct # 2852 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 63207 "parsing/parser.ml" +# 63237 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -63281,11 +63311,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4543 "parsing/parser.mly" +# 4544 "parsing/parser.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in let descr = Ptyp_package (lid, cstrs) in mktyp ~loc:_sloc ~attrs descr ) -# 63289 "parsing/parser.ml" +# 63319 "parsing/parser.ml" in let _3 = @@ -63293,15 +63323,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 63299 "parsing/parser.ml" +# 63329 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 63305 "parsing/parser.ml" +# 63335 "parsing/parser.ml" in let _endpos = _endpos__7_ in @@ -63310,7 +63340,7 @@ module Tables = struct # 2884 "parsing/parser.mly" ( Pexp_constraint (ghexp ~loc:_sloc (Pexp_pack _4), _6), _3 ) -# 63314 "parsing/parser.ml" +# 63344 "parsing/parser.ml" in let _endpos__1_ = _endpos__7_ in @@ -63321,7 +63351,7 @@ module Tables = struct # 2852 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 63325 "parsing/parser.ml" +# 63355 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -63391,15 +63421,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 63397 "parsing/parser.ml" +# 63427 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 63403 "parsing/parser.ml" +# 63433 "parsing/parser.ml" in let _loc__6_ = (_startpos__6_, _endpos__6_) in @@ -63407,7 +63437,7 @@ module Tables = struct # 2886 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__6_ ) -# 63411 "parsing/parser.ml" +# 63441 "parsing/parser.ml" in let _endpos__1_ = _endpos__6_ in @@ -63418,7 +63448,7 @@ module Tables = struct # 2852 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 63422 "parsing/parser.ml" +# 63452 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -63483,12 +63513,12 @@ module Tables = struct let _1 = # 260 "" ( List.flatten xss ) -# 63487 "parsing/parser.ml" +# 63517 "parsing/parser.ml" in # 2321 "parsing/parser.mly" ( _1 ) -# 63492 "parsing/parser.ml" +# 63522 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in @@ -63497,13 +63527,13 @@ module Tables = struct # 1199 "parsing/parser.mly" ( extra_cstr _startpos _endpos _1 ) -# 63501 "parsing/parser.ml" +# 63531 "parsing/parser.ml" in # 2308 "parsing/parser.mly" ( Cstr.mk _1 _2 ) -# 63507 "parsing/parser.ml" +# 63537 "parsing/parser.ml" in let _2 = @@ -63511,21 +63541,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 63517 "parsing/parser.ml" +# 63547 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 63523 "parsing/parser.ml" +# 63553 "parsing/parser.ml" in # 2888 "parsing/parser.mly" ( Pexp_object _3, _2 ) -# 63529 "parsing/parser.ml" +# 63559 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -63536,7 +63566,7 @@ module Tables = struct # 2852 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 63540 "parsing/parser.ml" +# 63570 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -63601,12 +63631,12 @@ module Tables = struct let _1 = # 260 "" ( List.flatten xss ) -# 63605 "parsing/parser.ml" +# 63635 "parsing/parser.ml" in # 2321 "parsing/parser.mly" ( _1 ) -# 63610 "parsing/parser.ml" +# 63640 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in @@ -63615,13 +63645,13 @@ module Tables = struct # 1199 "parsing/parser.mly" ( extra_cstr _startpos _endpos _1 ) -# 63619 "parsing/parser.ml" +# 63649 "parsing/parser.ml" in # 2308 "parsing/parser.mly" ( Cstr.mk _1 _2 ) -# 63625 "parsing/parser.ml" +# 63655 "parsing/parser.ml" in let _2 = @@ -63629,15 +63659,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 63635 "parsing/parser.ml" +# 63665 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 63641 "parsing/parser.ml" +# 63671 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in @@ -63645,7 +63675,7 @@ module Tables = struct # 2890 "parsing/parser.mly" ( unclosed "object" _loc__1_ "end" _loc__4_ ) -# 63649 "parsing/parser.ml" +# 63679 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -63656,7 +63686,7 @@ module Tables = struct # 2852 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 63660 "parsing/parser.ml" +# 63690 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -63687,13 +63717,13 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 63691 "parsing/parser.ml" +# 63721 "parsing/parser.ml" in # 2979 "parsing/parser.mly" ( Pexp_ident (_1) ) -# 63697 "parsing/parser.ml" +# 63727 "parsing/parser.ml" in let _endpos = _endpos__1_ in @@ -63702,13 +63732,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 63706 "parsing/parser.ml" +# 63736 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 63712 "parsing/parser.ml" +# 63742 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -63739,13 +63769,13 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 63743 "parsing/parser.ml" +# 63773 "parsing/parser.ml" in # 2981 "parsing/parser.mly" ( Pexp_construct(_1, None) ) -# 63749 "parsing/parser.ml" +# 63779 "parsing/parser.ml" in let _endpos = _endpos__1_ in @@ -63754,13 +63784,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 63758 "parsing/parser.ml" +# 63788 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 63764 "parsing/parser.ml" +# 63794 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -63786,7 +63816,7 @@ module Tables = struct let _1 = # 2983 "parsing/parser.mly" ( Pexp_variant(_1, None) ) -# 63790 "parsing/parser.ml" +# 63820 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -63794,13 +63824,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 63798 "parsing/parser.ml" +# 63828 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 63804 "parsing/parser.ml" +# 63834 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -63828,7 +63858,7 @@ module Tables = struct let _1 : ( # 1043 "parsing/parser.mly" (string) -# 63832 "parsing/parser.ml" +# 63862 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -63842,13 +63872,13 @@ module Tables = struct # 1232 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 63846 "parsing/parser.ml" +# 63876 "parsing/parser.ml" in # 2985 "parsing/parser.mly" ( Pexp_apply(_1, [Nolabel,_2]) ) -# 63852 "parsing/parser.ml" +# 63882 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -63858,13 +63888,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 63862 "parsing/parser.ml" +# 63892 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 63868 "parsing/parser.ml" +# 63898 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -63899,7 +63929,7 @@ module Tables = struct let _1 = # 2986 "parsing/parser.mly" ("!") -# 63903 "parsing/parser.ml" +# 63933 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -63907,13 +63937,13 @@ module Tables = struct # 1232 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 63911 "parsing/parser.ml" +# 63941 "parsing/parser.ml" in # 2987 "parsing/parser.mly" ( Pexp_apply(_1, [Nolabel,_2]) ) -# 63917 "parsing/parser.ml" +# 63947 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -63923,13 +63953,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 63927 "parsing/parser.ml" +# 63957 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 63933 "parsing/parser.ml" +# 63963 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -63970,12 +64000,12 @@ module Tables = struct let _2 = # 3410 "parsing/parser.mly" ( xs ) -# 63974 "parsing/parser.ml" +# 64004 "parsing/parser.ml" in # 2989 "parsing/parser.mly" ( Pexp_override _2 ) -# 63979 "parsing/parser.ml" +# 64009 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -63985,13 +64015,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 63989 "parsing/parser.ml" +# 64019 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 63995 "parsing/parser.ml" +# 64025 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -64032,14 +64062,14 @@ module Tables = struct let _2 = # 3410 "parsing/parser.mly" ( xs ) -# 64036 "parsing/parser.ml" +# 64066 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 2991 "parsing/parser.mly" ( unclosed "{<" _loc__1_ ">}" _loc__3_ ) -# 64043 "parsing/parser.ml" +# 64073 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -64049,13 +64079,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 64053 "parsing/parser.ml" +# 64083 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 64059 "parsing/parser.ml" +# 64089 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -64088,7 +64118,7 @@ module Tables = struct let _1 = # 2993 "parsing/parser.mly" ( Pexp_override [] ) -# 64092 "parsing/parser.ml" +# 64122 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in let _endpos = _endpos__1_ in @@ -64097,13 +64127,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 64101 "parsing/parser.ml" +# 64131 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 64107 "parsing/parser.ml" +# 64137 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -64149,13 +64179,13 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 64153 "parsing/parser.ml" +# 64183 "parsing/parser.ml" in # 2995 "parsing/parser.mly" ( Pexp_field(_1, _3) ) -# 64159 "parsing/parser.ml" +# 64189 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -64165,13 +64195,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 64169 "parsing/parser.ml" +# 64199 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 64175 "parsing/parser.ml" +# 64205 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -64231,7 +64261,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 64235 "parsing/parser.ml" +# 64265 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in @@ -64240,13 +64270,13 @@ module Tables = struct ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 64244 "parsing/parser.ml" +# 64274 "parsing/parser.ml" in # 2997 "parsing/parser.mly" ( Pexp_open(od, _4) ) -# 64250 "parsing/parser.ml" +# 64280 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -64256,13 +64286,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 64260 "parsing/parser.ml" +# 64290 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 64266 "parsing/parser.ml" +# 64296 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -64317,7 +64347,7 @@ module Tables = struct let _4 = # 3410 "parsing/parser.mly" ( xs ) -# 64321 "parsing/parser.ml" +# 64351 "parsing/parser.ml" in let od = let _1 = @@ -64327,7 +64357,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 64331 "parsing/parser.ml" +# 64361 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in @@ -64336,7 +64366,7 @@ module Tables = struct ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 64340 "parsing/parser.ml" +# 64370 "parsing/parser.ml" in let _startpos_od_ = _startpos__1_ in @@ -64347,7 +64377,7 @@ module Tables = struct # 2999 "parsing/parser.mly" ( (* TODO: review the location of Pexp_override *) Pexp_open(od, mkexp ~loc:_sloc (Pexp_override _4)) ) -# 64351 "parsing/parser.ml" +# 64381 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -64357,13 +64387,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 64361 "parsing/parser.ml" +# 64391 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 64367 "parsing/parser.ml" +# 64397 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -64418,14 +64448,14 @@ module Tables = struct let _4 = # 3410 "parsing/parser.mly" ( xs ) -# 64422 "parsing/parser.ml" +# 64452 "parsing/parser.ml" in let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in # 3002 "parsing/parser.mly" ( unclosed "{<" _loc__3_ ">}" _loc__5_ ) -# 64429 "parsing/parser.ml" +# 64459 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -64435,13 +64465,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 64439 "parsing/parser.ml" +# 64469 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 64445 "parsing/parser.ml" +# 64475 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -64474,7 +64504,7 @@ module Tables = struct let _1_inlined2 : ( # 1016 "parsing/parser.mly" (string) -# 64478 "parsing/parser.ml" +# 64508 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _1 : (Parsetree.expression) = Obj.magic _1 in @@ -64486,9 +64516,9 @@ module Tables = struct let _3 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _1 = -# 4617 "parsing/parser.mly" +# 4618 "parsing/parser.mly" ( _1 ) -# 64492 "parsing/parser.ml" +# 64522 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -64496,18 +64526,18 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 64500 "parsing/parser.ml" +# 64530 "parsing/parser.ml" in let _2 = # 2973 "parsing/parser.mly" ( () ) -# 64506 "parsing/parser.ml" +# 64536 "parsing/parser.ml" in # 3004 "parsing/parser.mly" ( Pexp_send(_1, _3) ) -# 64511 "parsing/parser.ml" +# 64541 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined2_ in @@ -64517,13 +64547,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 64521 "parsing/parser.ml" +# 64551 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 64527 "parsing/parser.ml" +# 64557 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -64556,7 +64586,7 @@ module Tables = struct let _1_inlined2 : ( # 1016 "parsing/parser.mly" (string) -# 64560 "parsing/parser.ml" +# 64590 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _1 : (Parsetree.expression) = Obj.magic _1 in @@ -64568,9 +64598,9 @@ module Tables = struct let _3 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _1 = -# 4617 "parsing/parser.mly" +# 4618 "parsing/parser.mly" ( _1 ) -# 64574 "parsing/parser.ml" +# 64604 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -64578,18 +64608,18 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 64582 "parsing/parser.ml" +# 64612 "parsing/parser.ml" in let _2 = # 2974 "parsing/parser.mly" ( () ) -# 64588 "parsing/parser.ml" +# 64618 "parsing/parser.ml" in # 3004 "parsing/parser.mly" ( Pexp_send(_1, _3) ) -# 64593 "parsing/parser.ml" +# 64623 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined2_ in @@ -64599,13 +64629,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 64603 "parsing/parser.ml" +# 64633 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 64609 "parsing/parser.ml" +# 64639 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -64639,7 +64669,7 @@ module Tables = struct let _1_inlined1 : ( # 1055 "parsing/parser.mly" (string) -# 64643 "parsing/parser.ml" +# 64673 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -64655,13 +64685,13 @@ module Tables = struct # 1232 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 64659 "parsing/parser.ml" +# 64689 "parsing/parser.ml" in # 3006 "parsing/parser.mly" ( mkinfix _1 _2 _3 ) -# 64665 "parsing/parser.ml" +# 64695 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -64671,13 +64701,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 64675 "parsing/parser.ml" +# 64705 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 64681 "parsing/parser.ml" +# 64711 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -64703,7 +64733,7 @@ module Tables = struct let _1 = # 3008 "parsing/parser.mly" ( Pexp_extension _1 ) -# 64707 "parsing/parser.ml" +# 64737 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -64711,13 +64741,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 64715 "parsing/parser.ml" +# 64745 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 64721 "parsing/parser.ml" +# 64751 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -64767,7 +64797,7 @@ module Tables = struct let _1 = # 3009 "parsing/parser.mly" (Lident "()") -# 64771 "parsing/parser.ml" +# 64801 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in let _endpos = _endpos__1_ in @@ -64776,7 +64806,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 64780 "parsing/parser.ml" +# 64810 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in @@ -64788,7 +64818,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 64792 "parsing/parser.ml" +# 64822 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in @@ -64797,14 +64827,14 @@ module Tables = struct ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 64801 "parsing/parser.ml" +# 64831 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in # 3010 "parsing/parser.mly" ( Pexp_open(od, mkexp ~loc:(_loc__3_) (Pexp_construct(_3, None))) ) -# 64808 "parsing/parser.ml" +# 64838 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_inlined1_ in @@ -64814,13 +64844,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 64818 "parsing/parser.ml" +# 64848 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 64824 "parsing/parser.ml" +# 64854 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -64877,7 +64907,7 @@ module Tables = struct # 3012 "parsing/parser.mly" ( unclosed "(" _loc__3_ ")" _loc__5_ ) -# 64881 "parsing/parser.ml" +# 64911 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -64887,13 +64917,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 64891 "parsing/parser.ml" +# 64921 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 64897 "parsing/parser.ml" +# 64927 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -64935,7 +64965,7 @@ module Tables = struct # 3014 "parsing/parser.mly" ( let (exten, fields) = _2 in Pexp_record(fields, exten) ) -# 64939 "parsing/parser.ml" +# 64969 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in @@ -64944,13 +64974,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 64948 "parsing/parser.ml" +# 64978 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 64954 "parsing/parser.ml" +# 64984 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -64994,7 +65024,7 @@ module Tables = struct # 3017 "parsing/parser.mly" ( unclosed "{" _loc__1_ "}" _loc__3_ ) -# 64998 "parsing/parser.ml" +# 65028 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -65004,13 +65034,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 65008 "parsing/parser.ml" +# 65038 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 65014 "parsing/parser.ml" +# 65044 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -65071,7 +65101,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 65075 "parsing/parser.ml" +# 65105 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in @@ -65080,7 +65110,7 @@ module Tables = struct ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 65084 "parsing/parser.ml" +# 65114 "parsing/parser.ml" in let _endpos = _endpos__5_ in @@ -65089,7 +65119,7 @@ module Tables = struct ( let (exten, fields) = _4 in Pexp_open(od, mkexp ~loc:(_startpos__3_, _endpos) (Pexp_record(fields, exten))) ) -# 65093 "parsing/parser.ml" +# 65123 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -65099,13 +65129,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 65103 "parsing/parser.ml" +# 65133 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 65109 "parsing/parser.ml" +# 65139 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -65163,7 +65193,7 @@ module Tables = struct # 3023 "parsing/parser.mly" ( unclosed "{" _loc__3_ "}" _loc__5_ ) -# 65167 "parsing/parser.ml" +# 65197 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -65173,13 +65203,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 65177 "parsing/parser.ml" +# 65207 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 65183 "parsing/parser.ml" +# 65213 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -65222,18 +65252,18 @@ module Tables = struct let _2 = # 3427 "parsing/parser.mly" ( es ) -# 65226 "parsing/parser.ml" +# 65256 "parsing/parser.ml" in # 2945 "parsing/parser.mly" ( Generic_array.Simple.Literal _2 ) -# 65231 "parsing/parser.ml" +# 65261 "parsing/parser.ml" in # 2954 "parsing/parser.mly" ( Generic_array.Expression.Simple _1 ) -# 65237 "parsing/parser.ml" +# 65267 "parsing/parser.ml" in @@ -65243,7 +65273,7 @@ module Tables = struct (fun elts -> Pexp_array elts) _1 ) -# 65247 "parsing/parser.ml" +# 65277 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -65253,13 +65283,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 65257 "parsing/parser.ml" +# 65287 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 65263 "parsing/parser.ml" +# 65293 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -65302,20 +65332,20 @@ module Tables = struct let _2 = # 3427 "parsing/parser.mly" ( es ) -# 65306 "parsing/parser.ml" +# 65336 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 2947 "parsing/parser.mly" ( Generic_array.Simple.Unclosed(_loc__1_,_loc__3_) ) -# 65313 "parsing/parser.ml" +# 65343 "parsing/parser.ml" in # 2954 "parsing/parser.mly" ( Generic_array.Expression.Simple _1 ) -# 65319 "parsing/parser.ml" +# 65349 "parsing/parser.ml" in @@ -65325,7 +65355,7 @@ module Tables = struct (fun elts -> Pexp_array elts) _1 ) -# 65329 "parsing/parser.ml" +# 65359 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -65335,13 +65365,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 65339 "parsing/parser.ml" +# 65369 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 65345 "parsing/parser.ml" +# 65375 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -65376,12 +65406,12 @@ module Tables = struct let _1 = # 2949 "parsing/parser.mly" ( Generic_array.Simple.Literal [] ) -# 65380 "parsing/parser.ml" +# 65410 "parsing/parser.ml" in # 2954 "parsing/parser.mly" ( Generic_array.Expression.Simple _1 ) -# 65385 "parsing/parser.ml" +# 65415 "parsing/parser.ml" in @@ -65391,7 +65421,7 @@ module Tables = struct (fun elts -> Pexp_array elts) _1 ) -# 65395 "parsing/parser.ml" +# 65425 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -65401,13 +65431,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 65405 "parsing/parser.ml" +# 65435 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 65411 "parsing/parser.ml" +# 65441 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -65463,7 +65493,7 @@ module Tables = struct let _4 = # 3427 "parsing/parser.mly" ( es ) -# 65467 "parsing/parser.ml" +# 65497 "parsing/parser.ml" in let od = let _1 = @@ -65473,7 +65503,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 65477 "parsing/parser.ml" +# 65507 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in @@ -65482,7 +65512,7 @@ module Tables = struct ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 65486 "parsing/parser.ml" +# 65516 "parsing/parser.ml" in let _endpos = _endpos__5_ in @@ -65490,7 +65520,7 @@ module Tables = struct # 2956 "parsing/parser.mly" ( Generic_array.Expression.Opened_literal(od, _startpos__3_, _endpos, _4) ) -# 65494 "parsing/parser.ml" +# 65524 "parsing/parser.ml" in @@ -65500,7 +65530,7 @@ module Tables = struct (fun elts -> Pexp_array elts) _1 ) -# 65504 "parsing/parser.ml" +# 65534 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -65510,13 +65540,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 65514 "parsing/parser.ml" +# 65544 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 65520 "parsing/parser.ml" +# 65550 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -65570,7 +65600,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 65574 "parsing/parser.ml" +# 65604 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in @@ -65579,7 +65609,7 @@ module Tables = struct ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 65583 "parsing/parser.ml" +# 65613 "parsing/parser.ml" in let _endpos = _endpos__4_ in @@ -65588,7 +65618,7 @@ module Tables = struct ( (* TODO: review the location of Pexp_array *) Generic_array.Expression.Opened_literal(od, _startpos__3_, _endpos, []) ) -# 65592 "parsing/parser.ml" +# 65622 "parsing/parser.ml" in @@ -65598,7 +65628,7 @@ module Tables = struct (fun elts -> Pexp_array elts) _1 ) -# 65602 "parsing/parser.ml" +# 65632 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -65608,13 +65638,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 65612 "parsing/parser.ml" +# 65642 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 65618 "parsing/parser.ml" +# 65648 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -65670,14 +65700,14 @@ module Tables = struct let _4 = # 3427 "parsing/parser.mly" ( es ) -# 65674 "parsing/parser.ml" +# 65704 "parsing/parser.ml" in let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in # 2964 "parsing/parser.mly" ( Generic_array.Expression.Simple (Unclosed(_loc__3_, _loc__5_)) ) -# 65681 "parsing/parser.ml" +# 65711 "parsing/parser.ml" in @@ -65687,7 +65717,7 @@ module Tables = struct (fun elts -> Pexp_array elts) _1 ) -# 65691 "parsing/parser.ml" +# 65721 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -65697,13 +65727,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 65701 "parsing/parser.ml" +# 65731 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 65707 "parsing/parser.ml" +# 65737 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -65744,13 +65774,13 @@ module Tables = struct let _2 = # 3427 "parsing/parser.mly" ( es ) -# 65748 "parsing/parser.ml" +# 65778 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in # 3031 "parsing/parser.mly" ( fst (mktailexp _loc__3_ _2) ) -# 65754 "parsing/parser.ml" +# 65784 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -65760,13 +65790,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 65764 "parsing/parser.ml" +# 65794 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 65770 "parsing/parser.ml" +# 65800 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -65807,14 +65837,14 @@ module Tables = struct let _2 = # 3427 "parsing/parser.mly" ( es ) -# 65811 "parsing/parser.ml" +# 65841 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 3033 "parsing/parser.mly" ( unclosed "[" _loc__1_ "]" _loc__3_ ) -# 65818 "parsing/parser.ml" +# 65848 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -65824,13 +65854,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 65828 "parsing/parser.ml" +# 65858 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 65834 "parsing/parser.ml" +# 65864 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -65897,12 +65927,12 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 65901 "parsing/parser.ml" +# 65931 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 65906 "parsing/parser.ml" +# 65936 "parsing/parser.ml" in let _2 = @@ -65910,24 +65940,24 @@ module Tables = struct let _1 = # 2574 "parsing/parser.mly" ( _1 ) -# 65914 "parsing/parser.ml" +# 65944 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 65919 "parsing/parser.ml" +# 65949 "parsing/parser.ml" in # 2926 "parsing/parser.mly" ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } ) -# 65925 "parsing/parser.ml" +# 65955 "parsing/parser.ml" in # 2931 "parsing/parser.mly" ( Jane_syntax.Comprehensions.Cexp_list_comprehension _1 ) -# 65931 "parsing/parser.ml" +# 65961 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -65937,7 +65967,7 @@ module Tables = struct # 2940 "parsing/parser.mly" ( Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1 ) -# 65941 "parsing/parser.ml" +# 65971 "parsing/parser.ml" in let od = @@ -65948,7 +65978,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 65952 "parsing/parser.ml" +# 65982 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in @@ -65957,13 +65987,13 @@ module Tables = struct ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 65961 "parsing/parser.ml" +# 65991 "parsing/parser.ml" in # 3035 "parsing/parser.mly" ( Pexp_open(od, _3) ) -# 65967 "parsing/parser.ml" +# 65997 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -65973,13 +66003,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 65977 "parsing/parser.ml" +# 66007 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 65983 "parsing/parser.ml" +# 66013 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -66068,12 +66098,12 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 66072 "parsing/parser.ml" +# 66102 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 66077 "parsing/parser.ml" +# 66107 "parsing/parser.ml" in let _2 = @@ -66084,18 +66114,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 66088 "parsing/parser.ml" +# 66118 "parsing/parser.ml" in # 1423 "parsing/parser.mly" ( xs ) -# 66093 "parsing/parser.ml" +# 66123 "parsing/parser.ml" in # 3265 "parsing/parser.mly" ( xs ) -# 66099 "parsing/parser.ml" +# 66129 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in @@ -66104,15 +66134,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 66110 "parsing/parser.ml" +# 66140 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 66116 "parsing/parser.ml" +# 66146 "parsing/parser.ml" in let _endpos = _endpos__3_ in @@ -66125,25 +66155,25 @@ module Tables = struct mkfunction [] None (Pfunction_cases (cases, loc, [])) ~loc:_sloc ~attrs:_2 ) -# 66129 "parsing/parser.ml" +# 66159 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 66135 "parsing/parser.ml" +# 66165 "parsing/parser.ml" in # 2926 "parsing/parser.mly" ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } ) -# 66141 "parsing/parser.ml" +# 66171 "parsing/parser.ml" in # 2931 "parsing/parser.mly" ( Jane_syntax.Comprehensions.Cexp_list_comprehension _1 ) -# 66147 "parsing/parser.ml" +# 66177 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -66153,7 +66183,7 @@ module Tables = struct # 2940 "parsing/parser.mly" ( Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1 ) -# 66157 "parsing/parser.ml" +# 66187 "parsing/parser.ml" in let od = @@ -66164,7 +66194,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 66168 "parsing/parser.ml" +# 66198 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in @@ -66173,13 +66203,13 @@ module Tables = struct ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 66177 "parsing/parser.ml" +# 66207 "parsing/parser.ml" in # 3035 "parsing/parser.mly" ( Pexp_open(od, _3) ) -# 66183 "parsing/parser.ml" +# 66213 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -66189,13 +66219,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 66193 "parsing/parser.ml" +# 66223 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 66199 "parsing/parser.ml" +# 66229 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -66262,12 +66292,12 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 66266 "parsing/parser.ml" +# 66296 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 66271 "parsing/parser.ml" +# 66301 "parsing/parser.ml" in let _2 = @@ -66275,24 +66305,24 @@ module Tables = struct let _1 = # 2574 "parsing/parser.mly" ( _1 ) -# 66279 "parsing/parser.ml" +# 66309 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 66284 "parsing/parser.ml" +# 66314 "parsing/parser.ml" in # 2926 "parsing/parser.mly" ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } ) -# 66290 "parsing/parser.ml" +# 66320 "parsing/parser.ml" in # 2933 "parsing/parser.mly" ( Jane_syntax.Comprehensions.Cexp_array_comprehension (Mutable, _1) ) -# 66296 "parsing/parser.ml" +# 66326 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -66302,7 +66332,7 @@ module Tables = struct # 2940 "parsing/parser.mly" ( Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1 ) -# 66306 "parsing/parser.ml" +# 66336 "parsing/parser.ml" in let od = @@ -66313,7 +66343,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 66317 "parsing/parser.ml" +# 66347 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in @@ -66322,13 +66352,13 @@ module Tables = struct ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 66326 "parsing/parser.ml" +# 66356 "parsing/parser.ml" in # 3035 "parsing/parser.mly" ( Pexp_open(od, _3) ) -# 66332 "parsing/parser.ml" +# 66362 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -66338,13 +66368,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 66342 "parsing/parser.ml" +# 66372 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 66348 "parsing/parser.ml" +# 66378 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -66433,12 +66463,12 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 66437 "parsing/parser.ml" +# 66467 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 66442 "parsing/parser.ml" +# 66472 "parsing/parser.ml" in let _2 = @@ -66449,18 +66479,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 66453 "parsing/parser.ml" +# 66483 "parsing/parser.ml" in # 1423 "parsing/parser.mly" ( xs ) -# 66458 "parsing/parser.ml" +# 66488 "parsing/parser.ml" in # 3265 "parsing/parser.mly" ( xs ) -# 66464 "parsing/parser.ml" +# 66494 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in @@ -66469,15 +66499,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 66475 "parsing/parser.ml" +# 66505 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 66481 "parsing/parser.ml" +# 66511 "parsing/parser.ml" in let _endpos = _endpos__3_ in @@ -66490,25 +66520,25 @@ module Tables = struct mkfunction [] None (Pfunction_cases (cases, loc, [])) ~loc:_sloc ~attrs:_2 ) -# 66494 "parsing/parser.ml" +# 66524 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 66500 "parsing/parser.ml" +# 66530 "parsing/parser.ml" in # 2926 "parsing/parser.mly" ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } ) -# 66506 "parsing/parser.ml" +# 66536 "parsing/parser.ml" in # 2933 "parsing/parser.mly" ( Jane_syntax.Comprehensions.Cexp_array_comprehension (Mutable, _1) ) -# 66512 "parsing/parser.ml" +# 66542 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -66518,7 +66548,7 @@ module Tables = struct # 2940 "parsing/parser.mly" ( Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1 ) -# 66522 "parsing/parser.ml" +# 66552 "parsing/parser.ml" in let od = @@ -66529,7 +66559,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 66533 "parsing/parser.ml" +# 66563 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in @@ -66538,13 +66568,13 @@ module Tables = struct ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 66542 "parsing/parser.ml" +# 66572 "parsing/parser.ml" in # 3035 "parsing/parser.mly" ( Pexp_open(od, _3) ) -# 66548 "parsing/parser.ml" +# 66578 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -66554,13 +66584,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 66558 "parsing/parser.ml" +# 66588 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 66564 "parsing/parser.ml" +# 66594 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -66627,12 +66657,12 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 66631 "parsing/parser.ml" +# 66661 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 66636 "parsing/parser.ml" +# 66666 "parsing/parser.ml" in let _2 = @@ -66640,24 +66670,24 @@ module Tables = struct let _1 = # 2574 "parsing/parser.mly" ( _1 ) -# 66644 "parsing/parser.ml" +# 66674 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 66649 "parsing/parser.ml" +# 66679 "parsing/parser.ml" in # 2926 "parsing/parser.mly" ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } ) -# 66655 "parsing/parser.ml" +# 66685 "parsing/parser.ml" in # 2935 "parsing/parser.mly" ( Jane_syntax.Comprehensions.Cexp_array_comprehension (Immutable, _1) ) -# 66661 "parsing/parser.ml" +# 66691 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -66667,7 +66697,7 @@ module Tables = struct # 2940 "parsing/parser.mly" ( Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1 ) -# 66671 "parsing/parser.ml" +# 66701 "parsing/parser.ml" in let od = @@ -66678,7 +66708,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 66682 "parsing/parser.ml" +# 66712 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in @@ -66687,13 +66717,13 @@ module Tables = struct ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 66691 "parsing/parser.ml" +# 66721 "parsing/parser.ml" in # 3035 "parsing/parser.mly" ( Pexp_open(od, _3) ) -# 66697 "parsing/parser.ml" +# 66727 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -66703,13 +66733,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 66707 "parsing/parser.ml" +# 66737 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 66713 "parsing/parser.ml" +# 66743 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -66798,12 +66828,12 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 66802 "parsing/parser.ml" +# 66832 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 66807 "parsing/parser.ml" +# 66837 "parsing/parser.ml" in let _2 = @@ -66814,18 +66844,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 66818 "parsing/parser.ml" +# 66848 "parsing/parser.ml" in # 1423 "parsing/parser.mly" ( xs ) -# 66823 "parsing/parser.ml" +# 66853 "parsing/parser.ml" in # 3265 "parsing/parser.mly" ( xs ) -# 66829 "parsing/parser.ml" +# 66859 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in @@ -66834,15 +66864,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 66840 "parsing/parser.ml" +# 66870 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 66846 "parsing/parser.ml" +# 66876 "parsing/parser.ml" in let _endpos = _endpos__3_ in @@ -66855,25 +66885,25 @@ module Tables = struct mkfunction [] None (Pfunction_cases (cases, loc, [])) ~loc:_sloc ~attrs:_2 ) -# 66859 "parsing/parser.ml" +# 66889 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 66865 "parsing/parser.ml" +# 66895 "parsing/parser.ml" in # 2926 "parsing/parser.mly" ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } ) -# 66871 "parsing/parser.ml" +# 66901 "parsing/parser.ml" in # 2935 "parsing/parser.mly" ( Jane_syntax.Comprehensions.Cexp_array_comprehension (Immutable, _1) ) -# 66877 "parsing/parser.ml" +# 66907 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -66883,7 +66913,7 @@ module Tables = struct # 2940 "parsing/parser.mly" ( Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1 ) -# 66887 "parsing/parser.ml" +# 66917 "parsing/parser.ml" in let od = @@ -66894,7 +66924,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 66898 "parsing/parser.ml" +# 66928 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in @@ -66903,13 +66933,13 @@ module Tables = struct ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 66907 "parsing/parser.ml" +# 66937 "parsing/parser.ml" in # 3035 "parsing/parser.mly" ( Pexp_open(od, _3) ) -# 66913 "parsing/parser.ml" +# 66943 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -66919,13 +66949,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 66923 "parsing/parser.ml" +# 66953 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 66929 "parsing/parser.ml" +# 66959 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -66980,7 +67010,7 @@ module Tables = struct let _4 = # 3427 "parsing/parser.mly" ( es ) -# 66984 "parsing/parser.ml" +# 67014 "parsing/parser.ml" in let od = let _1 = @@ -66990,7 +67020,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 66994 "parsing/parser.ml" +# 67024 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in @@ -66999,7 +67029,7 @@ module Tables = struct ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 67003 "parsing/parser.ml" +# 67033 "parsing/parser.ml" in let _endpos = _endpos__5_ in @@ -67011,7 +67041,7 @@ module Tables = struct let tail_exp, _tail_loc = mktailexp _loc__5_ _4 in mkexp ~loc:(_startpos__3_, _endpos) tail_exp in Pexp_open(od, list_exp) ) -# 67015 "parsing/parser.ml" +# 67045 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -67021,13 +67051,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 67025 "parsing/parser.ml" +# 67055 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 67031 "parsing/parser.ml" +# 67061 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -67077,7 +67107,7 @@ module Tables = struct let _1 = # 3042 "parsing/parser.mly" (Lident "[]") -# 67081 "parsing/parser.ml" +# 67111 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in let _endpos = _endpos__1_ in @@ -67086,7 +67116,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 67090 "parsing/parser.ml" +# 67120 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in @@ -67098,7 +67128,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 67102 "parsing/parser.ml" +# 67132 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in @@ -67107,14 +67137,14 @@ module Tables = struct ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 67111 "parsing/parser.ml" +# 67141 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in # 3043 "parsing/parser.mly" ( Pexp_open(od, mkexp ~loc:_loc__3_ (Pexp_construct(_3, None))) ) -# 67118 "parsing/parser.ml" +# 67148 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_inlined1_ in @@ -67124,13 +67154,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 67128 "parsing/parser.ml" +# 67158 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 67134 "parsing/parser.ml" +# 67164 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -67185,14 +67215,14 @@ module Tables = struct let _4 = # 3427 "parsing/parser.mly" ( es ) -# 67189 "parsing/parser.ml" +# 67219 "parsing/parser.ml" in let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in # 3046 "parsing/parser.mly" ( unclosed "[" _loc__3_ "]" _loc__5_ ) -# 67196 "parsing/parser.ml" +# 67226 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -67202,13 +67232,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 67206 "parsing/parser.ml" +# 67236 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 67212 "parsing/parser.ml" +# 67242 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -67301,11 +67331,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4543 "parsing/parser.mly" +# 4544 "parsing/parser.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in let descr = Ptyp_package (lid, cstrs) in mktyp ~loc:_sloc ~attrs descr ) -# 67309 "parsing/parser.ml" +# 67339 "parsing/parser.ml" in let _5 = @@ -67313,15 +67343,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 67319 "parsing/parser.ml" +# 67349 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 67325 "parsing/parser.ml" +# 67355 "parsing/parser.ml" in let od = @@ -67332,7 +67362,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 67336 "parsing/parser.ml" +# 67366 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in @@ -67341,7 +67371,7 @@ module Tables = struct ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 67345 "parsing/parser.ml" +# 67375 "parsing/parser.ml" in let _startpos_od_ = _startpos__1_ in @@ -67354,7 +67384,7 @@ module Tables = struct mkexp_attrs ~loc:(_startpos__3_, _endpos) (Pexp_constraint (ghexp ~loc:_sloc (Pexp_pack _6), _8)) _5 in Pexp_open(od, modexp) ) -# 67358 "parsing/parser.ml" +# 67388 "parsing/parser.ml" in let _endpos__1_ = _endpos__9_ in @@ -67364,13 +67394,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 67368 "parsing/parser.ml" +# 67398 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 67374 "parsing/parser.ml" +# 67404 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -67455,15 +67485,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 67461 "parsing/parser.ml" +# 67491 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 67467 "parsing/parser.ml" +# 67497 "parsing/parser.ml" in let _loc__8_ = (_startpos__8_, _endpos__8_) in @@ -67471,7 +67501,7 @@ module Tables = struct # 3055 "parsing/parser.mly" ( unclosed "(" _loc__3_ ")" _loc__8_ ) -# 67475 "parsing/parser.ml" +# 67505 "parsing/parser.ml" in let _endpos__1_ = _endpos__8_ in @@ -67481,13 +67511,13 @@ module Tables = struct # 1238 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 67485 "parsing/parser.ml" +# 67515 "parsing/parser.ml" in # 2855 "parsing/parser.mly" ( _1 ) -# 67491 "parsing/parser.ml" +# 67521 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -67528,18 +67558,18 @@ module Tables = struct let _2 = # 3427 "parsing/parser.mly" ( es ) -# 67532 "parsing/parser.ml" +# 67562 "parsing/parser.ml" in # 2945 "parsing/parser.mly" ( Generic_array.Simple.Literal _2 ) -# 67537 "parsing/parser.ml" +# 67567 "parsing/parser.ml" in # 2954 "parsing/parser.mly" ( Generic_array.Expression.Simple _1 ) -# 67543 "parsing/parser.ml" +# 67573 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -67557,7 +67587,7 @@ module Tables = struct (Iaexp_immutable_array elts)) _1 ) -# 67561 "parsing/parser.ml" +# 67591 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -67598,20 +67628,20 @@ module Tables = struct let _2 = # 3427 "parsing/parser.mly" ( es ) -# 67602 "parsing/parser.ml" +# 67632 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 2947 "parsing/parser.mly" ( Generic_array.Simple.Unclosed(_loc__1_,_loc__3_) ) -# 67609 "parsing/parser.ml" +# 67639 "parsing/parser.ml" in # 2954 "parsing/parser.mly" ( Generic_array.Expression.Simple _1 ) -# 67615 "parsing/parser.ml" +# 67645 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -67629,7 +67659,7 @@ module Tables = struct (Iaexp_immutable_array elts)) _1 ) -# 67633 "parsing/parser.ml" +# 67663 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -67662,12 +67692,12 @@ module Tables = struct let _1 = # 2949 "parsing/parser.mly" ( Generic_array.Simple.Literal [] ) -# 67666 "parsing/parser.ml" +# 67696 "parsing/parser.ml" in # 2954 "parsing/parser.mly" ( Generic_array.Expression.Simple _1 ) -# 67671 "parsing/parser.ml" +# 67701 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -67685,7 +67715,7 @@ module Tables = struct (Iaexp_immutable_array elts)) _1 ) -# 67689 "parsing/parser.ml" +# 67719 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -67739,7 +67769,7 @@ module Tables = struct let _4 = # 3427 "parsing/parser.mly" ( es ) -# 67743 "parsing/parser.ml" +# 67773 "parsing/parser.ml" in let od = let _1 = @@ -67749,7 +67779,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 67753 "parsing/parser.ml" +# 67783 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in @@ -67758,7 +67788,7 @@ module Tables = struct ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 67762 "parsing/parser.ml" +# 67792 "parsing/parser.ml" in let _endpos = _endpos__5_ in @@ -67766,7 +67796,7 @@ module Tables = struct # 2956 "parsing/parser.mly" ( Generic_array.Expression.Opened_literal(od, _startpos__3_, _endpos, _4) ) -# 67770 "parsing/parser.ml" +# 67800 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -67784,7 +67814,7 @@ module Tables = struct (Iaexp_immutable_array elts)) _1 ) -# 67788 "parsing/parser.ml" +# 67818 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -67836,7 +67866,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 67840 "parsing/parser.ml" +# 67870 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in @@ -67845,7 +67875,7 @@ module Tables = struct ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 67849 "parsing/parser.ml" +# 67879 "parsing/parser.ml" in let _endpos = _endpos__4_ in @@ -67854,7 +67884,7 @@ module Tables = struct ( (* TODO: review the location of Pexp_array *) Generic_array.Expression.Opened_literal(od, _startpos__3_, _endpos, []) ) -# 67858 "parsing/parser.ml" +# 67888 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -67872,7 +67902,7 @@ module Tables = struct (Iaexp_immutable_array elts)) _1 ) -# 67876 "parsing/parser.ml" +# 67906 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -67926,14 +67956,14 @@ module Tables = struct let _4 = # 3427 "parsing/parser.mly" ( es ) -# 67930 "parsing/parser.ml" +# 67960 "parsing/parser.ml" in let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in # 2964 "parsing/parser.mly" ( Generic_array.Expression.Simple (Unclosed(_loc__3_, _loc__5_)) ) -# 67937 "parsing/parser.ml" +# 67967 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -67951,7 +67981,7 @@ module Tables = struct (Iaexp_immutable_array elts)) _1 ) -# 67955 "parsing/parser.ml" +# 67985 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -67979,7 +68009,7 @@ module Tables = struct # 2869 "parsing/parser.mly" ( Constant.to_expression ~loc:_sloc _1 ) -# 67983 "parsing/parser.ml" +# 68013 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -68029,12 +68059,12 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 68033 "parsing/parser.ml" +# 68063 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 68038 "parsing/parser.ml" +# 68068 "parsing/parser.ml" in let _2 = @@ -68042,24 +68072,24 @@ module Tables = struct let _1 = # 2574 "parsing/parser.mly" ( _1 ) -# 68046 "parsing/parser.ml" +# 68076 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 68051 "parsing/parser.ml" +# 68081 "parsing/parser.ml" in # 2926 "parsing/parser.mly" ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } ) -# 68057 "parsing/parser.ml" +# 68087 "parsing/parser.ml" in # 2931 "parsing/parser.mly" ( Jane_syntax.Comprehensions.Cexp_list_comprehension _1 ) -# 68063 "parsing/parser.ml" +# 68093 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -68069,13 +68099,13 @@ module Tables = struct # 2940 "parsing/parser.mly" ( Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1 ) -# 68073 "parsing/parser.ml" +# 68103 "parsing/parser.ml" in # 2870 "parsing/parser.mly" ( _1 ) -# 68079 "parsing/parser.ml" +# 68109 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -68147,12 +68177,12 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 68151 "parsing/parser.ml" +# 68181 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 68156 "parsing/parser.ml" +# 68186 "parsing/parser.ml" in let _2 = @@ -68163,18 +68193,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 68167 "parsing/parser.ml" +# 68197 "parsing/parser.ml" in # 1423 "parsing/parser.mly" ( xs ) -# 68172 "parsing/parser.ml" +# 68202 "parsing/parser.ml" in # 3265 "parsing/parser.mly" ( xs ) -# 68178 "parsing/parser.ml" +# 68208 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in @@ -68183,15 +68213,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 68189 "parsing/parser.ml" +# 68219 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 68195 "parsing/parser.ml" +# 68225 "parsing/parser.ml" in let _endpos = _endpos__3_ in @@ -68204,25 +68234,25 @@ module Tables = struct mkfunction [] None (Pfunction_cases (cases, loc, [])) ~loc:_sloc ~attrs:_2 ) -# 68208 "parsing/parser.ml" +# 68238 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 68214 "parsing/parser.ml" +# 68244 "parsing/parser.ml" in # 2926 "parsing/parser.mly" ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } ) -# 68220 "parsing/parser.ml" +# 68250 "parsing/parser.ml" in # 2931 "parsing/parser.mly" ( Jane_syntax.Comprehensions.Cexp_list_comprehension _1 ) -# 68226 "parsing/parser.ml" +# 68256 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -68232,13 +68262,13 @@ module Tables = struct # 2940 "parsing/parser.mly" ( Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1 ) -# 68236 "parsing/parser.ml" +# 68266 "parsing/parser.ml" in # 2870 "parsing/parser.mly" ( _1 ) -# 68242 "parsing/parser.ml" +# 68272 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -68288,12 +68318,12 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 68292 "parsing/parser.ml" +# 68322 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 68297 "parsing/parser.ml" +# 68327 "parsing/parser.ml" in let _2 = @@ -68301,24 +68331,24 @@ module Tables = struct let _1 = # 2574 "parsing/parser.mly" ( _1 ) -# 68305 "parsing/parser.ml" +# 68335 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 68310 "parsing/parser.ml" +# 68340 "parsing/parser.ml" in # 2926 "parsing/parser.mly" ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } ) -# 68316 "parsing/parser.ml" +# 68346 "parsing/parser.ml" in # 2933 "parsing/parser.mly" ( Jane_syntax.Comprehensions.Cexp_array_comprehension (Mutable, _1) ) -# 68322 "parsing/parser.ml" +# 68352 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -68328,13 +68358,13 @@ module Tables = struct # 2940 "parsing/parser.mly" ( Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1 ) -# 68332 "parsing/parser.ml" +# 68362 "parsing/parser.ml" in # 2870 "parsing/parser.mly" ( _1 ) -# 68338 "parsing/parser.ml" +# 68368 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -68406,12 +68436,12 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 68410 "parsing/parser.ml" +# 68440 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 68415 "parsing/parser.ml" +# 68445 "parsing/parser.ml" in let _2 = @@ -68422,18 +68452,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 68426 "parsing/parser.ml" +# 68456 "parsing/parser.ml" in # 1423 "parsing/parser.mly" ( xs ) -# 68431 "parsing/parser.ml" +# 68461 "parsing/parser.ml" in # 3265 "parsing/parser.mly" ( xs ) -# 68437 "parsing/parser.ml" +# 68467 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in @@ -68442,15 +68472,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 68448 "parsing/parser.ml" +# 68478 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 68454 "parsing/parser.ml" +# 68484 "parsing/parser.ml" in let _endpos = _endpos__3_ in @@ -68463,25 +68493,25 @@ module Tables = struct mkfunction [] None (Pfunction_cases (cases, loc, [])) ~loc:_sloc ~attrs:_2 ) -# 68467 "parsing/parser.ml" +# 68497 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 68473 "parsing/parser.ml" +# 68503 "parsing/parser.ml" in # 2926 "parsing/parser.mly" ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } ) -# 68479 "parsing/parser.ml" +# 68509 "parsing/parser.ml" in # 2933 "parsing/parser.mly" ( Jane_syntax.Comprehensions.Cexp_array_comprehension (Mutable, _1) ) -# 68485 "parsing/parser.ml" +# 68515 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -68491,13 +68521,13 @@ module Tables = struct # 2940 "parsing/parser.mly" ( Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1 ) -# 68495 "parsing/parser.ml" +# 68525 "parsing/parser.ml" in # 2870 "parsing/parser.mly" ( _1 ) -# 68501 "parsing/parser.ml" +# 68531 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -68547,12 +68577,12 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 68551 "parsing/parser.ml" +# 68581 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 68556 "parsing/parser.ml" +# 68586 "parsing/parser.ml" in let _2 = @@ -68560,24 +68590,24 @@ module Tables = struct let _1 = # 2574 "parsing/parser.mly" ( _1 ) -# 68564 "parsing/parser.ml" +# 68594 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 68569 "parsing/parser.ml" +# 68599 "parsing/parser.ml" in # 2926 "parsing/parser.mly" ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } ) -# 68575 "parsing/parser.ml" +# 68605 "parsing/parser.ml" in # 2935 "parsing/parser.mly" ( Jane_syntax.Comprehensions.Cexp_array_comprehension (Immutable, _1) ) -# 68581 "parsing/parser.ml" +# 68611 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -68587,13 +68617,13 @@ module Tables = struct # 2940 "parsing/parser.mly" ( Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1 ) -# 68591 "parsing/parser.ml" +# 68621 "parsing/parser.ml" in # 2870 "parsing/parser.mly" ( _1 ) -# 68597 "parsing/parser.ml" +# 68627 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -68665,12 +68695,12 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 68669 "parsing/parser.ml" +# 68699 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 68674 "parsing/parser.ml" +# 68704 "parsing/parser.ml" in let _2 = @@ -68681,18 +68711,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 68685 "parsing/parser.ml" +# 68715 "parsing/parser.ml" in # 1423 "parsing/parser.mly" ( xs ) -# 68690 "parsing/parser.ml" +# 68720 "parsing/parser.ml" in # 3265 "parsing/parser.mly" ( xs ) -# 68696 "parsing/parser.ml" +# 68726 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in @@ -68701,15 +68731,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 68707 "parsing/parser.ml" +# 68737 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 68713 "parsing/parser.ml" +# 68743 "parsing/parser.ml" in let _endpos = _endpos__3_ in @@ -68722,25 +68752,25 @@ module Tables = struct mkfunction [] None (Pfunction_cases (cases, loc, [])) ~loc:_sloc ~attrs:_2 ) -# 68726 "parsing/parser.ml" +# 68756 "parsing/parser.ml" in # 2778 "parsing/parser.mly" ( _1 ) -# 68732 "parsing/parser.ml" +# 68762 "parsing/parser.ml" in # 2926 "parsing/parser.mly" ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } ) -# 68738 "parsing/parser.ml" +# 68768 "parsing/parser.ml" in # 2935 "parsing/parser.mly" ( Jane_syntax.Comprehensions.Cexp_array_comprehension (Immutable, _1) ) -# 68744 "parsing/parser.ml" +# 68774 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -68750,13 +68780,13 @@ module Tables = struct # 2940 "parsing/parser.mly" ( Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1 ) -# 68754 "parsing/parser.ml" +# 68784 "parsing/parser.ml" in # 2870 "parsing/parser.mly" ( _1 ) -# 68760 "parsing/parser.ml" +# 68790 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -68787,13 +68817,13 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 68791 "parsing/parser.ml" +# 68821 "parsing/parser.ml" in -# 3590 "parsing/parser.mly" +# 3591 "parsing/parser.mly" ( Ppat_var (_1) ) -# 68797 "parsing/parser.ml" +# 68827 "parsing/parser.ml" in let _endpos = _endpos__1_ in @@ -68802,13 +68832,13 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 68806 "parsing/parser.ml" +# 68836 "parsing/parser.ml" in -# 3591 "parsing/parser.mly" +# 3592 "parsing/parser.mly" ( _1 ) -# 68812 "parsing/parser.ml" +# 68842 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -68831,9 +68861,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = -# 3592 "parsing/parser.mly" +# 3593 "parsing/parser.mly" ( _1 ) -# 68837 "parsing/parser.ml" +# 68867 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -68873,9 +68903,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3597 "parsing/parser.mly" +# 3598 "parsing/parser.mly" ( reloc_pat ~loc:_sloc _2 ) -# 68879 "parsing/parser.ml" +# 68909 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -68898,9 +68928,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = -# 3599 "parsing/parser.mly" +# 3600 "parsing/parser.mly" ( _1 ) -# 68904 "parsing/parser.ml" +# 68934 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -68965,7 +68995,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 68969 "parsing/parser.ml" +# 68999 "parsing/parser.ml" in let _3 = @@ -68973,24 +69003,24 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 68979 "parsing/parser.ml" +# 69009 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 68985 "parsing/parser.ml" +# 69015 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3601 "parsing/parser.mly" +# 3602 "parsing/parser.mly" ( mkpat_attrs ~loc:_sloc (Ppat_unpack _4) _3 ) -# 68994 "parsing/parser.ml" +# 69024 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -69067,11 +69097,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4543 "parsing/parser.mly" +# 4544 "parsing/parser.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in let descr = Ptyp_package (lid, cstrs) in mktyp ~loc:_sloc ~attrs descr ) -# 69075 "parsing/parser.ml" +# 69105 "parsing/parser.ml" in let _4 = @@ -69082,7 +69112,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 69086 "parsing/parser.ml" +# 69116 "parsing/parser.ml" in let (_endpos__4_, _startpos__4_) = (_endpos__1_inlined3_, _startpos__1_inlined3_) in @@ -69091,15 +69121,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 69097 "parsing/parser.ml" +# 69127 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 69103 "parsing/parser.ml" +# 69133 "parsing/parser.ml" in let _endpos = _endpos__7_ in @@ -69107,11 +69137,11 @@ module Tables = struct let _loc__4_ = (_startpos__4_, _endpos__4_) in let _sloc = (_symbolstartpos, _endpos) in -# 3603 "parsing/parser.mly" +# 3604 "parsing/parser.mly" ( mkpat_attrs ~loc:_sloc (Ppat_constraint(mkpat ~loc:_loc__4_ (Ppat_unpack _4), _6)) _3 ) -# 69115 "parsing/parser.ml" +# 69145 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -69136,9 +69166,9 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = let _1 = let _1 = -# 3613 "parsing/parser.mly" +# 3614 "parsing/parser.mly" ( Ppat_any ) -# 69142 "parsing/parser.ml" +# 69172 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -69146,19 +69176,19 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 69150 "parsing/parser.ml" +# 69180 "parsing/parser.ml" in -# 3645 "parsing/parser.mly" +# 3646 "parsing/parser.mly" ( _1 ) -# 69156 "parsing/parser.ml" +# 69186 "parsing/parser.ml" in -# 3607 "parsing/parser.mly" +# 3608 "parsing/parser.mly" ( _1 ) -# 69162 "parsing/parser.ml" +# 69192 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -69197,9 +69227,9 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = let _1 = let _1 = -# 3615 "parsing/parser.mly" +# 3616 "parsing/parser.mly" ( Ppat_interval (_1, _3) ) -# 69203 "parsing/parser.ml" +# 69233 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in @@ -69208,19 +69238,19 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 69212 "parsing/parser.ml" +# 69242 "parsing/parser.ml" in -# 3645 "parsing/parser.mly" +# 3646 "parsing/parser.mly" ( _1 ) -# 69218 "parsing/parser.ml" +# 69248 "parsing/parser.ml" in -# 3607 "parsing/parser.mly" +# 3608 "parsing/parser.mly" ( _1 ) -# 69224 "parsing/parser.ml" +# 69254 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -69252,13 +69282,13 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 69256 "parsing/parser.ml" +# 69286 "parsing/parser.ml" in -# 3617 "parsing/parser.mly" +# 3618 "parsing/parser.mly" ( Ppat_construct(_1, None) ) -# 69262 "parsing/parser.ml" +# 69292 "parsing/parser.ml" in let _endpos = _endpos__1_ in @@ -69267,19 +69297,19 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 69271 "parsing/parser.ml" +# 69301 "parsing/parser.ml" in -# 3645 "parsing/parser.mly" +# 3646 "parsing/parser.mly" ( _1 ) -# 69277 "parsing/parser.ml" +# 69307 "parsing/parser.ml" in -# 3607 "parsing/parser.mly" +# 3608 "parsing/parser.mly" ( _1 ) -# 69283 "parsing/parser.ml" +# 69313 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -69304,9 +69334,9 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = let _1 = let _1 = -# 3619 "parsing/parser.mly" +# 3620 "parsing/parser.mly" ( Ppat_variant(_1, None) ) -# 69310 "parsing/parser.ml" +# 69340 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -69314,19 +69344,19 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 69318 "parsing/parser.ml" +# 69348 "parsing/parser.ml" in -# 3645 "parsing/parser.mly" +# 3646 "parsing/parser.mly" ( _1 ) -# 69324 "parsing/parser.ml" +# 69354 "parsing/parser.ml" in -# 3607 "parsing/parser.mly" +# 3608 "parsing/parser.mly" ( _1 ) -# 69330 "parsing/parser.ml" +# 69360 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -69366,18 +69396,18 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 69370 "parsing/parser.ml" +# 69400 "parsing/parser.ml" in let _1 = # 2973 "parsing/parser.mly" ( () ) -# 69376 "parsing/parser.ml" +# 69406 "parsing/parser.ml" in -# 3621 "parsing/parser.mly" +# 3622 "parsing/parser.mly" ( Ppat_type (_2) ) -# 69381 "parsing/parser.ml" +# 69411 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -69387,19 +69417,19 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 69391 "parsing/parser.ml" +# 69421 "parsing/parser.ml" in -# 3645 "parsing/parser.mly" +# 3646 "parsing/parser.mly" ( _1 ) -# 69397 "parsing/parser.ml" +# 69427 "parsing/parser.ml" in -# 3607 "parsing/parser.mly" +# 3608 "parsing/parser.mly" ( _1 ) -# 69403 "parsing/parser.ml" +# 69433 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -69439,18 +69469,18 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 69443 "parsing/parser.ml" +# 69473 "parsing/parser.ml" in let _1 = # 2974 "parsing/parser.mly" ( () ) -# 69449 "parsing/parser.ml" +# 69479 "parsing/parser.ml" in -# 3621 "parsing/parser.mly" +# 3622 "parsing/parser.mly" ( Ppat_type (_2) ) -# 69454 "parsing/parser.ml" +# 69484 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -69460,19 +69490,19 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 69464 "parsing/parser.ml" +# 69494 "parsing/parser.ml" in -# 3645 "parsing/parser.mly" +# 3646 "parsing/parser.mly" ( _1 ) -# 69470 "parsing/parser.ml" +# 69500 "parsing/parser.ml" in -# 3607 "parsing/parser.mly" +# 3608 "parsing/parser.mly" ( _1 ) -# 69476 "parsing/parser.ml" +# 69506 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -69518,13 +69548,13 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 69522 "parsing/parser.ml" +# 69552 "parsing/parser.ml" in -# 3623 "parsing/parser.mly" +# 3624 "parsing/parser.mly" ( Ppat_open(_1, _3) ) -# 69528 "parsing/parser.ml" +# 69558 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -69534,19 +69564,19 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 69538 "parsing/parser.ml" +# 69568 "parsing/parser.ml" in -# 3645 "parsing/parser.mly" +# 3646 "parsing/parser.mly" ( _1 ) -# 69544 "parsing/parser.ml" +# 69574 "parsing/parser.ml" in -# 3607 "parsing/parser.mly" +# 3608 "parsing/parser.mly" ( _1 ) -# 69550 "parsing/parser.ml" +# 69580 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -69595,9 +69625,9 @@ module Tables = struct let _3 = let (_endpos__2_, _startpos__1_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in let _1 = -# 3624 "parsing/parser.mly" +# 3625 "parsing/parser.mly" (Lident "[]") -# 69601 "parsing/parser.ml" +# 69631 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in let _endpos = _endpos__1_ in @@ -69606,7 +69636,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 69610 "parsing/parser.ml" +# 69640 "parsing/parser.ml" in let _endpos__3_ = _endpos__2_inlined1_ in @@ -69617,16 +69647,16 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 69621 "parsing/parser.ml" +# 69651 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3625 "parsing/parser.mly" +# 3626 "parsing/parser.mly" ( Ppat_open(_1, mkpat ~loc:_sloc (Ppat_construct(_3, None))) ) -# 69630 "parsing/parser.ml" +# 69660 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_inlined1_ in @@ -69636,19 +69666,19 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 69640 "parsing/parser.ml" +# 69670 "parsing/parser.ml" in -# 3645 "parsing/parser.mly" +# 3646 "parsing/parser.mly" ( _1 ) -# 69646 "parsing/parser.ml" +# 69676 "parsing/parser.ml" in -# 3607 "parsing/parser.mly" +# 3608 "parsing/parser.mly" ( _1 ) -# 69652 "parsing/parser.ml" +# 69682 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -69697,9 +69727,9 @@ module Tables = struct let _3 = let (_endpos__2_, _startpos__1_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in let _1 = -# 3626 "parsing/parser.mly" +# 3627 "parsing/parser.mly" (Lident "()") -# 69703 "parsing/parser.ml" +# 69733 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in let _endpos = _endpos__1_ in @@ -69708,7 +69738,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 69712 "parsing/parser.ml" +# 69742 "parsing/parser.ml" in let _endpos__3_ = _endpos__2_inlined1_ in @@ -69719,16 +69749,16 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 69723 "parsing/parser.ml" +# 69753 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3627 "parsing/parser.mly" +# 3628 "parsing/parser.mly" ( Ppat_open(_1, mkpat ~loc:_sloc (Ppat_construct(_3, None))) ) -# 69732 "parsing/parser.ml" +# 69762 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_inlined1_ in @@ -69738,19 +69768,19 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 69742 "parsing/parser.ml" +# 69772 "parsing/parser.ml" in -# 3645 "parsing/parser.mly" +# 3646 "parsing/parser.mly" ( _1 ) -# 69748 "parsing/parser.ml" +# 69778 "parsing/parser.ml" in -# 3607 "parsing/parser.mly" +# 3608 "parsing/parser.mly" ( _1 ) -# 69754 "parsing/parser.ml" +# 69784 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -69810,13 +69840,13 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 69814 "parsing/parser.ml" +# 69844 "parsing/parser.ml" in -# 3629 "parsing/parser.mly" +# 3630 "parsing/parser.mly" ( Ppat_open (_1, _4) ) -# 69820 "parsing/parser.ml" +# 69850 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -69826,19 +69856,19 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 69830 "parsing/parser.ml" +# 69860 "parsing/parser.ml" in -# 3645 "parsing/parser.mly" +# 3646 "parsing/parser.mly" ( _1 ) -# 69836 "parsing/parser.ml" +# 69866 "parsing/parser.ml" in -# 3607 "parsing/parser.mly" +# 3608 "parsing/parser.mly" ( _1 ) -# 69842 "parsing/parser.ml" +# 69872 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -69894,9 +69924,9 @@ module Tables = struct let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3631 "parsing/parser.mly" +# 3632 "parsing/parser.mly" ( unclosed "(" _loc__3_ ")" _loc__5_ ) -# 69900 "parsing/parser.ml" +# 69930 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -69906,19 +69936,19 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 69910 "parsing/parser.ml" +# 69940 "parsing/parser.ml" in -# 3645 "parsing/parser.mly" +# 3646 "parsing/parser.mly" ( _1 ) -# 69916 "parsing/parser.ml" +# 69946 "parsing/parser.ml" in -# 3607 "parsing/parser.mly" +# 3608 "parsing/parser.mly" ( _1 ) -# 69922 "parsing/parser.ml" +# 69952 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -69966,9 +69996,9 @@ module Tables = struct let _1 = let _loc__4_ = (_startpos__4_, _endpos__4_) in -# 3633 "parsing/parser.mly" +# 3634 "parsing/parser.mly" ( expecting _loc__4_ "pattern" ) -# 69972 "parsing/parser.ml" +# 70002 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -69978,19 +70008,19 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 69982 "parsing/parser.ml" +# 70012 "parsing/parser.ml" in -# 3645 "parsing/parser.mly" +# 3646 "parsing/parser.mly" ( _1 ) -# 69988 "parsing/parser.ml" +# 70018 "parsing/parser.ml" in -# 3607 "parsing/parser.mly" +# 3608 "parsing/parser.mly" ( _1 ) -# 69994 "parsing/parser.ml" +# 70024 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -70032,9 +70062,9 @@ module Tables = struct let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 3635 "parsing/parser.mly" +# 3636 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) -# 70038 "parsing/parser.ml" +# 70068 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -70044,19 +70074,19 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 70048 "parsing/parser.ml" +# 70078 "parsing/parser.ml" in -# 3645 "parsing/parser.mly" +# 3646 "parsing/parser.mly" ( _1 ) -# 70054 "parsing/parser.ml" +# 70084 "parsing/parser.ml" in -# 3607 "parsing/parser.mly" +# 3608 "parsing/parser.mly" ( _1 ) -# 70060 "parsing/parser.ml" +# 70090 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -70112,9 +70142,9 @@ module Tables = struct let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 3637 "parsing/parser.mly" +# 3638 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__5_ ) -# 70118 "parsing/parser.ml" +# 70148 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -70124,19 +70154,19 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 70128 "parsing/parser.ml" +# 70158 "parsing/parser.ml" in -# 3645 "parsing/parser.mly" +# 3646 "parsing/parser.mly" ( _1 ) -# 70134 "parsing/parser.ml" +# 70164 "parsing/parser.ml" in -# 3607 "parsing/parser.mly" +# 3608 "parsing/parser.mly" ( _1 ) -# 70140 "parsing/parser.ml" +# 70170 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -70184,9 +70214,9 @@ module Tables = struct let _1 = let _loc__4_ = (_startpos__4_, _endpos__4_) in -# 3639 "parsing/parser.mly" +# 3640 "parsing/parser.mly" ( expecting _loc__4_ "type" ) -# 70190 "parsing/parser.ml" +# 70220 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -70196,19 +70226,19 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 70200 "parsing/parser.ml" +# 70230 "parsing/parser.ml" in -# 3645 "parsing/parser.mly" +# 3646 "parsing/parser.mly" ( _1 ) -# 70206 "parsing/parser.ml" +# 70236 "parsing/parser.ml" in -# 3607 "parsing/parser.mly" +# 3608 "parsing/parser.mly" ( _1 ) -# 70212 "parsing/parser.ml" +# 70242 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -70288,11 +70318,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4543 "parsing/parser.mly" +# 4544 "parsing/parser.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in let descr = Ptyp_package (lid, cstrs) in mktyp ~loc:_sloc ~attrs descr ) -# 70296 "parsing/parser.ml" +# 70326 "parsing/parser.ml" in let _3 = @@ -70300,23 +70330,23 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 70306 "parsing/parser.ml" +# 70336 "parsing/parser.ml" in -# 5019 "parsing/parser.mly" +# 5020 "parsing/parser.mly" ( _1, _2 ) -# 70312 "parsing/parser.ml" +# 70342 "parsing/parser.ml" in let _loc__7_ = (_startpos__7_, _endpos__7_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 3642 "parsing/parser.mly" +# 3643 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__7_ ) -# 70320 "parsing/parser.ml" +# 70350 "parsing/parser.ml" in let _endpos__1_ = _endpos__7_ in @@ -70326,19 +70356,19 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 70330 "parsing/parser.ml" +# 70360 "parsing/parser.ml" in -# 3645 "parsing/parser.mly" +# 3646 "parsing/parser.mly" ( _1 ) -# 70336 "parsing/parser.ml" +# 70366 "parsing/parser.ml" in -# 3607 "parsing/parser.mly" +# 3608 "parsing/parser.mly" ( _1 ) -# 70342 "parsing/parser.ml" +# 70372 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -70363,9 +70393,9 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = let _1 = let _1 = -# 3644 "parsing/parser.mly" +# 3645 "parsing/parser.mly" ( Ppat_extension _1 ) -# 70369 "parsing/parser.ml" +# 70399 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -70373,19 +70403,19 @@ module Tables = struct # 1240 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 70377 "parsing/parser.ml" +# 70407 "parsing/parser.ml" in -# 3645 "parsing/parser.mly" +# 3646 "parsing/parser.mly" ( _1 ) -# 70383 "parsing/parser.ml" +# 70413 "parsing/parser.ml" in -# 3607 "parsing/parser.mly" +# 3608 "parsing/parser.mly" ( _1 ) -# 70389 "parsing/parser.ml" +# 70419 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -70429,14 +70459,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Parsetree.pattern) = let _1 = -# 3647 "parsing/parser.mly" +# 3648 "parsing/parser.mly" ( mkpat_with_modes _3 _2 ) -# 70435 "parsing/parser.ml" +# 70465 "parsing/parser.ml" in -# 3607 "parsing/parser.mly" +# 3608 "parsing/parser.mly" ( _1 ) -# 70440 "parsing/parser.ml" +# 70470 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -70488,24 +70518,24 @@ module Tables = struct let _endpos = _endpos__6_ in let _v : (Parsetree.pattern) = let _1 = let _5 = -# 4417 "parsing/parser.mly" +# 4418 "parsing/parser.mly" ( Mode.empty ) -# 70494 "parsing/parser.ml" +# 70524 "parsing/parser.ml" in let _endpos = _endpos__6_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3649 "parsing/parser.mly" +# 3650 "parsing/parser.mly" ( mkpat_with_modes _5 @@ mkpat ~loc:_sloc (Ppat_constraint(_2, _4)) ) -# 70503 "parsing/parser.ml" +# 70533 "parsing/parser.ml" in -# 3607 "parsing/parser.mly" +# 3608 "parsing/parser.mly" ( _1 ) -# 70509 "parsing/parser.ml" +# 70539 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -70566,25 +70596,25 @@ module Tables = struct let _5 = let _1 = _1_inlined1 in -# 4418 "parsing/parser.mly" +# 4419 "parsing/parser.mly" (_1) -# 70572 "parsing/parser.ml" +# 70602 "parsing/parser.ml" in let _endpos = _endpos__6_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3649 "parsing/parser.mly" +# 3650 "parsing/parser.mly" ( mkpat_with_modes _5 @@ mkpat ~loc:_sloc (Ppat_constraint(_2, _4)) ) -# 70582 "parsing/parser.ml" +# 70612 "parsing/parser.ml" in -# 3607 "parsing/parser.mly" +# 3608 "parsing/parser.mly" ( _1 ) -# 70588 "parsing/parser.ml" +# 70618 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -70610,9 +70640,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3608 "parsing/parser.mly" +# 3609 "parsing/parser.mly" ( Constant.to_pattern _1 ~loc:_sloc ) -# 70616 "parsing/parser.ml" +# 70646 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -70633,15 +70663,15 @@ module Tables = struct let _1 : ( # 1016 "parsing/parser.mly" (string) -# 70637 "parsing/parser.ml" +# 70667 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4926 "parsing/parser.mly" +# 4927 "parsing/parser.mly" ( _1 ) -# 70645 "parsing/parser.ml" +# 70675 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -70662,15 +70692,15 @@ module Tables = struct let _1 : ( # 1071 "parsing/parser.mly" (string) -# 70666 "parsing/parser.ml" +# 70696 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4927 "parsing/parser.mly" +# 4928 "parsing/parser.mly" ( _1 ) -# 70674 "parsing/parser.ml" +# 70704 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -70693,9 +70723,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4928 "parsing/parser.mly" +# 4929 "parsing/parser.mly" ( "and" ) -# 70699 "parsing/parser.ml" +# 70729 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -70718,9 +70748,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4929 "parsing/parser.mly" +# 4930 "parsing/parser.mly" ( "as" ) -# 70724 "parsing/parser.ml" +# 70754 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -70743,9 +70773,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4930 "parsing/parser.mly" +# 4931 "parsing/parser.mly" ( "assert" ) -# 70749 "parsing/parser.ml" +# 70779 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -70768,9 +70798,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4931 "parsing/parser.mly" +# 4932 "parsing/parser.mly" ( "begin" ) -# 70774 "parsing/parser.ml" +# 70804 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -70793,9 +70823,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4932 "parsing/parser.mly" +# 4933 "parsing/parser.mly" ( "class" ) -# 70799 "parsing/parser.ml" +# 70829 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -70818,9 +70848,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4933 "parsing/parser.mly" +# 4934 "parsing/parser.mly" ( "constraint" ) -# 70824 "parsing/parser.ml" +# 70854 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -70843,9 +70873,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4934 "parsing/parser.mly" +# 4935 "parsing/parser.mly" ( "do" ) -# 70849 "parsing/parser.ml" +# 70879 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -70868,9 +70898,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4935 "parsing/parser.mly" +# 4936 "parsing/parser.mly" ( "done" ) -# 70874 "parsing/parser.ml" +# 70904 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -70893,9 +70923,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4936 "parsing/parser.mly" +# 4937 "parsing/parser.mly" ( "downto" ) -# 70899 "parsing/parser.ml" +# 70929 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -70918,9 +70948,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4937 "parsing/parser.mly" +# 4938 "parsing/parser.mly" ( "else" ) -# 70924 "parsing/parser.ml" +# 70954 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -70943,9 +70973,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4938 "parsing/parser.mly" +# 4939 "parsing/parser.mly" ( "end" ) -# 70949 "parsing/parser.ml" +# 70979 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -70968,9 +70998,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4939 "parsing/parser.mly" +# 4940 "parsing/parser.mly" ( "exception" ) -# 70974 "parsing/parser.ml" +# 71004 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -70993,9 +71023,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4940 "parsing/parser.mly" +# 4941 "parsing/parser.mly" ( "external" ) -# 70999 "parsing/parser.ml" +# 71029 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -71018,9 +71048,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4941 "parsing/parser.mly" +# 4942 "parsing/parser.mly" ( "false" ) -# 71024 "parsing/parser.ml" +# 71054 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -71043,9 +71073,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4942 "parsing/parser.mly" +# 4943 "parsing/parser.mly" ( "for" ) -# 71049 "parsing/parser.ml" +# 71079 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -71068,9 +71098,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4943 "parsing/parser.mly" +# 4944 "parsing/parser.mly" ( "fun" ) -# 71074 "parsing/parser.ml" +# 71104 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -71093,9 +71123,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4944 "parsing/parser.mly" +# 4945 "parsing/parser.mly" ( "function" ) -# 71099 "parsing/parser.ml" +# 71129 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -71118,9 +71148,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4945 "parsing/parser.mly" +# 4946 "parsing/parser.mly" ( "functor" ) -# 71124 "parsing/parser.ml" +# 71154 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -71143,9 +71173,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4946 "parsing/parser.mly" +# 4947 "parsing/parser.mly" ( "if" ) -# 71149 "parsing/parser.ml" +# 71179 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -71168,9 +71198,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4947 "parsing/parser.mly" +# 4948 "parsing/parser.mly" ( "in" ) -# 71174 "parsing/parser.ml" +# 71204 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -71193,9 +71223,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4948 "parsing/parser.mly" +# 4949 "parsing/parser.mly" ( "include" ) -# 71199 "parsing/parser.ml" +# 71229 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -71218,9 +71248,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4949 "parsing/parser.mly" +# 4950 "parsing/parser.mly" ( "inherit" ) -# 71224 "parsing/parser.ml" +# 71254 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -71243,9 +71273,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4950 "parsing/parser.mly" +# 4951 "parsing/parser.mly" ( "initializer" ) -# 71249 "parsing/parser.ml" +# 71279 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -71268,9 +71298,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4951 "parsing/parser.mly" +# 4952 "parsing/parser.mly" ( "lazy" ) -# 71274 "parsing/parser.ml" +# 71304 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -71293,9 +71323,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4952 "parsing/parser.mly" +# 4953 "parsing/parser.mly" ( "let" ) -# 71299 "parsing/parser.ml" +# 71329 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -71318,9 +71348,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4953 "parsing/parser.mly" +# 4954 "parsing/parser.mly" ( "local_" ) -# 71324 "parsing/parser.ml" +# 71354 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -71343,9 +71373,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4954 "parsing/parser.mly" +# 4955 "parsing/parser.mly" ( "match" ) -# 71349 "parsing/parser.ml" +# 71379 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -71368,9 +71398,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4955 "parsing/parser.mly" +# 4956 "parsing/parser.mly" ( "method" ) -# 71374 "parsing/parser.ml" +# 71404 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -71393,9 +71423,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4956 "parsing/parser.mly" +# 4957 "parsing/parser.mly" ( "module" ) -# 71399 "parsing/parser.ml" +# 71429 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -71418,9 +71448,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4957 "parsing/parser.mly" +# 4958 "parsing/parser.mly" ( "mutable" ) -# 71424 "parsing/parser.ml" +# 71454 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -71443,9 +71473,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4958 "parsing/parser.mly" +# 4959 "parsing/parser.mly" ( "new" ) -# 71449 "parsing/parser.ml" +# 71479 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -71468,9 +71498,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4959 "parsing/parser.mly" +# 4960 "parsing/parser.mly" ( "nonrec" ) -# 71474 "parsing/parser.ml" +# 71504 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -71493,9 +71523,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4960 "parsing/parser.mly" +# 4961 "parsing/parser.mly" ( "object" ) -# 71499 "parsing/parser.ml" +# 71529 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -71518,9 +71548,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4961 "parsing/parser.mly" +# 4962 "parsing/parser.mly" ( "of" ) -# 71524 "parsing/parser.ml" +# 71554 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -71543,9 +71573,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4962 "parsing/parser.mly" +# 4963 "parsing/parser.mly" ( "open" ) -# 71549 "parsing/parser.ml" +# 71579 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -71568,9 +71598,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4963 "parsing/parser.mly" +# 4964 "parsing/parser.mly" ( "or" ) -# 71574 "parsing/parser.ml" +# 71604 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -71593,9 +71623,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4964 "parsing/parser.mly" +# 4965 "parsing/parser.mly" ( "private" ) -# 71599 "parsing/parser.ml" +# 71629 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -71618,9 +71648,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4965 "parsing/parser.mly" +# 4966 "parsing/parser.mly" ( "rec" ) -# 71624 "parsing/parser.ml" +# 71654 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -71643,9 +71673,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4966 "parsing/parser.mly" +# 4967 "parsing/parser.mly" ( "sig" ) -# 71649 "parsing/parser.ml" +# 71679 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -71668,9 +71698,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4967 "parsing/parser.mly" +# 4968 "parsing/parser.mly" ( "struct" ) -# 71674 "parsing/parser.ml" +# 71704 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -71693,9 +71723,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4968 "parsing/parser.mly" +# 4969 "parsing/parser.mly" ( "then" ) -# 71699 "parsing/parser.ml" +# 71729 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -71718,9 +71748,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4969 "parsing/parser.mly" +# 4970 "parsing/parser.mly" ( "to" ) -# 71724 "parsing/parser.ml" +# 71754 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -71743,9 +71773,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4970 "parsing/parser.mly" +# 4971 "parsing/parser.mly" ( "true" ) -# 71749 "parsing/parser.ml" +# 71779 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -71768,9 +71798,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4971 "parsing/parser.mly" +# 4972 "parsing/parser.mly" ( "try" ) -# 71774 "parsing/parser.ml" +# 71804 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -71793,9 +71823,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4972 "parsing/parser.mly" +# 4973 "parsing/parser.mly" ( "type" ) -# 71799 "parsing/parser.ml" +# 71829 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -71818,9 +71848,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4973 "parsing/parser.mly" +# 4974 "parsing/parser.mly" ( "val" ) -# 71824 "parsing/parser.ml" +# 71854 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -71843,9 +71873,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4974 "parsing/parser.mly" +# 4975 "parsing/parser.mly" ( "virtual" ) -# 71849 "parsing/parser.ml" +# 71879 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -71868,9 +71898,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4975 "parsing/parser.mly" +# 4976 "parsing/parser.mly" ( "when" ) -# 71874 "parsing/parser.ml" +# 71904 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -71893,9 +71923,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4976 "parsing/parser.mly" +# 4977 "parsing/parser.mly" ( "while" ) -# 71899 "parsing/parser.ml" +# 71929 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -71918,9 +71948,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4977 "parsing/parser.mly" +# 4978 "parsing/parser.mly" ( "with" ) -# 71924 "parsing/parser.ml" +# 71954 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -71943,9 +71973,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.type_exception * string Asttypes.loc option) = -# 3998 "parsing/parser.mly" +# 3999 "parsing/parser.mly" ( _1 ) -# 71949 "parsing/parser.ml" +# 71979 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -72019,18 +72049,18 @@ module Tables = struct let _v : (Parsetree.type_exception * string Asttypes.loc option) = let attrs = let _1 = _1_inlined5 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 72025 "parsing/parser.ml" +# 72055 "parsing/parser.ml" in let _endpos_attrs_ = _endpos__1_inlined5_ in let attrs2 = let _1 = _1_inlined4 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 72034 "parsing/parser.ml" +# 72064 "parsing/parser.ml" in let lid = @@ -72041,7 +72071,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 72045 "parsing/parser.ml" +# 72075 "parsing/parser.ml" in let id = @@ -72052,28 +72082,28 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 72056 "parsing/parser.ml" +# 72086 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 72064 "parsing/parser.ml" +# 72094 "parsing/parser.ml" in let _endpos = _endpos_attrs_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4007 "parsing/parser.mly" +# 4008 "parsing/parser.mly" ( let loc = make_loc _sloc in let docs = symbol_docs _sloc in Te.mk_exception ~attrs (Te.rebind id lid ~attrs:(attrs1 @ attrs2) ~loc ~docs) , ext ) -# 72077 "parsing/parser.ml" +# 72107 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -72105,7 +72135,7 @@ module Tables = struct let _v : (Jane_syntax.Mode_expr.t -> Parsetree.expression) = # 3231 "parsing/parser.mly" ( fun _ -> _2 ) -# 72109 "parsing/parser.ml" +# 72139 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -72162,7 +72192,7 @@ module Tables = struct let exp = mkfunction _1 constraint_ _4 ~loc:_sloc ~attrs:(None, []) in { exp with pexp_loc = { exp.pexp_loc with loc_ghost = true } } ) -# 72166 "parsing/parser.ml" +# 72196 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -72237,9 +72267,9 @@ module Tables = struct let _1 = let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 72243 "parsing/parser.ml" +# 72273 "parsing/parser.ml" in let ty = let _1 = @@ -72250,24 +72280,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 72254 "parsing/parser.ml" +# 72284 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 72259 "parsing/parser.ml" +# 72289 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 72265 "parsing/parser.ml" +# 72295 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 72271 "parsing/parser.ml" +# 72301 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -72277,55 +72307,55 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 72281 "parsing/parser.ml" +# 72311 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 72287 "parsing/parser.ml" +# 72317 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 72294 "parsing/parser.ml" +# 72324 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_) in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 72301 "parsing/parser.ml" +# 72331 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 72310 "parsing/parser.ml" +# 72340 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 72317 "parsing/parser.ml" +# 72347 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 72322 "parsing/parser.ml" +# 72352 "parsing/parser.ml" in -# 4283 "parsing/parser.mly" +# 4284 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) ) -# 72329 "parsing/parser.ml" +# 72359 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -72335,13 +72365,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 72339 "parsing/parser.ml" +# 72369 "parsing/parser.ml" in -# 4286 "parsing/parser.mly" +# 4287 "parsing/parser.mly" ( _1 ) -# 72345 "parsing/parser.ml" +# 72375 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -72425,9 +72455,9 @@ module Tables = struct let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 72431 "parsing/parser.ml" +# 72461 "parsing/parser.ml" in let ty = @@ -72439,24 +72469,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 72443 "parsing/parser.ml" +# 72473 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 72448 "parsing/parser.ml" +# 72478 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 72454 "parsing/parser.ml" +# 72484 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 72460 "parsing/parser.ml" +# 72490 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -72466,55 +72496,55 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 72470 "parsing/parser.ml" +# 72500 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 72476 "parsing/parser.ml" +# 72506 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 72483 "parsing/parser.ml" +# 72513 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_) in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 72490 "parsing/parser.ml" +# 72520 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 72499 "parsing/parser.ml" +# 72529 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 72506 "parsing/parser.ml" +# 72536 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 72511 "parsing/parser.ml" +# 72541 "parsing/parser.ml" in -# 4283 "parsing/parser.mly" +# 4284 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) ) -# 72518 "parsing/parser.ml" +# 72548 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -72524,13 +72554,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 72528 "parsing/parser.ml" +# 72558 "parsing/parser.ml" in -# 4286 "parsing/parser.mly" +# 4287 "parsing/parser.mly" ( _1 ) -# 72534 "parsing/parser.ml" +# 72564 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -72577,55 +72607,55 @@ module Tables = struct let _1 = let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 72583 "parsing/parser.ml" +# 72613 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 72589 "parsing/parser.ml" +# 72619 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 72595 "parsing/parser.ml" +# 72625 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 72601 "parsing/parser.ml" +# 72631 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 72610 "parsing/parser.ml" +# 72640 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 72617 "parsing/parser.ml" +# 72647 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 72622 "parsing/parser.ml" +# 72652 "parsing/parser.ml" in -# 4283 "parsing/parser.mly" +# 4284 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) ) -# 72629 "parsing/parser.ml" +# 72659 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -72635,13 +72665,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 72639 "parsing/parser.ml" +# 72669 "parsing/parser.ml" in -# 4286 "parsing/parser.mly" +# 4287 "parsing/parser.mly" ( _1 ) -# 72645 "parsing/parser.ml" +# 72675 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -72695,55 +72725,55 @@ module Tables = struct let _1 = let domain_with_modes = let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 72701 "parsing/parser.ml" +# 72731 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 72707 "parsing/parser.ml" +# 72737 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 72713 "parsing/parser.ml" +# 72743 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 72719 "parsing/parser.ml" +# 72749 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 72728 "parsing/parser.ml" +# 72758 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 72735 "parsing/parser.ml" +# 72765 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 72740 "parsing/parser.ml" +# 72770 "parsing/parser.ml" in -# 4283 "parsing/parser.mly" +# 4284 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) ) -# 72747 "parsing/parser.ml" +# 72777 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -72753,13 +72783,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 72757 "parsing/parser.ml" +# 72787 "parsing/parser.ml" in -# 4286 "parsing/parser.mly" +# 4287 "parsing/parser.mly" ( _1 ) -# 72763 "parsing/parser.ml" +# 72793 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -72841,9 +72871,9 @@ module Tables = struct let _1 = let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 72847 "parsing/parser.ml" +# 72877 "parsing/parser.ml" in let ty = let _startpos__1_ = _startpos__1_inlined1_ in @@ -72855,24 +72885,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 72859 "parsing/parser.ml" +# 72889 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 72864 "parsing/parser.ml" +# 72894 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 72870 "parsing/parser.ml" +# 72900 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 72876 "parsing/parser.ml" +# 72906 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -72882,20 +72912,20 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 72886 "parsing/parser.ml" +# 72916 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 72892 "parsing/parser.ml" +# 72922 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 72899 "parsing/parser.ml" +# 72929 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_inlined1_) in @@ -72905,44 +72935,44 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 72911 "parsing/parser.ml" +# 72941 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 72917 "parsing/parser.ml" +# 72947 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 72927 "parsing/parser.ml" +# 72957 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 72934 "parsing/parser.ml" +# 72964 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 72939 "parsing/parser.ml" +# 72969 "parsing/parser.ml" in -# 4283 "parsing/parser.mly" +# 4284 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) ) -# 72946 "parsing/parser.ml" +# 72976 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -72952,13 +72982,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 72956 "parsing/parser.ml" +# 72986 "parsing/parser.ml" in -# 4286 "parsing/parser.mly" +# 4287 "parsing/parser.mly" ( _1 ) -# 72962 "parsing/parser.ml" +# 72992 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -73049,9 +73079,9 @@ module Tables = struct let m1 = let _1 = _1_inlined2 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 73055 "parsing/parser.ml" +# 73085 "parsing/parser.ml" in let ty = @@ -73064,24 +73094,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 73068 "parsing/parser.ml" +# 73098 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 73073 "parsing/parser.ml" +# 73103 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 73079 "parsing/parser.ml" +# 73109 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 73085 "parsing/parser.ml" +# 73115 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -73091,20 +73121,20 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 73095 "parsing/parser.ml" +# 73125 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 73101 "parsing/parser.ml" +# 73131 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 73108 "parsing/parser.ml" +# 73138 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_inlined1_) in @@ -73114,44 +73144,44 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 73120 "parsing/parser.ml" +# 73150 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 73126 "parsing/parser.ml" +# 73156 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 73136 "parsing/parser.ml" +# 73166 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 73143 "parsing/parser.ml" +# 73173 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 73148 "parsing/parser.ml" +# 73178 "parsing/parser.ml" in -# 4283 "parsing/parser.mly" +# 4284 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) ) -# 73155 "parsing/parser.ml" +# 73185 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -73161,13 +73191,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 73165 "parsing/parser.ml" +# 73195 "parsing/parser.ml" in -# 4286 "parsing/parser.mly" +# 4287 "parsing/parser.mly" ( _1 ) -# 73171 "parsing/parser.ml" +# 73201 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -73221,21 +73251,21 @@ module Tables = struct let _1 = let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 73227 "parsing/parser.ml" +# 73257 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 73233 "parsing/parser.ml" +# 73263 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 73239 "parsing/parser.ml" +# 73269 "parsing/parser.ml" in let m0 = @@ -73244,44 +73274,44 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 73250 "parsing/parser.ml" +# 73280 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 73256 "parsing/parser.ml" +# 73286 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 73266 "parsing/parser.ml" +# 73296 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 73273 "parsing/parser.ml" +# 73303 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 73278 "parsing/parser.ml" +# 73308 "parsing/parser.ml" in -# 4283 "parsing/parser.mly" +# 4284 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) ) -# 73285 "parsing/parser.ml" +# 73315 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -73291,13 +73321,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 73295 "parsing/parser.ml" +# 73325 "parsing/parser.ml" in -# 4286 "parsing/parser.mly" +# 4287 "parsing/parser.mly" ( _1 ) -# 73301 "parsing/parser.ml" +# 73331 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -73360,22 +73390,22 @@ module Tables = struct let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 73366 "parsing/parser.ml" +# 73396 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 73373 "parsing/parser.ml" +# 73403 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 73379 "parsing/parser.ml" +# 73409 "parsing/parser.ml" in let m0 = @@ -73384,44 +73414,44 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 73390 "parsing/parser.ml" +# 73420 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 73396 "parsing/parser.ml" +# 73426 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 73406 "parsing/parser.ml" +# 73436 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 73413 "parsing/parser.ml" +# 73443 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 73418 "parsing/parser.ml" +# 73448 "parsing/parser.ml" in -# 4283 "parsing/parser.mly" +# 4284 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) ) -# 73425 "parsing/parser.ml" +# 73455 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -73431,13 +73461,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 73435 "parsing/parser.ml" +# 73465 "parsing/parser.ml" in -# 4286 "parsing/parser.mly" +# 4287 "parsing/parser.mly" ( _1 ) -# 73441 "parsing/parser.ml" +# 73471 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -73514,7 +73544,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 73518 "parsing/parser.ml" +# 73548 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -73523,9 +73553,9 @@ module Tables = struct let _1 = let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 73529 "parsing/parser.ml" +# 73559 "parsing/parser.ml" in let ty = let _1 = @@ -73536,24 +73566,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 73540 "parsing/parser.ml" +# 73570 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 73545 "parsing/parser.ml" +# 73575 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 73551 "parsing/parser.ml" +# 73581 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 73557 "parsing/parser.ml" +# 73587 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -73563,55 +73593,55 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 73567 "parsing/parser.ml" +# 73597 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 73573 "parsing/parser.ml" +# 73603 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 73580 "parsing/parser.ml" +# 73610 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_) in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 73587 "parsing/parser.ml" +# 73617 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 73596 "parsing/parser.ml" +# 73626 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 73603 "parsing/parser.ml" +# 73633 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 73608 "parsing/parser.ml" +# 73638 "parsing/parser.ml" in -# 4283 "parsing/parser.mly" +# 4284 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) ) -# 73615 "parsing/parser.ml" +# 73645 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -73621,13 +73651,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 73625 "parsing/parser.ml" +# 73655 "parsing/parser.ml" in -# 4286 "parsing/parser.mly" +# 4287 "parsing/parser.mly" ( _1 ) -# 73631 "parsing/parser.ml" +# 73661 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -73711,7 +73741,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 73715 "parsing/parser.ml" +# 73745 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -73722,9 +73752,9 @@ module Tables = struct let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 73728 "parsing/parser.ml" +# 73758 "parsing/parser.ml" in let ty = @@ -73736,24 +73766,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 73740 "parsing/parser.ml" +# 73770 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 73745 "parsing/parser.ml" +# 73775 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 73751 "parsing/parser.ml" +# 73781 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 73757 "parsing/parser.ml" +# 73787 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -73763,55 +73793,55 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 73767 "parsing/parser.ml" +# 73797 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 73773 "parsing/parser.ml" +# 73803 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 73780 "parsing/parser.ml" +# 73810 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_) in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 73787 "parsing/parser.ml" +# 73817 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 73796 "parsing/parser.ml" +# 73826 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 73803 "parsing/parser.ml" +# 73833 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 73808 "parsing/parser.ml" +# 73838 "parsing/parser.ml" in -# 4283 "parsing/parser.mly" +# 4284 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) ) -# 73815 "parsing/parser.ml" +# 73845 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -73821,13 +73851,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 73825 "parsing/parser.ml" +# 73855 "parsing/parser.ml" in -# 4286 "parsing/parser.mly" +# 4287 "parsing/parser.mly" ( _1 ) -# 73831 "parsing/parser.ml" +# 73861 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -73876,7 +73906,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 73880 "parsing/parser.ml" +# 73910 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -73885,55 +73915,55 @@ module Tables = struct let _1 = let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 73891 "parsing/parser.ml" +# 73921 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 73897 "parsing/parser.ml" +# 73927 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 73903 "parsing/parser.ml" +# 73933 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 73909 "parsing/parser.ml" +# 73939 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 73918 "parsing/parser.ml" +# 73948 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 73925 "parsing/parser.ml" +# 73955 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 73930 "parsing/parser.ml" +# 73960 "parsing/parser.ml" in -# 4283 "parsing/parser.mly" +# 4284 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) ) -# 73937 "parsing/parser.ml" +# 73967 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -73943,13 +73973,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 73947 "parsing/parser.ml" +# 73977 "parsing/parser.ml" in -# 4286 "parsing/parser.mly" +# 4287 "parsing/parser.mly" ( _1 ) -# 73953 "parsing/parser.ml" +# 73983 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -74005,7 +74035,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 74009 "parsing/parser.ml" +# 74039 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -74014,55 +74044,55 @@ module Tables = struct let _1 = let domain_with_modes = let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 74020 "parsing/parser.ml" +# 74050 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 74026 "parsing/parser.ml" +# 74056 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 74032 "parsing/parser.ml" +# 74062 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 74038 "parsing/parser.ml" +# 74068 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 74047 "parsing/parser.ml" +# 74077 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 74054 "parsing/parser.ml" +# 74084 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 74059 "parsing/parser.ml" +# 74089 "parsing/parser.ml" in -# 4283 "parsing/parser.mly" +# 4284 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) ) -# 74066 "parsing/parser.ml" +# 74096 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -74072,13 +74102,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 74076 "parsing/parser.ml" +# 74106 "parsing/parser.ml" in -# 4286 "parsing/parser.mly" +# 4287 "parsing/parser.mly" ( _1 ) -# 74082 "parsing/parser.ml" +# 74112 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -74162,7 +74192,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 74166 "parsing/parser.ml" +# 74196 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -74171,9 +74201,9 @@ module Tables = struct let _1 = let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 74177 "parsing/parser.ml" +# 74207 "parsing/parser.ml" in let ty = let _startpos__1_ = _startpos__1_inlined1_ in @@ -74185,24 +74215,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 74189 "parsing/parser.ml" +# 74219 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 74194 "parsing/parser.ml" +# 74224 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 74200 "parsing/parser.ml" +# 74230 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 74206 "parsing/parser.ml" +# 74236 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -74212,20 +74242,20 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 74216 "parsing/parser.ml" +# 74246 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 74222 "parsing/parser.ml" +# 74252 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 74229 "parsing/parser.ml" +# 74259 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_inlined1_) in @@ -74235,44 +74265,44 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 74241 "parsing/parser.ml" +# 74271 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 74247 "parsing/parser.ml" +# 74277 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 74257 "parsing/parser.ml" +# 74287 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 74264 "parsing/parser.ml" +# 74294 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 74269 "parsing/parser.ml" +# 74299 "parsing/parser.ml" in -# 4283 "parsing/parser.mly" +# 4284 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) ) -# 74276 "parsing/parser.ml" +# 74306 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -74282,13 +74312,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 74286 "parsing/parser.ml" +# 74316 "parsing/parser.ml" in -# 4286 "parsing/parser.mly" +# 4287 "parsing/parser.mly" ( _1 ) -# 74292 "parsing/parser.ml" +# 74322 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -74379,7 +74409,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 74383 "parsing/parser.ml" +# 74413 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -74390,9 +74420,9 @@ module Tables = struct let m1 = let _1 = _1_inlined2 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 74396 "parsing/parser.ml" +# 74426 "parsing/parser.ml" in let ty = @@ -74405,24 +74435,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 74409 "parsing/parser.ml" +# 74439 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 74414 "parsing/parser.ml" +# 74444 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 74420 "parsing/parser.ml" +# 74450 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 74426 "parsing/parser.ml" +# 74456 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -74432,20 +74462,20 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 74436 "parsing/parser.ml" +# 74466 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 74442 "parsing/parser.ml" +# 74472 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 74449 "parsing/parser.ml" +# 74479 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_inlined1_) in @@ -74455,44 +74485,44 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 74461 "parsing/parser.ml" +# 74491 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 74467 "parsing/parser.ml" +# 74497 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 74477 "parsing/parser.ml" +# 74507 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 74484 "parsing/parser.ml" +# 74514 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 74489 "parsing/parser.ml" +# 74519 "parsing/parser.ml" in -# 4283 "parsing/parser.mly" +# 4284 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) ) -# 74496 "parsing/parser.ml" +# 74526 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -74502,13 +74532,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 74506 "parsing/parser.ml" +# 74536 "parsing/parser.ml" in -# 4286 "parsing/parser.mly" +# 4287 "parsing/parser.mly" ( _1 ) -# 74512 "parsing/parser.ml" +# 74542 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -74564,7 +74594,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 74568 "parsing/parser.ml" +# 74598 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -74573,21 +74603,21 @@ module Tables = struct let _1 = let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 74579 "parsing/parser.ml" +# 74609 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 74585 "parsing/parser.ml" +# 74615 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 74591 "parsing/parser.ml" +# 74621 "parsing/parser.ml" in let m0 = @@ -74596,44 +74626,44 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 74602 "parsing/parser.ml" +# 74632 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 74608 "parsing/parser.ml" +# 74638 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 74618 "parsing/parser.ml" +# 74648 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 74625 "parsing/parser.ml" +# 74655 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 74630 "parsing/parser.ml" +# 74660 "parsing/parser.ml" in -# 4283 "parsing/parser.mly" +# 4284 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) ) -# 74637 "parsing/parser.ml" +# 74667 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -74643,13 +74673,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 74647 "parsing/parser.ml" +# 74677 "parsing/parser.ml" in -# 4286 "parsing/parser.mly" +# 4287 "parsing/parser.mly" ( _1 ) -# 74653 "parsing/parser.ml" +# 74683 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -74712,7 +74742,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 74716 "parsing/parser.ml" +# 74746 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -74723,22 +74753,22 @@ module Tables = struct let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 74729 "parsing/parser.ml" +# 74759 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 74736 "parsing/parser.ml" +# 74766 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 74742 "parsing/parser.ml" +# 74772 "parsing/parser.ml" in let m0 = @@ -74747,44 +74777,44 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 74753 "parsing/parser.ml" +# 74783 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 74759 "parsing/parser.ml" +# 74789 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 74769 "parsing/parser.ml" +# 74799 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 74776 "parsing/parser.ml" +# 74806 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 74781 "parsing/parser.ml" +# 74811 "parsing/parser.ml" in -# 4283 "parsing/parser.mly" +# 4284 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) ) -# 74788 "parsing/parser.ml" +# 74818 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -74794,13 +74824,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 74798 "parsing/parser.ml" +# 74828 "parsing/parser.ml" in -# 4286 "parsing/parser.mly" +# 4287 "parsing/parser.mly" ( _1 ) -# 74804 "parsing/parser.ml" +# 74834 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -74868,9 +74898,9 @@ module Tables = struct let _1 = let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 74874 "parsing/parser.ml" +# 74904 "parsing/parser.ml" in let ty = let _1 = @@ -74881,24 +74911,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 74885 "parsing/parser.ml" +# 74915 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 74890 "parsing/parser.ml" +# 74920 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 74896 "parsing/parser.ml" +# 74926 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 74902 "parsing/parser.ml" +# 74932 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -74908,48 +74938,48 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 74912 "parsing/parser.ml" +# 74942 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 74918 "parsing/parser.ml" +# 74948 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 74925 "parsing/parser.ml" +# 74955 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_) in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 74932 "parsing/parser.ml" +# 74962 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 74941 "parsing/parser.ml" +# 74971 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 74947 "parsing/parser.ml" +# 74977 "parsing/parser.ml" in -# 4283 "parsing/parser.mly" +# 4284 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) ) -# 74953 "parsing/parser.ml" +# 74983 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -74959,13 +74989,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 74963 "parsing/parser.ml" +# 74993 "parsing/parser.ml" in -# 4286 "parsing/parser.mly" +# 4287 "parsing/parser.mly" ( _1 ) -# 74969 "parsing/parser.ml" +# 74999 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -75042,9 +75072,9 @@ module Tables = struct let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 75048 "parsing/parser.ml" +# 75078 "parsing/parser.ml" in let ty = @@ -75056,24 +75086,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 75060 "parsing/parser.ml" +# 75090 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 75065 "parsing/parser.ml" +# 75095 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 75071 "parsing/parser.ml" +# 75101 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 75077 "parsing/parser.ml" +# 75107 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -75083,48 +75113,48 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 75087 "parsing/parser.ml" +# 75117 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 75093 "parsing/parser.ml" +# 75123 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 75100 "parsing/parser.ml" +# 75130 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_) in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 75107 "parsing/parser.ml" +# 75137 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 75116 "parsing/parser.ml" +# 75146 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 75122 "parsing/parser.ml" +# 75152 "parsing/parser.ml" in -# 4283 "parsing/parser.mly" +# 4284 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) ) -# 75128 "parsing/parser.ml" +# 75158 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -75134,13 +75164,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 75138 "parsing/parser.ml" +# 75168 "parsing/parser.ml" in -# 4286 "parsing/parser.mly" +# 4287 "parsing/parser.mly" ( _1 ) -# 75144 "parsing/parser.ml" +# 75174 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -75180,48 +75210,48 @@ module Tables = struct let _1 = let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 75186 "parsing/parser.ml" +# 75216 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 75192 "parsing/parser.ml" +# 75222 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 75198 "parsing/parser.ml" +# 75228 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 75204 "parsing/parser.ml" +# 75234 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 75213 "parsing/parser.ml" +# 75243 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 75219 "parsing/parser.ml" +# 75249 "parsing/parser.ml" in -# 4283 "parsing/parser.mly" +# 4284 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) ) -# 75225 "parsing/parser.ml" +# 75255 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_ty_) in @@ -75231,13 +75261,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 75235 "parsing/parser.ml" +# 75265 "parsing/parser.ml" in -# 4286 "parsing/parser.mly" +# 4287 "parsing/parser.mly" ( _1 ) -# 75241 "parsing/parser.ml" +# 75271 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -75284,48 +75314,48 @@ module Tables = struct let _1 = let domain_with_modes = let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 75290 "parsing/parser.ml" +# 75320 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 75296 "parsing/parser.ml" +# 75326 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 75302 "parsing/parser.ml" +# 75332 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 75308 "parsing/parser.ml" +# 75338 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 75317 "parsing/parser.ml" +# 75347 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 75323 "parsing/parser.ml" +# 75353 "parsing/parser.ml" in -# 4283 "parsing/parser.mly" +# 4284 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) ) -# 75329 "parsing/parser.ml" +# 75359 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_ty_) in @@ -75335,13 +75365,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 75339 "parsing/parser.ml" +# 75369 "parsing/parser.ml" in -# 4286 "parsing/parser.mly" +# 4287 "parsing/parser.mly" ( _1 ) -# 75345 "parsing/parser.ml" +# 75375 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -75416,9 +75446,9 @@ module Tables = struct let _1 = let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 75422 "parsing/parser.ml" +# 75452 "parsing/parser.ml" in let ty = let _startpos__1_ = _startpos__1_inlined1_ in @@ -75430,24 +75460,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 75434 "parsing/parser.ml" +# 75464 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 75439 "parsing/parser.ml" +# 75469 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 75445 "parsing/parser.ml" +# 75475 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 75451 "parsing/parser.ml" +# 75481 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -75457,20 +75487,20 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 75461 "parsing/parser.ml" +# 75491 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 75467 "parsing/parser.ml" +# 75497 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 75474 "parsing/parser.ml" +# 75504 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_inlined1_) in @@ -75480,37 +75510,37 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 75486 "parsing/parser.ml" +# 75516 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 75492 "parsing/parser.ml" +# 75522 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 75502 "parsing/parser.ml" +# 75532 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 75508 "parsing/parser.ml" +# 75538 "parsing/parser.ml" in -# 4283 "parsing/parser.mly" +# 4284 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) ) -# 75514 "parsing/parser.ml" +# 75544 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -75520,13 +75550,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 75524 "parsing/parser.ml" +# 75554 "parsing/parser.ml" in -# 4286 "parsing/parser.mly" +# 4287 "parsing/parser.mly" ( _1 ) -# 75530 "parsing/parser.ml" +# 75560 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -75610,9 +75640,9 @@ module Tables = struct let m1 = let _1 = _1_inlined2 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 75616 "parsing/parser.ml" +# 75646 "parsing/parser.ml" in let ty = @@ -75625,24 +75655,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 75629 "parsing/parser.ml" +# 75659 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 75634 "parsing/parser.ml" +# 75664 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 75640 "parsing/parser.ml" +# 75670 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 75646 "parsing/parser.ml" +# 75676 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -75652,20 +75682,20 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 75656 "parsing/parser.ml" +# 75686 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 75662 "parsing/parser.ml" +# 75692 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 75669 "parsing/parser.ml" +# 75699 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_inlined1_) in @@ -75675,37 +75705,37 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 75681 "parsing/parser.ml" +# 75711 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 75687 "parsing/parser.ml" +# 75717 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 75697 "parsing/parser.ml" +# 75727 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 75703 "parsing/parser.ml" +# 75733 "parsing/parser.ml" in -# 4283 "parsing/parser.mly" +# 4284 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) ) -# 75709 "parsing/parser.ml" +# 75739 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -75715,13 +75745,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 75719 "parsing/parser.ml" +# 75749 "parsing/parser.ml" in -# 4286 "parsing/parser.mly" +# 4287 "parsing/parser.mly" ( _1 ) -# 75725 "parsing/parser.ml" +# 75755 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -75768,21 +75798,21 @@ module Tables = struct let _1 = let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 75774 "parsing/parser.ml" +# 75804 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 75780 "parsing/parser.ml" +# 75810 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 75786 "parsing/parser.ml" +# 75816 "parsing/parser.ml" in let m0 = @@ -75791,37 +75821,37 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 75797 "parsing/parser.ml" +# 75827 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 75803 "parsing/parser.ml" +# 75833 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 75813 "parsing/parser.ml" +# 75843 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 75819 "parsing/parser.ml" +# 75849 "parsing/parser.ml" in -# 4283 "parsing/parser.mly" +# 4284 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) ) -# 75825 "parsing/parser.ml" +# 75855 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -75831,13 +75861,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 75835 "parsing/parser.ml" +# 75865 "parsing/parser.ml" in -# 4286 "parsing/parser.mly" +# 4287 "parsing/parser.mly" ( _1 ) -# 75841 "parsing/parser.ml" +# 75871 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -75893,22 +75923,22 @@ module Tables = struct let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 75899 "parsing/parser.ml" +# 75929 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 75906 "parsing/parser.ml" +# 75936 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 75912 "parsing/parser.ml" +# 75942 "parsing/parser.ml" in let m0 = @@ -75917,37 +75947,37 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 75923 "parsing/parser.ml" +# 75953 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 75929 "parsing/parser.ml" +# 75959 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 75939 "parsing/parser.ml" +# 75969 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 75945 "parsing/parser.ml" +# 75975 "parsing/parser.ml" in -# 4283 "parsing/parser.mly" +# 4284 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) ) -# 75951 "parsing/parser.ml" +# 75981 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -75957,13 +75987,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 75961 "parsing/parser.ml" +# 75991 "parsing/parser.ml" in -# 4286 "parsing/parser.mly" +# 4287 "parsing/parser.mly" ( _1 ) -# 75967 "parsing/parser.ml" +# 75997 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -76038,30 +76068,30 @@ module Tables = struct let _1 = let codomain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 76044 "parsing/parser.ml" +# 76074 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 76049 "parsing/parser.ml" +# 76079 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 76058 "parsing/parser.ml" +# 76088 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 76065 "parsing/parser.ml" +# 76095 "parsing/parser.ml" in let ty = let _1 = @@ -76072,24 +76102,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 76076 "parsing/parser.ml" +# 76106 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 76081 "parsing/parser.ml" +# 76111 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 76087 "parsing/parser.ml" +# 76117 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 76093 "parsing/parser.ml" +# 76123 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -76099,58 +76129,58 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 76103 "parsing/parser.ml" +# 76133 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 76109 "parsing/parser.ml" +# 76139 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 76116 "parsing/parser.ml" +# 76146 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_) in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 76123 "parsing/parser.ml" +# 76153 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 76132 "parsing/parser.ml" +# 76162 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 76139 "parsing/parser.ml" +# 76169 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 76144 "parsing/parser.ml" +# 76174 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 76154 "parsing/parser.ml" +# 76184 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_label_) in @@ -76160,13 +76190,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 76164 "parsing/parser.ml" +# 76194 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 76170 "parsing/parser.ml" +# 76200 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -76249,30 +76279,30 @@ module Tables = struct let codomain_with_modes = let _1 = _1_inlined1 in let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 76255 "parsing/parser.ml" +# 76285 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 76260 "parsing/parser.ml" +# 76290 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 76269 "parsing/parser.ml" +# 76299 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 76276 "parsing/parser.ml" +# 76306 "parsing/parser.ml" in let ty = let _1 = @@ -76283,24 +76313,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 76287 "parsing/parser.ml" +# 76317 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 76292 "parsing/parser.ml" +# 76322 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 76298 "parsing/parser.ml" +# 76328 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 76304 "parsing/parser.ml" +# 76334 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -76310,58 +76340,58 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 76314 "parsing/parser.ml" +# 76344 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 76320 "parsing/parser.ml" +# 76350 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 76327 "parsing/parser.ml" +# 76357 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_) in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 76334 "parsing/parser.ml" +# 76364 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 76343 "parsing/parser.ml" +# 76373 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 76350 "parsing/parser.ml" +# 76380 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 76355 "parsing/parser.ml" +# 76385 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 76365 "parsing/parser.ml" +# 76395 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_label_) in @@ -76371,13 +76401,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 76375 "parsing/parser.ml" +# 76405 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 76381 "parsing/parser.ml" +# 76411 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -76460,9 +76490,9 @@ module Tables = struct let codomain_with_modes = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 76466 "parsing/parser.ml" +# 76496 "parsing/parser.ml" in let m0 = let _1 = @@ -76470,32 +76500,32 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 76476 "parsing/parser.ml" +# 76506 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 76482 "parsing/parser.ml" +# 76512 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 76492 "parsing/parser.ml" +# 76522 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 76499 "parsing/parser.ml" +# 76529 "parsing/parser.ml" in let ty = let _1 = @@ -76506,24 +76536,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 76510 "parsing/parser.ml" +# 76540 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 76515 "parsing/parser.ml" +# 76545 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 76521 "parsing/parser.ml" +# 76551 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 76527 "parsing/parser.ml" +# 76557 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -76533,58 +76563,58 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 76537 "parsing/parser.ml" +# 76567 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 76543 "parsing/parser.ml" +# 76573 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 76550 "parsing/parser.ml" +# 76580 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_) in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 76557 "parsing/parser.ml" +# 76587 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 76566 "parsing/parser.ml" +# 76596 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 76573 "parsing/parser.ml" +# 76603 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 76578 "parsing/parser.ml" +# 76608 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 76588 "parsing/parser.ml" +# 76618 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_label_) in @@ -76594,13 +76624,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 76598 "parsing/parser.ml" +# 76628 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 76604 "parsing/parser.ml" +# 76634 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -76692,9 +76722,9 @@ module Tables = struct let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 76698 "parsing/parser.ml" +# 76728 "parsing/parser.ml" in let m0 = @@ -76703,32 +76733,32 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 76709 "parsing/parser.ml" +# 76739 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 76715 "parsing/parser.ml" +# 76745 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 76725 "parsing/parser.ml" +# 76755 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 76732 "parsing/parser.ml" +# 76762 "parsing/parser.ml" in let ty = let _1 = @@ -76739,24 +76769,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 76743 "parsing/parser.ml" +# 76773 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 76748 "parsing/parser.ml" +# 76778 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 76754 "parsing/parser.ml" +# 76784 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 76760 "parsing/parser.ml" +# 76790 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -76766,58 +76796,58 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 76770 "parsing/parser.ml" +# 76800 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 76776 "parsing/parser.ml" +# 76806 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 76783 "parsing/parser.ml" +# 76813 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_) in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 76790 "parsing/parser.ml" +# 76820 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 76799 "parsing/parser.ml" +# 76829 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 76806 "parsing/parser.ml" +# 76836 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 76811 "parsing/parser.ml" +# 76841 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 76821 "parsing/parser.ml" +# 76851 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos_label_) in @@ -76827,13 +76857,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 76831 "parsing/parser.ml" +# 76861 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 76837 "parsing/parser.ml" +# 76867 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -76915,32 +76945,32 @@ module Tables = struct let _1 = let codomain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 76921 "parsing/parser.ml" +# 76951 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 76926 "parsing/parser.ml" +# 76956 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 76935 "parsing/parser.ml" +# 76965 "parsing/parser.ml" in let domain_with_modes = let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 76944 "parsing/parser.ml" +# 76974 "parsing/parser.ml" in let ty = @@ -76952,24 +76982,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 76956 "parsing/parser.ml" +# 76986 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 76961 "parsing/parser.ml" +# 76991 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 76967 "parsing/parser.ml" +# 76997 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 76973 "parsing/parser.ml" +# 77003 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -76979,58 +77009,58 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 76983 "parsing/parser.ml" +# 77013 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 76989 "parsing/parser.ml" +# 77019 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 76996 "parsing/parser.ml" +# 77026 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_) in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 77003 "parsing/parser.ml" +# 77033 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 77012 "parsing/parser.ml" +# 77042 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 77019 "parsing/parser.ml" +# 77049 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 77024 "parsing/parser.ml" +# 77054 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 77034 "parsing/parser.ml" +# 77064 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_label_) in @@ -77040,13 +77070,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 77044 "parsing/parser.ml" +# 77074 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 77050 "parsing/parser.ml" +# 77080 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -77136,32 +77166,32 @@ module Tables = struct let codomain_with_modes = let _1 = _1_inlined2 in let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 77142 "parsing/parser.ml" +# 77172 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 77147 "parsing/parser.ml" +# 77177 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 77156 "parsing/parser.ml" +# 77186 "parsing/parser.ml" in let domain_with_modes = let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 77165 "parsing/parser.ml" +# 77195 "parsing/parser.ml" in let ty = @@ -77173,24 +77203,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 77177 "parsing/parser.ml" +# 77207 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 77182 "parsing/parser.ml" +# 77212 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 77188 "parsing/parser.ml" +# 77218 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 77194 "parsing/parser.ml" +# 77224 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -77200,58 +77230,58 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 77204 "parsing/parser.ml" +# 77234 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 77210 "parsing/parser.ml" +# 77240 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 77217 "parsing/parser.ml" +# 77247 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_) in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 77224 "parsing/parser.ml" +# 77254 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 77233 "parsing/parser.ml" +# 77263 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 77240 "parsing/parser.ml" +# 77270 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 77245 "parsing/parser.ml" +# 77275 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 77255 "parsing/parser.ml" +# 77285 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos_label_) in @@ -77261,13 +77291,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 77265 "parsing/parser.ml" +# 77295 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 77271 "parsing/parser.ml" +# 77301 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -77357,9 +77387,9 @@ module Tables = struct let codomain_with_modes = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 77363 "parsing/parser.ml" +# 77393 "parsing/parser.ml" in let m0 = let _1 = @@ -77367,34 +77397,34 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 77373 "parsing/parser.ml" +# 77403 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 77379 "parsing/parser.ml" +# 77409 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 77389 "parsing/parser.ml" +# 77419 "parsing/parser.ml" in let domain_with_modes = let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 77398 "parsing/parser.ml" +# 77428 "parsing/parser.ml" in let ty = @@ -77406,24 +77436,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 77410 "parsing/parser.ml" +# 77440 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 77415 "parsing/parser.ml" +# 77445 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 77421 "parsing/parser.ml" +# 77451 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 77427 "parsing/parser.ml" +# 77457 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -77433,58 +77463,58 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 77437 "parsing/parser.ml" +# 77467 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 77443 "parsing/parser.ml" +# 77473 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 77450 "parsing/parser.ml" +# 77480 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_) in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 77457 "parsing/parser.ml" +# 77487 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 77466 "parsing/parser.ml" +# 77496 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 77473 "parsing/parser.ml" +# 77503 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 77478 "parsing/parser.ml" +# 77508 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 77488 "parsing/parser.ml" +# 77518 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_label_) in @@ -77494,13 +77524,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 77498 "parsing/parser.ml" +# 77528 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 77504 "parsing/parser.ml" +# 77534 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -77599,9 +77629,9 @@ module Tables = struct let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 77605 "parsing/parser.ml" +# 77635 "parsing/parser.ml" in let m0 = @@ -77610,34 +77640,34 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 77616 "parsing/parser.ml" +# 77646 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 77622 "parsing/parser.ml" +# 77652 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 77632 "parsing/parser.ml" +# 77662 "parsing/parser.ml" in let domain_with_modes = let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 77641 "parsing/parser.ml" +# 77671 "parsing/parser.ml" in let ty = @@ -77649,24 +77679,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 77653 "parsing/parser.ml" +# 77683 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 77658 "parsing/parser.ml" +# 77688 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 77664 "parsing/parser.ml" +# 77694 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 77670 "parsing/parser.ml" +# 77700 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -77676,58 +77706,58 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 77680 "parsing/parser.ml" +# 77710 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 77686 "parsing/parser.ml" +# 77716 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 77693 "parsing/parser.ml" +# 77723 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_) in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 77700 "parsing/parser.ml" +# 77730 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 77709 "parsing/parser.ml" +# 77739 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 77716 "parsing/parser.ml" +# 77746 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 77721 "parsing/parser.ml" +# 77751 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 77731 "parsing/parser.ml" +# 77761 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined3_, _startpos_label_) in @@ -77737,13 +77767,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 77741 "parsing/parser.ml" +# 77771 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 77747 "parsing/parser.ml" +# 77777 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -77791,79 +77821,79 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, ty) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, ty_inlined1) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 77797 "parsing/parser.ml" +# 77827 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 77802 "parsing/parser.ml" +# 77832 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 77811 "parsing/parser.ml" +# 77841 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 77818 "parsing/parser.ml" +# 77848 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 77824 "parsing/parser.ml" +# 77854 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 77830 "parsing/parser.ml" +# 77860 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 77836 "parsing/parser.ml" +# 77866 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 77845 "parsing/parser.ml" +# 77875 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 77852 "parsing/parser.ml" +# 77882 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 77857 "parsing/parser.ml" +# 77887 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 77867 "parsing/parser.ml" +# 77897 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_inlined1_, _startpos_label_) in @@ -77873,13 +77903,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 77877 "parsing/parser.ml" +# 77907 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 77883 "parsing/parser.ml" +# 77913 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -77934,79 +77964,79 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, ty) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, ty_inlined1) in let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 77940 "parsing/parser.ml" +# 77970 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 77945 "parsing/parser.ml" +# 77975 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 77954 "parsing/parser.ml" +# 77984 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 77961 "parsing/parser.ml" +# 77991 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 77967 "parsing/parser.ml" +# 77997 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 77973 "parsing/parser.ml" +# 78003 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 77979 "parsing/parser.ml" +# 78009 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 77988 "parsing/parser.ml" +# 78018 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 77995 "parsing/parser.ml" +# 78025 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 78000 "parsing/parser.ml" +# 78030 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 78010 "parsing/parser.ml" +# 78040 "parsing/parser.ml" in let _startpos__1_ = _startpos_label_ in @@ -78016,13 +78046,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 78020 "parsing/parser.ml" +# 78050 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 78026 "parsing/parser.ml" +# 78056 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -78077,9 +78107,9 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, ty) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, ty_inlined1) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 78083 "parsing/parser.ml" +# 78113 "parsing/parser.ml" in let m0 = let _1 = @@ -78087,81 +78117,81 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 78093 "parsing/parser.ml" +# 78123 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 78099 "parsing/parser.ml" +# 78129 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 78109 "parsing/parser.ml" +# 78139 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 78116 "parsing/parser.ml" +# 78146 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 78122 "parsing/parser.ml" +# 78152 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 78128 "parsing/parser.ml" +# 78158 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 78134 "parsing/parser.ml" +# 78164 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 78143 "parsing/parser.ml" +# 78173 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 78150 "parsing/parser.ml" +# 78180 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 78155 "parsing/parser.ml" +# 78185 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 78165 "parsing/parser.ml" +# 78195 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_inlined1_, _startpos_label_) in @@ -78171,13 +78201,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 78175 "parsing/parser.ml" +# 78205 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 78181 "parsing/parser.ml" +# 78211 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -78241,9 +78271,9 @@ module Tables = struct let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 78247 "parsing/parser.ml" +# 78277 "parsing/parser.ml" in let m0 = @@ -78252,81 +78282,81 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 78258 "parsing/parser.ml" +# 78288 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 78264 "parsing/parser.ml" +# 78294 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 78274 "parsing/parser.ml" +# 78304 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 78281 "parsing/parser.ml" +# 78311 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 78287 "parsing/parser.ml" +# 78317 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 78293 "parsing/parser.ml" +# 78323 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 78299 "parsing/parser.ml" +# 78329 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 78308 "parsing/parser.ml" +# 78338 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 78315 "parsing/parser.ml" +# 78345 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 78320 "parsing/parser.ml" +# 78350 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 78330 "parsing/parser.ml" +# 78360 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_label_) in @@ -78336,13 +78366,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 78340 "parsing/parser.ml" +# 78370 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 78346 "parsing/parser.ml" +# 78376 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -78397,79 +78427,79 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, ty) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, ty_inlined1) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 78403 "parsing/parser.ml" +# 78433 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 78408 "parsing/parser.ml" +# 78438 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 78417 "parsing/parser.ml" +# 78447 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 78424 "parsing/parser.ml" +# 78454 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 78430 "parsing/parser.ml" +# 78460 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 78436 "parsing/parser.ml" +# 78466 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 78442 "parsing/parser.ml" +# 78472 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 78451 "parsing/parser.ml" +# 78481 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 78458 "parsing/parser.ml" +# 78488 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 78463 "parsing/parser.ml" +# 78493 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 78473 "parsing/parser.ml" +# 78503 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_inlined1_, _startpos_label_) in @@ -78479,13 +78509,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 78483 "parsing/parser.ml" +# 78513 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 78489 "parsing/parser.ml" +# 78519 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -78547,79 +78577,79 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, _1, ty) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, _1_inlined1, ty_inlined1) in let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 78553 "parsing/parser.ml" +# 78583 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 78558 "parsing/parser.ml" +# 78588 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 78567 "parsing/parser.ml" +# 78597 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 78574 "parsing/parser.ml" +# 78604 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 78580 "parsing/parser.ml" +# 78610 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 78586 "parsing/parser.ml" +# 78616 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 78592 "parsing/parser.ml" +# 78622 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 78601 "parsing/parser.ml" +# 78631 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 78608 "parsing/parser.ml" +# 78638 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 78613 "parsing/parser.ml" +# 78643 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 78623 "parsing/parser.ml" +# 78653 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_label_) in @@ -78629,13 +78659,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 78633 "parsing/parser.ml" +# 78663 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 78639 "parsing/parser.ml" +# 78669 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -78697,9 +78727,9 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, _endpos__1_, _startpos__1_, ty, _1) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, _endpos__1_inlined1_, _startpos__1_inlined1_, ty_inlined1, _1_inlined1) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 78703 "parsing/parser.ml" +# 78733 "parsing/parser.ml" in let m0 = let _1 = @@ -78707,81 +78737,81 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 78713 "parsing/parser.ml" +# 78743 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 78719 "parsing/parser.ml" +# 78749 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 78729 "parsing/parser.ml" +# 78759 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 78736 "parsing/parser.ml" +# 78766 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 78742 "parsing/parser.ml" +# 78772 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 78748 "parsing/parser.ml" +# 78778 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 78754 "parsing/parser.ml" +# 78784 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 78763 "parsing/parser.ml" +# 78793 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 78770 "parsing/parser.ml" +# 78800 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 78775 "parsing/parser.ml" +# 78805 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 78785 "parsing/parser.ml" +# 78815 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_inlined1_, _startpos_label_) in @@ -78791,13 +78821,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 78795 "parsing/parser.ml" +# 78825 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 78801 "parsing/parser.ml" +# 78831 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -78868,9 +78898,9 @@ module Tables = struct let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 78874 "parsing/parser.ml" +# 78904 "parsing/parser.ml" in let m0 = @@ -78879,81 +78909,81 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 78885 "parsing/parser.ml" +# 78915 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 78891 "parsing/parser.ml" +# 78921 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 78901 "parsing/parser.ml" +# 78931 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 78908 "parsing/parser.ml" +# 78938 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 78914 "parsing/parser.ml" +# 78944 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 78920 "parsing/parser.ml" +# 78950 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 78926 "parsing/parser.ml" +# 78956 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 78935 "parsing/parser.ml" +# 78965 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 78942 "parsing/parser.ml" +# 78972 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 78947 "parsing/parser.ml" +# 78977 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 78957 "parsing/parser.ml" +# 78987 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos_label_) in @@ -78963,13 +78993,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 78967 "parsing/parser.ml" +# 78997 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 78973 "parsing/parser.ml" +# 79003 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -79051,30 +79081,30 @@ module Tables = struct let _1 = let codomain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 79057 "parsing/parser.ml" +# 79087 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 79062 "parsing/parser.ml" +# 79092 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 79071 "parsing/parser.ml" +# 79101 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 79078 "parsing/parser.ml" +# 79108 "parsing/parser.ml" in let ty = let _startpos__1_ = _startpos__1_inlined1_ in @@ -79086,24 +79116,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 79090 "parsing/parser.ml" +# 79120 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 79095 "parsing/parser.ml" +# 79125 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 79101 "parsing/parser.ml" +# 79131 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 79107 "parsing/parser.ml" +# 79137 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -79113,20 +79143,20 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 79117 "parsing/parser.ml" +# 79147 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 79123 "parsing/parser.ml" +# 79153 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 79130 "parsing/parser.ml" +# 79160 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_inlined1_) in @@ -79136,47 +79166,47 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 79142 "parsing/parser.ml" +# 79172 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 79148 "parsing/parser.ml" +# 79178 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 79158 "parsing/parser.ml" +# 79188 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 79165 "parsing/parser.ml" +# 79195 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 79170 "parsing/parser.ml" +# 79200 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 79180 "parsing/parser.ml" +# 79210 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_label_) in @@ -79186,13 +79216,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 79190 "parsing/parser.ml" +# 79220 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 79196 "parsing/parser.ml" +# 79226 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -79282,30 +79312,30 @@ module Tables = struct let codomain_with_modes = let _1 = _1_inlined2 in let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 79288 "parsing/parser.ml" +# 79318 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 79293 "parsing/parser.ml" +# 79323 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 79302 "parsing/parser.ml" +# 79332 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 79309 "parsing/parser.ml" +# 79339 "parsing/parser.ml" in let ty = let _startpos__1_ = _startpos__1_inlined1_ in @@ -79317,24 +79347,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 79321 "parsing/parser.ml" +# 79351 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 79326 "parsing/parser.ml" +# 79356 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 79332 "parsing/parser.ml" +# 79362 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 79338 "parsing/parser.ml" +# 79368 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -79344,20 +79374,20 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 79348 "parsing/parser.ml" +# 79378 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 79354 "parsing/parser.ml" +# 79384 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 79361 "parsing/parser.ml" +# 79391 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_inlined1_) in @@ -79367,47 +79397,47 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 79373 "parsing/parser.ml" +# 79403 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 79379 "parsing/parser.ml" +# 79409 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 79389 "parsing/parser.ml" +# 79419 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 79396 "parsing/parser.ml" +# 79426 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 79401 "parsing/parser.ml" +# 79431 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 79411 "parsing/parser.ml" +# 79441 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos_label_) in @@ -79417,13 +79447,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 79421 "parsing/parser.ml" +# 79451 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 79427 "parsing/parser.ml" +# 79457 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -79513,9 +79543,9 @@ module Tables = struct let codomain_with_modes = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 79519 "parsing/parser.ml" +# 79549 "parsing/parser.ml" in let m0 = let _1 = @@ -79523,32 +79553,32 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 79529 "parsing/parser.ml" +# 79559 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 79535 "parsing/parser.ml" +# 79565 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 79545 "parsing/parser.ml" +# 79575 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 79552 "parsing/parser.ml" +# 79582 "parsing/parser.ml" in let ty = let _startpos__1_ = _startpos__1_inlined1_ in @@ -79560,24 +79590,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 79564 "parsing/parser.ml" +# 79594 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 79569 "parsing/parser.ml" +# 79599 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 79575 "parsing/parser.ml" +# 79605 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 79581 "parsing/parser.ml" +# 79611 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -79587,20 +79617,20 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 79591 "parsing/parser.ml" +# 79621 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 79597 "parsing/parser.ml" +# 79627 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 79604 "parsing/parser.ml" +# 79634 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_inlined1_) in @@ -79610,47 +79640,47 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 79616 "parsing/parser.ml" +# 79646 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 79622 "parsing/parser.ml" +# 79652 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 79632 "parsing/parser.ml" +# 79662 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 79639 "parsing/parser.ml" +# 79669 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 79644 "parsing/parser.ml" +# 79674 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 79654 "parsing/parser.ml" +# 79684 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_label_) in @@ -79660,13 +79690,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 79664 "parsing/parser.ml" +# 79694 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 79670 "parsing/parser.ml" +# 79700 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -79765,9 +79795,9 @@ module Tables = struct let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 79771 "parsing/parser.ml" +# 79801 "parsing/parser.ml" in let m0 = @@ -79776,32 +79806,32 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 79782 "parsing/parser.ml" +# 79812 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 79788 "parsing/parser.ml" +# 79818 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 79798 "parsing/parser.ml" +# 79828 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 79805 "parsing/parser.ml" +# 79835 "parsing/parser.ml" in let ty = let _startpos__1_ = _startpos__1_inlined1_ in @@ -79813,24 +79843,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 79817 "parsing/parser.ml" +# 79847 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 79822 "parsing/parser.ml" +# 79852 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 79828 "parsing/parser.ml" +# 79858 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 79834 "parsing/parser.ml" +# 79864 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -79840,20 +79870,20 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 79844 "parsing/parser.ml" +# 79874 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 79850 "parsing/parser.ml" +# 79880 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 79857 "parsing/parser.ml" +# 79887 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_inlined1_) in @@ -79863,47 +79893,47 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 79869 "parsing/parser.ml" +# 79899 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 79875 "parsing/parser.ml" +# 79905 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 79885 "parsing/parser.ml" +# 79915 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 79892 "parsing/parser.ml" +# 79922 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 79897 "parsing/parser.ml" +# 79927 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 79907 "parsing/parser.ml" +# 79937 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined3_, _startpos_label_) in @@ -79913,13 +79943,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 79917 "parsing/parser.ml" +# 79947 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 79923 "parsing/parser.ml" +# 79953 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -80008,32 +80038,32 @@ module Tables = struct let _1 = let codomain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 80014 "parsing/parser.ml" +# 80044 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 80019 "parsing/parser.ml" +# 80049 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 80028 "parsing/parser.ml" +# 80058 "parsing/parser.ml" in let domain_with_modes = let m1 = let _1 = _1_inlined2 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 80037 "parsing/parser.ml" +# 80067 "parsing/parser.ml" in let ty = @@ -80046,24 +80076,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 80050 "parsing/parser.ml" +# 80080 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 80055 "parsing/parser.ml" +# 80085 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 80061 "parsing/parser.ml" +# 80091 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 80067 "parsing/parser.ml" +# 80097 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -80073,20 +80103,20 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 80077 "parsing/parser.ml" +# 80107 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 80083 "parsing/parser.ml" +# 80113 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 80090 "parsing/parser.ml" +# 80120 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_inlined1_) in @@ -80096,47 +80126,47 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 80102 "parsing/parser.ml" +# 80132 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 80108 "parsing/parser.ml" +# 80138 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 80118 "parsing/parser.ml" +# 80148 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 80125 "parsing/parser.ml" +# 80155 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 80130 "parsing/parser.ml" +# 80160 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 80140 "parsing/parser.ml" +# 80170 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_label_) in @@ -80146,13 +80176,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 80150 "parsing/parser.ml" +# 80180 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 80156 "parsing/parser.ml" +# 80186 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -80249,32 +80279,32 @@ module Tables = struct let codomain_with_modes = let _1 = _1_inlined3 in let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 80255 "parsing/parser.ml" +# 80285 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 80260 "parsing/parser.ml" +# 80290 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 80269 "parsing/parser.ml" +# 80299 "parsing/parser.ml" in let domain_with_modes = let m1 = let _1 = _1_inlined2 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 80278 "parsing/parser.ml" +# 80308 "parsing/parser.ml" in let ty = @@ -80287,24 +80317,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 80291 "parsing/parser.ml" +# 80321 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 80296 "parsing/parser.ml" +# 80326 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 80302 "parsing/parser.ml" +# 80332 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 80308 "parsing/parser.ml" +# 80338 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -80314,20 +80344,20 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 80318 "parsing/parser.ml" +# 80348 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 80324 "parsing/parser.ml" +# 80354 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 80331 "parsing/parser.ml" +# 80361 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_inlined1_) in @@ -80337,47 +80367,47 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 80343 "parsing/parser.ml" +# 80373 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 80349 "parsing/parser.ml" +# 80379 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 80359 "parsing/parser.ml" +# 80389 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 80366 "parsing/parser.ml" +# 80396 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 80371 "parsing/parser.ml" +# 80401 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 80381 "parsing/parser.ml" +# 80411 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined3_, _startpos_label_) in @@ -80387,13 +80417,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 80391 "parsing/parser.ml" +# 80421 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 80397 "parsing/parser.ml" +# 80427 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -80490,9 +80520,9 @@ module Tables = struct let codomain_with_modes = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 80496 "parsing/parser.ml" +# 80526 "parsing/parser.ml" in let m0 = let _1 = @@ -80500,34 +80530,34 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 80506 "parsing/parser.ml" +# 80536 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 80512 "parsing/parser.ml" +# 80542 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 80522 "parsing/parser.ml" +# 80552 "parsing/parser.ml" in let domain_with_modes = let m1 = let _1 = _1_inlined2 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 80531 "parsing/parser.ml" +# 80561 "parsing/parser.ml" in let ty = @@ -80540,24 +80570,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 80544 "parsing/parser.ml" +# 80574 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 80549 "parsing/parser.ml" +# 80579 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 80555 "parsing/parser.ml" +# 80585 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 80561 "parsing/parser.ml" +# 80591 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -80567,20 +80597,20 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 80571 "parsing/parser.ml" +# 80601 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 80577 "parsing/parser.ml" +# 80607 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 80584 "parsing/parser.ml" +# 80614 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_inlined1_) in @@ -80590,47 +80620,47 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 80596 "parsing/parser.ml" +# 80626 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 80602 "parsing/parser.ml" +# 80632 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 80612 "parsing/parser.ml" +# 80642 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 80619 "parsing/parser.ml" +# 80649 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 80624 "parsing/parser.ml" +# 80654 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 80634 "parsing/parser.ml" +# 80664 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_label_) in @@ -80640,13 +80670,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 80644 "parsing/parser.ml" +# 80674 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 80650 "parsing/parser.ml" +# 80680 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -80752,9 +80782,9 @@ module Tables = struct let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 80758 "parsing/parser.ml" +# 80788 "parsing/parser.ml" in let m0 = @@ -80763,34 +80793,34 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 80769 "parsing/parser.ml" +# 80799 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 80775 "parsing/parser.ml" +# 80805 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 80785 "parsing/parser.ml" +# 80815 "parsing/parser.ml" in let domain_with_modes = let m1 = let _1 = _1_inlined2 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 80794 "parsing/parser.ml" +# 80824 "parsing/parser.ml" in let ty = @@ -80803,24 +80833,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 80807 "parsing/parser.ml" +# 80837 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 80812 "parsing/parser.ml" +# 80842 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 80818 "parsing/parser.ml" +# 80848 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 80824 "parsing/parser.ml" +# 80854 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -80830,20 +80860,20 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 80834 "parsing/parser.ml" +# 80864 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 80840 "parsing/parser.ml" +# 80870 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 80847 "parsing/parser.ml" +# 80877 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_inlined1_) in @@ -80853,47 +80883,47 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 80859 "parsing/parser.ml" +# 80889 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 80865 "parsing/parser.ml" +# 80895 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 80875 "parsing/parser.ml" +# 80905 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 80882 "parsing/parser.ml" +# 80912 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 80887 "parsing/parser.ml" +# 80917 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 80897 "parsing/parser.ml" +# 80927 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined4_, _startpos_label_) in @@ -80903,13 +80933,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 80907 "parsing/parser.ml" +# 80937 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 80913 "parsing/parser.ml" +# 80943 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -80964,42 +80994,42 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, ty) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, ty_inlined1) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 80970 "parsing/parser.ml" +# 81000 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 80975 "parsing/parser.ml" +# 81005 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 80984 "parsing/parser.ml" +# 81014 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 80991 "parsing/parser.ml" +# 81021 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 80997 "parsing/parser.ml" +# 81027 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 81003 "parsing/parser.ml" +# 81033 "parsing/parser.ml" in let m0 = @@ -81008,47 +81038,47 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 81014 "parsing/parser.ml" +# 81044 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 81020 "parsing/parser.ml" +# 81050 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 81030 "parsing/parser.ml" +# 81060 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 81037 "parsing/parser.ml" +# 81067 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 81042 "parsing/parser.ml" +# 81072 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 81052 "parsing/parser.ml" +# 81082 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_inlined1_, _startpos_label_) in @@ -81058,13 +81088,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 81062 "parsing/parser.ml" +# 81092 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 81068 "parsing/parser.ml" +# 81098 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -81126,42 +81156,42 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, _1, ty) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, _1_inlined1, ty_inlined1) in let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 81132 "parsing/parser.ml" +# 81162 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 81137 "parsing/parser.ml" +# 81167 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 81146 "parsing/parser.ml" +# 81176 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 81153 "parsing/parser.ml" +# 81183 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 81159 "parsing/parser.ml" +# 81189 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 81165 "parsing/parser.ml" +# 81195 "parsing/parser.ml" in let m0 = @@ -81170,47 +81200,47 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 81176 "parsing/parser.ml" +# 81206 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 81182 "parsing/parser.ml" +# 81212 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 81192 "parsing/parser.ml" +# 81222 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 81199 "parsing/parser.ml" +# 81229 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 81204 "parsing/parser.ml" +# 81234 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 81214 "parsing/parser.ml" +# 81244 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_label_) in @@ -81220,13 +81250,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 81224 "parsing/parser.ml" +# 81254 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 81230 "parsing/parser.ml" +# 81260 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -81288,9 +81318,9 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, _endpos__1_, _startpos__1_, ty, _1) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, _endpos__1_inlined1_, _startpos__1_inlined1_, ty_inlined1, _1_inlined1) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 81294 "parsing/parser.ml" +# 81324 "parsing/parser.ml" in let m0 = let _1 = @@ -81298,44 +81328,44 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 81304 "parsing/parser.ml" +# 81334 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 81310 "parsing/parser.ml" +# 81340 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 81320 "parsing/parser.ml" +# 81350 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 81327 "parsing/parser.ml" +# 81357 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 81333 "parsing/parser.ml" +# 81363 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 81339 "parsing/parser.ml" +# 81369 "parsing/parser.ml" in let m0 = @@ -81344,47 +81374,47 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 81350 "parsing/parser.ml" +# 81380 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 81356 "parsing/parser.ml" +# 81386 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 81366 "parsing/parser.ml" +# 81396 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 81373 "parsing/parser.ml" +# 81403 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 81378 "parsing/parser.ml" +# 81408 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 81388 "parsing/parser.ml" +# 81418 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_inlined1_, _startpos_label_) in @@ -81394,13 +81424,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 81398 "parsing/parser.ml" +# 81428 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 81404 "parsing/parser.ml" +# 81434 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -81471,9 +81501,9 @@ module Tables = struct let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 81477 "parsing/parser.ml" +# 81507 "parsing/parser.ml" in let m0 = @@ -81482,44 +81512,44 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 81488 "parsing/parser.ml" +# 81518 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 81494 "parsing/parser.ml" +# 81524 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 81504 "parsing/parser.ml" +# 81534 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 81511 "parsing/parser.ml" +# 81541 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 81517 "parsing/parser.ml" +# 81547 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 81523 "parsing/parser.ml" +# 81553 "parsing/parser.ml" in let m0 = @@ -81528,47 +81558,47 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 81534 "parsing/parser.ml" +# 81564 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 81540 "parsing/parser.ml" +# 81570 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 81550 "parsing/parser.ml" +# 81580 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 81557 "parsing/parser.ml" +# 81587 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 81562 "parsing/parser.ml" +# 81592 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 81572 "parsing/parser.ml" +# 81602 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos_label_) in @@ -81578,13 +81608,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 81582 "parsing/parser.ml" +# 81612 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 81588 "parsing/parser.ml" +# 81618 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -81646,45 +81676,45 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, ty) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, ty_inlined1) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 81652 "parsing/parser.ml" +# 81682 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 81657 "parsing/parser.ml" +# 81687 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 81666 "parsing/parser.ml" +# 81696 "parsing/parser.ml" in let domain_with_modes = let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 81675 "parsing/parser.ml" +# 81705 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 81682 "parsing/parser.ml" +# 81712 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 81688 "parsing/parser.ml" +# 81718 "parsing/parser.ml" in let m0 = @@ -81693,47 +81723,47 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 81699 "parsing/parser.ml" +# 81729 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 81705 "parsing/parser.ml" +# 81735 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 81715 "parsing/parser.ml" +# 81745 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 81722 "parsing/parser.ml" +# 81752 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 81727 "parsing/parser.ml" +# 81757 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 81737 "parsing/parser.ml" +# 81767 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_inlined1_, _startpos_label_) in @@ -81743,13 +81773,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 81747 "parsing/parser.ml" +# 81777 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 81753 "parsing/parser.ml" +# 81783 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -81818,45 +81848,45 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, _1, ty) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, _1_inlined2, ty_inlined1) in let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 81824 "parsing/parser.ml" +# 81854 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 81829 "parsing/parser.ml" +# 81859 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 81838 "parsing/parser.ml" +# 81868 "parsing/parser.ml" in let domain_with_modes = let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 81847 "parsing/parser.ml" +# 81877 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 81854 "parsing/parser.ml" +# 81884 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 81860 "parsing/parser.ml" +# 81890 "parsing/parser.ml" in let m0 = @@ -81865,47 +81895,47 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 81871 "parsing/parser.ml" +# 81901 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 81877 "parsing/parser.ml" +# 81907 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 81887 "parsing/parser.ml" +# 81917 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 81894 "parsing/parser.ml" +# 81924 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 81899 "parsing/parser.ml" +# 81929 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 81909 "parsing/parser.ml" +# 81939 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos_label_) in @@ -81915,13 +81945,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 81919 "parsing/parser.ml" +# 81949 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 81925 "parsing/parser.ml" +# 81955 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -81990,9 +82020,9 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, _endpos__1_, _startpos__1_, ty, _1) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, _endpos__1_inlined2_, _startpos__1_inlined2_, ty_inlined1, _1_inlined2) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 81996 "parsing/parser.ml" +# 82026 "parsing/parser.ml" in let m0 = let _1 = @@ -82000,47 +82030,47 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 82006 "parsing/parser.ml" +# 82036 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 82012 "parsing/parser.ml" +# 82042 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 82022 "parsing/parser.ml" +# 82052 "parsing/parser.ml" in let domain_with_modes = let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 82031 "parsing/parser.ml" +# 82061 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 82038 "parsing/parser.ml" +# 82068 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 82044 "parsing/parser.ml" +# 82074 "parsing/parser.ml" in let m0 = @@ -82049,47 +82079,47 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 82055 "parsing/parser.ml" +# 82085 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 82061 "parsing/parser.ml" +# 82091 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 82071 "parsing/parser.ml" +# 82101 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 82078 "parsing/parser.ml" +# 82108 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 82083 "parsing/parser.ml" +# 82113 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 82093 "parsing/parser.ml" +# 82123 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_inlined1_, _startpos_label_) in @@ -82099,13 +82129,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 82103 "parsing/parser.ml" +# 82133 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 82109 "parsing/parser.ml" +# 82139 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -82183,9 +82213,9 @@ module Tables = struct let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 82189 "parsing/parser.ml" +# 82219 "parsing/parser.ml" in let m0 = @@ -82194,47 +82224,47 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 82200 "parsing/parser.ml" +# 82230 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 82206 "parsing/parser.ml" +# 82236 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 82216 "parsing/parser.ml" +# 82246 "parsing/parser.ml" in let domain_with_modes = let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 82225 "parsing/parser.ml" +# 82255 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 82232 "parsing/parser.ml" +# 82262 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 82238 "parsing/parser.ml" +# 82268 "parsing/parser.ml" in let m0 = @@ -82243,47 +82273,47 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 82249 "parsing/parser.ml" +# 82279 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 82255 "parsing/parser.ml" +# 82285 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 82265 "parsing/parser.ml" +# 82295 "parsing/parser.ml" in let label = let _1 = -# 4352 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( Optional label ) -# 82272 "parsing/parser.ml" +# 82302 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 82277 "parsing/parser.ml" +# 82307 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 82287 "parsing/parser.ml" +# 82317 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined3_, _startpos_label_) in @@ -82293,13 +82323,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 82297 "parsing/parser.ml" +# 82327 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 82303 "parsing/parser.ml" +# 82333 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -82376,7 +82406,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 82380 "parsing/parser.ml" +# 82410 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -82385,30 +82415,30 @@ module Tables = struct let _1 = let codomain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 82391 "parsing/parser.ml" +# 82421 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 82396 "parsing/parser.ml" +# 82426 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 82405 "parsing/parser.ml" +# 82435 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 82412 "parsing/parser.ml" +# 82442 "parsing/parser.ml" in let ty = let _1 = @@ -82419,24 +82449,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 82423 "parsing/parser.ml" +# 82453 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 82428 "parsing/parser.ml" +# 82458 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 82434 "parsing/parser.ml" +# 82464 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 82440 "parsing/parser.ml" +# 82470 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -82446,58 +82476,58 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 82450 "parsing/parser.ml" +# 82480 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 82456 "parsing/parser.ml" +# 82486 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 82463 "parsing/parser.ml" +# 82493 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_) in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 82470 "parsing/parser.ml" +# 82500 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 82479 "parsing/parser.ml" +# 82509 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 82486 "parsing/parser.ml" +# 82516 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 82491 "parsing/parser.ml" +# 82521 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 82501 "parsing/parser.ml" +# 82531 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_label_) in @@ -82507,13 +82537,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 82511 "parsing/parser.ml" +# 82541 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 82517 "parsing/parser.ml" +# 82547 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -82597,7 +82627,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 82601 "parsing/parser.ml" +# 82631 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -82607,30 +82637,30 @@ module Tables = struct let codomain_with_modes = let _1 = _1_inlined1 in let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 82613 "parsing/parser.ml" +# 82643 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 82618 "parsing/parser.ml" +# 82648 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 82627 "parsing/parser.ml" +# 82657 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 82634 "parsing/parser.ml" +# 82664 "parsing/parser.ml" in let ty = let _1 = @@ -82641,24 +82671,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 82645 "parsing/parser.ml" +# 82675 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 82650 "parsing/parser.ml" +# 82680 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 82656 "parsing/parser.ml" +# 82686 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 82662 "parsing/parser.ml" +# 82692 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -82668,58 +82698,58 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 82672 "parsing/parser.ml" +# 82702 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 82678 "parsing/parser.ml" +# 82708 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 82685 "parsing/parser.ml" +# 82715 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_) in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 82692 "parsing/parser.ml" +# 82722 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 82701 "parsing/parser.ml" +# 82731 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 82708 "parsing/parser.ml" +# 82738 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 82713 "parsing/parser.ml" +# 82743 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 82723 "parsing/parser.ml" +# 82753 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_label_) in @@ -82729,13 +82759,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 82733 "parsing/parser.ml" +# 82763 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 82739 "parsing/parser.ml" +# 82769 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -82819,7 +82849,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 82823 "parsing/parser.ml" +# 82853 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -82829,9 +82859,9 @@ module Tables = struct let codomain_with_modes = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 82835 "parsing/parser.ml" +# 82865 "parsing/parser.ml" in let m0 = let _1 = @@ -82839,32 +82869,32 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 82845 "parsing/parser.ml" +# 82875 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 82851 "parsing/parser.ml" +# 82881 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 82861 "parsing/parser.ml" +# 82891 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 82868 "parsing/parser.ml" +# 82898 "parsing/parser.ml" in let ty = let _1 = @@ -82875,24 +82905,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 82879 "parsing/parser.ml" +# 82909 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 82884 "parsing/parser.ml" +# 82914 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 82890 "parsing/parser.ml" +# 82920 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 82896 "parsing/parser.ml" +# 82926 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -82902,58 +82932,58 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 82906 "parsing/parser.ml" +# 82936 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 82912 "parsing/parser.ml" +# 82942 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 82919 "parsing/parser.ml" +# 82949 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_) in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 82926 "parsing/parser.ml" +# 82956 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 82935 "parsing/parser.ml" +# 82965 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 82942 "parsing/parser.ml" +# 82972 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 82947 "parsing/parser.ml" +# 82977 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 82957 "parsing/parser.ml" +# 82987 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_label_) in @@ -82963,13 +82993,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 82967 "parsing/parser.ml" +# 82997 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 82973 "parsing/parser.ml" +# 83003 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -83060,7 +83090,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 83064 "parsing/parser.ml" +# 83094 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -83072,9 +83102,9 @@ module Tables = struct let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 83078 "parsing/parser.ml" +# 83108 "parsing/parser.ml" in let m0 = @@ -83083,32 +83113,32 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 83089 "parsing/parser.ml" +# 83119 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 83095 "parsing/parser.ml" +# 83125 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 83105 "parsing/parser.ml" +# 83135 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 83112 "parsing/parser.ml" +# 83142 "parsing/parser.ml" in let ty = let _1 = @@ -83119,24 +83149,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 83123 "parsing/parser.ml" +# 83153 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 83128 "parsing/parser.ml" +# 83158 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 83134 "parsing/parser.ml" +# 83164 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 83140 "parsing/parser.ml" +# 83170 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -83146,58 +83176,58 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 83150 "parsing/parser.ml" +# 83180 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 83156 "parsing/parser.ml" +# 83186 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 83163 "parsing/parser.ml" +# 83193 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_) in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 83170 "parsing/parser.ml" +# 83200 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 83179 "parsing/parser.ml" +# 83209 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 83186 "parsing/parser.ml" +# 83216 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 83191 "parsing/parser.ml" +# 83221 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 83201 "parsing/parser.ml" +# 83231 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos_label_) in @@ -83207,13 +83237,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 83211 "parsing/parser.ml" +# 83241 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 83217 "parsing/parser.ml" +# 83247 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -83297,7 +83327,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 83301 "parsing/parser.ml" +# 83331 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -83306,32 +83336,32 @@ module Tables = struct let _1 = let codomain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 83312 "parsing/parser.ml" +# 83342 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 83317 "parsing/parser.ml" +# 83347 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 83326 "parsing/parser.ml" +# 83356 "parsing/parser.ml" in let domain_with_modes = let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 83335 "parsing/parser.ml" +# 83365 "parsing/parser.ml" in let ty = @@ -83343,24 +83373,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 83347 "parsing/parser.ml" +# 83377 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 83352 "parsing/parser.ml" +# 83382 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 83358 "parsing/parser.ml" +# 83388 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 83364 "parsing/parser.ml" +# 83394 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -83370,58 +83400,58 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 83374 "parsing/parser.ml" +# 83404 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 83380 "parsing/parser.ml" +# 83410 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 83387 "parsing/parser.ml" +# 83417 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_) in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 83394 "parsing/parser.ml" +# 83424 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 83403 "parsing/parser.ml" +# 83433 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 83410 "parsing/parser.ml" +# 83440 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 83415 "parsing/parser.ml" +# 83445 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 83425 "parsing/parser.ml" +# 83455 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_label_) in @@ -83431,13 +83461,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 83435 "parsing/parser.ml" +# 83465 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 83441 "parsing/parser.ml" +# 83471 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -83528,7 +83558,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 83532 "parsing/parser.ml" +# 83562 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -83538,32 +83568,32 @@ module Tables = struct let codomain_with_modes = let _1 = _1_inlined2 in let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 83544 "parsing/parser.ml" +# 83574 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 83549 "parsing/parser.ml" +# 83579 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 83558 "parsing/parser.ml" +# 83588 "parsing/parser.ml" in let domain_with_modes = let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 83567 "parsing/parser.ml" +# 83597 "parsing/parser.ml" in let ty = @@ -83575,24 +83605,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 83579 "parsing/parser.ml" +# 83609 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 83584 "parsing/parser.ml" +# 83614 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 83590 "parsing/parser.ml" +# 83620 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 83596 "parsing/parser.ml" +# 83626 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -83602,58 +83632,58 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 83606 "parsing/parser.ml" +# 83636 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 83612 "parsing/parser.ml" +# 83642 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 83619 "parsing/parser.ml" +# 83649 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_) in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 83626 "parsing/parser.ml" +# 83656 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 83635 "parsing/parser.ml" +# 83665 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 83642 "parsing/parser.ml" +# 83672 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 83647 "parsing/parser.ml" +# 83677 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 83657 "parsing/parser.ml" +# 83687 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos_label_) in @@ -83663,13 +83693,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 83667 "parsing/parser.ml" +# 83697 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 83673 "parsing/parser.ml" +# 83703 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -83760,7 +83790,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 83764 "parsing/parser.ml" +# 83794 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -83770,9 +83800,9 @@ module Tables = struct let codomain_with_modes = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 83776 "parsing/parser.ml" +# 83806 "parsing/parser.ml" in let m0 = let _1 = @@ -83780,34 +83810,34 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 83786 "parsing/parser.ml" +# 83816 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 83792 "parsing/parser.ml" +# 83822 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 83802 "parsing/parser.ml" +# 83832 "parsing/parser.ml" in let domain_with_modes = let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 83811 "parsing/parser.ml" +# 83841 "parsing/parser.ml" in let ty = @@ -83819,24 +83849,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 83823 "parsing/parser.ml" +# 83853 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 83828 "parsing/parser.ml" +# 83858 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 83834 "parsing/parser.ml" +# 83864 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 83840 "parsing/parser.ml" +# 83870 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -83846,58 +83876,58 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 83850 "parsing/parser.ml" +# 83880 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 83856 "parsing/parser.ml" +# 83886 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 83863 "parsing/parser.ml" +# 83893 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_) in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 83870 "parsing/parser.ml" +# 83900 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 83879 "parsing/parser.ml" +# 83909 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 83886 "parsing/parser.ml" +# 83916 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 83891 "parsing/parser.ml" +# 83921 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 83901 "parsing/parser.ml" +# 83931 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_label_) in @@ -83907,13 +83937,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 83911 "parsing/parser.ml" +# 83941 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 83917 "parsing/parser.ml" +# 83947 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -84011,7 +84041,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 84015 "parsing/parser.ml" +# 84045 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -84023,9 +84053,9 @@ module Tables = struct let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 84029 "parsing/parser.ml" +# 84059 "parsing/parser.ml" in let m0 = @@ -84034,34 +84064,34 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 84040 "parsing/parser.ml" +# 84070 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 84046 "parsing/parser.ml" +# 84076 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 84056 "parsing/parser.ml" +# 84086 "parsing/parser.ml" in let domain_with_modes = let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 84065 "parsing/parser.ml" +# 84095 "parsing/parser.ml" in let ty = @@ -84073,24 +84103,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 84077 "parsing/parser.ml" +# 84107 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 84082 "parsing/parser.ml" +# 84112 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 84088 "parsing/parser.ml" +# 84118 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 84094 "parsing/parser.ml" +# 84124 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -84100,58 +84130,58 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 84104 "parsing/parser.ml" +# 84134 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 84110 "parsing/parser.ml" +# 84140 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 84117 "parsing/parser.ml" +# 84147 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_) in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 84124 "parsing/parser.ml" +# 84154 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 84133 "parsing/parser.ml" +# 84163 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 84140 "parsing/parser.ml" +# 84170 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 84145 "parsing/parser.ml" +# 84175 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 84155 "parsing/parser.ml" +# 84185 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined3_, _startpos_label_) in @@ -84161,13 +84191,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 84165 "parsing/parser.ml" +# 84195 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 84171 "parsing/parser.ml" +# 84201 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -84216,7 +84246,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 84220 "parsing/parser.ml" +# 84250 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -84226,79 +84256,79 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, ty) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, ty_inlined1) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 84232 "parsing/parser.ml" +# 84262 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 84237 "parsing/parser.ml" +# 84267 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 84246 "parsing/parser.ml" +# 84276 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 84253 "parsing/parser.ml" +# 84283 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 84259 "parsing/parser.ml" +# 84289 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 84265 "parsing/parser.ml" +# 84295 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 84271 "parsing/parser.ml" +# 84301 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 84280 "parsing/parser.ml" +# 84310 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 84287 "parsing/parser.ml" +# 84317 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 84292 "parsing/parser.ml" +# 84322 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 84302 "parsing/parser.ml" +# 84332 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_inlined1_, _startpos_label_) in @@ -84308,13 +84338,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 84312 "parsing/parser.ml" +# 84342 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 84318 "parsing/parser.ml" +# 84348 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -84370,7 +84400,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 84374 "parsing/parser.ml" +# 84404 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -84380,79 +84410,79 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, ty) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, ty_inlined1) in let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 84386 "parsing/parser.ml" +# 84416 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 84391 "parsing/parser.ml" +# 84421 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 84400 "parsing/parser.ml" +# 84430 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 84407 "parsing/parser.ml" +# 84437 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 84413 "parsing/parser.ml" +# 84443 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 84419 "parsing/parser.ml" +# 84449 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 84425 "parsing/parser.ml" +# 84455 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 84434 "parsing/parser.ml" +# 84464 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 84441 "parsing/parser.ml" +# 84471 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 84446 "parsing/parser.ml" +# 84476 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 84456 "parsing/parser.ml" +# 84486 "parsing/parser.ml" in let _startpos__1_ = _startpos_label_ in @@ -84462,13 +84492,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 84466 "parsing/parser.ml" +# 84496 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 84472 "parsing/parser.ml" +# 84502 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -84524,7 +84554,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 84528 "parsing/parser.ml" +# 84558 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -84534,9 +84564,9 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, ty) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, ty_inlined1) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 84540 "parsing/parser.ml" +# 84570 "parsing/parser.ml" in let m0 = let _1 = @@ -84544,81 +84574,81 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 84550 "parsing/parser.ml" +# 84580 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 84556 "parsing/parser.ml" +# 84586 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 84566 "parsing/parser.ml" +# 84596 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 84573 "parsing/parser.ml" +# 84603 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 84579 "parsing/parser.ml" +# 84609 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 84585 "parsing/parser.ml" +# 84615 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 84591 "parsing/parser.ml" +# 84621 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 84600 "parsing/parser.ml" +# 84630 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 84607 "parsing/parser.ml" +# 84637 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 84612 "parsing/parser.ml" +# 84642 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 84622 "parsing/parser.ml" +# 84652 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_inlined1_, _startpos_label_) in @@ -84628,13 +84658,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 84632 "parsing/parser.ml" +# 84662 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 84638 "parsing/parser.ml" +# 84668 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -84697,7 +84727,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 84701 "parsing/parser.ml" +# 84731 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -84709,9 +84739,9 @@ module Tables = struct let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 84715 "parsing/parser.ml" +# 84745 "parsing/parser.ml" in let m0 = @@ -84720,81 +84750,81 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 84726 "parsing/parser.ml" +# 84756 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 84732 "parsing/parser.ml" +# 84762 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 84742 "parsing/parser.ml" +# 84772 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 84749 "parsing/parser.ml" +# 84779 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 84755 "parsing/parser.ml" +# 84785 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 84761 "parsing/parser.ml" +# 84791 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 84767 "parsing/parser.ml" +# 84797 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 84776 "parsing/parser.ml" +# 84806 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 84783 "parsing/parser.ml" +# 84813 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 84788 "parsing/parser.ml" +# 84818 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 84798 "parsing/parser.ml" +# 84828 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_label_) in @@ -84804,13 +84834,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 84808 "parsing/parser.ml" +# 84838 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 84814 "parsing/parser.ml" +# 84844 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -84866,7 +84896,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 84870 "parsing/parser.ml" +# 84900 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -84876,79 +84906,79 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, ty) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, ty_inlined1) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 84882 "parsing/parser.ml" +# 84912 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 84887 "parsing/parser.ml" +# 84917 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 84896 "parsing/parser.ml" +# 84926 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 84903 "parsing/parser.ml" +# 84933 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 84909 "parsing/parser.ml" +# 84939 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 84915 "parsing/parser.ml" +# 84945 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 84921 "parsing/parser.ml" +# 84951 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 84930 "parsing/parser.ml" +# 84960 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 84937 "parsing/parser.ml" +# 84967 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 84942 "parsing/parser.ml" +# 84972 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 84952 "parsing/parser.ml" +# 84982 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_inlined1_, _startpos_label_) in @@ -84958,13 +84988,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 84962 "parsing/parser.ml" +# 84992 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 84968 "parsing/parser.ml" +# 84998 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -85027,7 +85057,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 85031 "parsing/parser.ml" +# 85061 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -85037,79 +85067,79 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, _1, ty) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, _1_inlined1, ty_inlined1) in let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 85043 "parsing/parser.ml" +# 85073 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 85048 "parsing/parser.ml" +# 85078 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 85057 "parsing/parser.ml" +# 85087 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 85064 "parsing/parser.ml" +# 85094 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 85070 "parsing/parser.ml" +# 85100 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 85076 "parsing/parser.ml" +# 85106 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 85082 "parsing/parser.ml" +# 85112 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 85091 "parsing/parser.ml" +# 85121 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 85098 "parsing/parser.ml" +# 85128 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 85103 "parsing/parser.ml" +# 85133 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 85113 "parsing/parser.ml" +# 85143 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_label_) in @@ -85119,13 +85149,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 85123 "parsing/parser.ml" +# 85153 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 85129 "parsing/parser.ml" +# 85159 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -85188,7 +85218,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 85192 "parsing/parser.ml" +# 85222 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -85198,9 +85228,9 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, _endpos__1_, _startpos__1_, ty, _1) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, _endpos__1_inlined1_, _startpos__1_inlined1_, ty_inlined1, _1_inlined1) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 85204 "parsing/parser.ml" +# 85234 "parsing/parser.ml" in let m0 = let _1 = @@ -85208,81 +85238,81 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 85214 "parsing/parser.ml" +# 85244 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 85220 "parsing/parser.ml" +# 85250 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 85230 "parsing/parser.ml" +# 85260 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 85237 "parsing/parser.ml" +# 85267 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 85243 "parsing/parser.ml" +# 85273 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 85249 "parsing/parser.ml" +# 85279 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 85255 "parsing/parser.ml" +# 85285 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 85264 "parsing/parser.ml" +# 85294 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 85271 "parsing/parser.ml" +# 85301 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 85276 "parsing/parser.ml" +# 85306 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 85286 "parsing/parser.ml" +# 85316 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_inlined1_, _startpos_label_) in @@ -85292,13 +85322,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 85296 "parsing/parser.ml" +# 85326 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 85302 "parsing/parser.ml" +# 85332 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -85368,7 +85398,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 85372 "parsing/parser.ml" +# 85402 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -85380,9 +85410,9 @@ module Tables = struct let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 85386 "parsing/parser.ml" +# 85416 "parsing/parser.ml" in let m0 = @@ -85391,81 +85421,81 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 85397 "parsing/parser.ml" +# 85427 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 85403 "parsing/parser.ml" +# 85433 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 85413 "parsing/parser.ml" +# 85443 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 85420 "parsing/parser.ml" +# 85450 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 85426 "parsing/parser.ml" +# 85456 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 85432 "parsing/parser.ml" +# 85462 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 85438 "parsing/parser.ml" +# 85468 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 85447 "parsing/parser.ml" +# 85477 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 85454 "parsing/parser.ml" +# 85484 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 85459 "parsing/parser.ml" +# 85489 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 85469 "parsing/parser.ml" +# 85499 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos_label_) in @@ -85475,13 +85505,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 85479 "parsing/parser.ml" +# 85509 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 85485 "parsing/parser.ml" +# 85515 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -85565,7 +85595,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 85569 "parsing/parser.ml" +# 85599 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -85574,30 +85604,30 @@ module Tables = struct let _1 = let codomain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 85580 "parsing/parser.ml" +# 85610 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 85585 "parsing/parser.ml" +# 85615 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 85594 "parsing/parser.ml" +# 85624 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 85601 "parsing/parser.ml" +# 85631 "parsing/parser.ml" in let ty = let _startpos__1_ = _startpos__1_inlined1_ in @@ -85609,24 +85639,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 85613 "parsing/parser.ml" +# 85643 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 85618 "parsing/parser.ml" +# 85648 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 85624 "parsing/parser.ml" +# 85654 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 85630 "parsing/parser.ml" +# 85660 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -85636,20 +85666,20 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 85640 "parsing/parser.ml" +# 85670 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 85646 "parsing/parser.ml" +# 85676 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 85653 "parsing/parser.ml" +# 85683 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_inlined1_) in @@ -85659,47 +85689,47 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 85665 "parsing/parser.ml" +# 85695 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 85671 "parsing/parser.ml" +# 85701 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 85681 "parsing/parser.ml" +# 85711 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 85688 "parsing/parser.ml" +# 85718 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 85693 "parsing/parser.ml" +# 85723 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 85703 "parsing/parser.ml" +# 85733 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_label_) in @@ -85709,13 +85739,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 85713 "parsing/parser.ml" +# 85743 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 85719 "parsing/parser.ml" +# 85749 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -85806,7 +85836,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 85810 "parsing/parser.ml" +# 85840 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -85816,30 +85846,30 @@ module Tables = struct let codomain_with_modes = let _1 = _1_inlined2 in let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 85822 "parsing/parser.ml" +# 85852 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 85827 "parsing/parser.ml" +# 85857 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 85836 "parsing/parser.ml" +# 85866 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 85843 "parsing/parser.ml" +# 85873 "parsing/parser.ml" in let ty = let _startpos__1_ = _startpos__1_inlined1_ in @@ -85851,24 +85881,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 85855 "parsing/parser.ml" +# 85885 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 85860 "parsing/parser.ml" +# 85890 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 85866 "parsing/parser.ml" +# 85896 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 85872 "parsing/parser.ml" +# 85902 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -85878,20 +85908,20 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 85882 "parsing/parser.ml" +# 85912 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 85888 "parsing/parser.ml" +# 85918 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 85895 "parsing/parser.ml" +# 85925 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_inlined1_) in @@ -85901,47 +85931,47 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 85907 "parsing/parser.ml" +# 85937 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 85913 "parsing/parser.ml" +# 85943 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 85923 "parsing/parser.ml" +# 85953 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 85930 "parsing/parser.ml" +# 85960 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 85935 "parsing/parser.ml" +# 85965 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 85945 "parsing/parser.ml" +# 85975 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos_label_) in @@ -85951,13 +85981,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 85955 "parsing/parser.ml" +# 85985 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 85961 "parsing/parser.ml" +# 85991 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -86048,7 +86078,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 86052 "parsing/parser.ml" +# 86082 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -86058,9 +86088,9 @@ module Tables = struct let codomain_with_modes = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 86064 "parsing/parser.ml" +# 86094 "parsing/parser.ml" in let m0 = let _1 = @@ -86068,32 +86098,32 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 86074 "parsing/parser.ml" +# 86104 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 86080 "parsing/parser.ml" +# 86110 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 86090 "parsing/parser.ml" +# 86120 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 86097 "parsing/parser.ml" +# 86127 "parsing/parser.ml" in let ty = let _startpos__1_ = _startpos__1_inlined1_ in @@ -86105,24 +86135,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 86109 "parsing/parser.ml" +# 86139 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 86114 "parsing/parser.ml" +# 86144 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 86120 "parsing/parser.ml" +# 86150 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 86126 "parsing/parser.ml" +# 86156 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -86132,20 +86162,20 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 86136 "parsing/parser.ml" +# 86166 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 86142 "parsing/parser.ml" +# 86172 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 86149 "parsing/parser.ml" +# 86179 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_inlined1_) in @@ -86155,47 +86185,47 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 86161 "parsing/parser.ml" +# 86191 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 86167 "parsing/parser.ml" +# 86197 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 86177 "parsing/parser.ml" +# 86207 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 86184 "parsing/parser.ml" +# 86214 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 86189 "parsing/parser.ml" +# 86219 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 86199 "parsing/parser.ml" +# 86229 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_label_) in @@ -86205,13 +86235,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 86209 "parsing/parser.ml" +# 86239 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 86215 "parsing/parser.ml" +# 86245 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -86309,7 +86339,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 86313 "parsing/parser.ml" +# 86343 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -86321,9 +86351,9 @@ module Tables = struct let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 86327 "parsing/parser.ml" +# 86357 "parsing/parser.ml" in let m0 = @@ -86332,32 +86362,32 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 86338 "parsing/parser.ml" +# 86368 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 86344 "parsing/parser.ml" +# 86374 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 86354 "parsing/parser.ml" +# 86384 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 86361 "parsing/parser.ml" +# 86391 "parsing/parser.ml" in let ty = let _startpos__1_ = _startpos__1_inlined1_ in @@ -86369,24 +86399,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 86373 "parsing/parser.ml" +# 86403 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 86378 "parsing/parser.ml" +# 86408 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 86384 "parsing/parser.ml" +# 86414 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 86390 "parsing/parser.ml" +# 86420 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -86396,20 +86426,20 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 86400 "parsing/parser.ml" +# 86430 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 86406 "parsing/parser.ml" +# 86436 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 86413 "parsing/parser.ml" +# 86443 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_inlined1_) in @@ -86419,47 +86449,47 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 86425 "parsing/parser.ml" +# 86455 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 86431 "parsing/parser.ml" +# 86461 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 86441 "parsing/parser.ml" +# 86471 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 86448 "parsing/parser.ml" +# 86478 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 86453 "parsing/parser.ml" +# 86483 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 86463 "parsing/parser.ml" +# 86493 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined3_, _startpos_label_) in @@ -86469,13 +86499,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 86473 "parsing/parser.ml" +# 86503 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 86479 "parsing/parser.ml" +# 86509 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -86566,7 +86596,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 86570 "parsing/parser.ml" +# 86600 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -86575,32 +86605,32 @@ module Tables = struct let _1 = let codomain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 86581 "parsing/parser.ml" +# 86611 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 86586 "parsing/parser.ml" +# 86616 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 86595 "parsing/parser.ml" +# 86625 "parsing/parser.ml" in let domain_with_modes = let m1 = let _1 = _1_inlined2 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 86604 "parsing/parser.ml" +# 86634 "parsing/parser.ml" in let ty = @@ -86613,24 +86643,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 86617 "parsing/parser.ml" +# 86647 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 86622 "parsing/parser.ml" +# 86652 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 86628 "parsing/parser.ml" +# 86658 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 86634 "parsing/parser.ml" +# 86664 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -86640,20 +86670,20 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 86644 "parsing/parser.ml" +# 86674 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 86650 "parsing/parser.ml" +# 86680 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 86657 "parsing/parser.ml" +# 86687 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_inlined1_) in @@ -86663,47 +86693,47 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 86669 "parsing/parser.ml" +# 86699 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 86675 "parsing/parser.ml" +# 86705 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 86685 "parsing/parser.ml" +# 86715 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 86692 "parsing/parser.ml" +# 86722 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 86697 "parsing/parser.ml" +# 86727 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 86707 "parsing/parser.ml" +# 86737 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_label_) in @@ -86713,13 +86743,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 86717 "parsing/parser.ml" +# 86747 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 86723 "parsing/parser.ml" +# 86753 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -86817,7 +86847,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 86821 "parsing/parser.ml" +# 86851 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -86827,32 +86857,32 @@ module Tables = struct let codomain_with_modes = let _1 = _1_inlined3 in let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 86833 "parsing/parser.ml" +# 86863 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 86838 "parsing/parser.ml" +# 86868 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 86847 "parsing/parser.ml" +# 86877 "parsing/parser.ml" in let domain_with_modes = let m1 = let _1 = _1_inlined2 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 86856 "parsing/parser.ml" +# 86886 "parsing/parser.ml" in let ty = @@ -86865,24 +86895,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 86869 "parsing/parser.ml" +# 86899 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 86874 "parsing/parser.ml" +# 86904 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 86880 "parsing/parser.ml" +# 86910 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 86886 "parsing/parser.ml" +# 86916 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -86892,20 +86922,20 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 86896 "parsing/parser.ml" +# 86926 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 86902 "parsing/parser.ml" +# 86932 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 86909 "parsing/parser.ml" +# 86939 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_inlined1_) in @@ -86915,47 +86945,47 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 86921 "parsing/parser.ml" +# 86951 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 86927 "parsing/parser.ml" +# 86957 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 86937 "parsing/parser.ml" +# 86967 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 86944 "parsing/parser.ml" +# 86974 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 86949 "parsing/parser.ml" +# 86979 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 86959 "parsing/parser.ml" +# 86989 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined3_, _startpos_label_) in @@ -86965,13 +86995,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 86969 "parsing/parser.ml" +# 86999 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 86975 "parsing/parser.ml" +# 87005 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -87069,7 +87099,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 87073 "parsing/parser.ml" +# 87103 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -87079,9 +87109,9 @@ module Tables = struct let codomain_with_modes = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 87085 "parsing/parser.ml" +# 87115 "parsing/parser.ml" in let m0 = let _1 = @@ -87089,34 +87119,34 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 87095 "parsing/parser.ml" +# 87125 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 87101 "parsing/parser.ml" +# 87131 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 87111 "parsing/parser.ml" +# 87141 "parsing/parser.ml" in let domain_with_modes = let m1 = let _1 = _1_inlined2 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 87120 "parsing/parser.ml" +# 87150 "parsing/parser.ml" in let ty = @@ -87129,24 +87159,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 87133 "parsing/parser.ml" +# 87163 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 87138 "parsing/parser.ml" +# 87168 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 87144 "parsing/parser.ml" +# 87174 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 87150 "parsing/parser.ml" +# 87180 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -87156,20 +87186,20 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 87160 "parsing/parser.ml" +# 87190 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 87166 "parsing/parser.ml" +# 87196 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 87173 "parsing/parser.ml" +# 87203 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_inlined1_) in @@ -87179,47 +87209,47 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 87185 "parsing/parser.ml" +# 87215 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 87191 "parsing/parser.ml" +# 87221 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 87201 "parsing/parser.ml" +# 87231 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 87208 "parsing/parser.ml" +# 87238 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 87213 "parsing/parser.ml" +# 87243 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 87223 "parsing/parser.ml" +# 87253 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_label_) in @@ -87229,13 +87259,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 87233 "parsing/parser.ml" +# 87263 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 87239 "parsing/parser.ml" +# 87269 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -87340,7 +87370,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 87344 "parsing/parser.ml" +# 87374 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -87352,9 +87382,9 @@ module Tables = struct let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 87358 "parsing/parser.ml" +# 87388 "parsing/parser.ml" in let m0 = @@ -87363,34 +87393,34 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 87369 "parsing/parser.ml" +# 87399 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 87375 "parsing/parser.ml" +# 87405 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 87385 "parsing/parser.ml" +# 87415 "parsing/parser.ml" in let domain_with_modes = let m1 = let _1 = _1_inlined2 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 87394 "parsing/parser.ml" +# 87424 "parsing/parser.ml" in let ty = @@ -87403,24 +87433,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 87407 "parsing/parser.ml" +# 87437 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 87412 "parsing/parser.ml" +# 87442 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 87418 "parsing/parser.ml" +# 87448 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 87424 "parsing/parser.ml" +# 87454 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -87430,20 +87460,20 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 87434 "parsing/parser.ml" +# 87464 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 87440 "parsing/parser.ml" +# 87470 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 87447 "parsing/parser.ml" +# 87477 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_inlined1_) in @@ -87453,47 +87483,47 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 87459 "parsing/parser.ml" +# 87489 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 87465 "parsing/parser.ml" +# 87495 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 87475 "parsing/parser.ml" +# 87505 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 87482 "parsing/parser.ml" +# 87512 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 87487 "parsing/parser.ml" +# 87517 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 87497 "parsing/parser.ml" +# 87527 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined4_, _startpos_label_) in @@ -87503,13 +87533,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 87507 "parsing/parser.ml" +# 87537 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 87513 "parsing/parser.ml" +# 87543 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -87565,7 +87595,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 87569 "parsing/parser.ml" +# 87599 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -87575,42 +87605,42 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, ty) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, ty_inlined1) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 87581 "parsing/parser.ml" +# 87611 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 87586 "parsing/parser.ml" +# 87616 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 87595 "parsing/parser.ml" +# 87625 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 87602 "parsing/parser.ml" +# 87632 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 87608 "parsing/parser.ml" +# 87638 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 87614 "parsing/parser.ml" +# 87644 "parsing/parser.ml" in let m0 = @@ -87619,47 +87649,47 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 87625 "parsing/parser.ml" +# 87655 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 87631 "parsing/parser.ml" +# 87661 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 87641 "parsing/parser.ml" +# 87671 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 87648 "parsing/parser.ml" +# 87678 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 87653 "parsing/parser.ml" +# 87683 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 87663 "parsing/parser.ml" +# 87693 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_inlined1_, _startpos_label_) in @@ -87669,13 +87699,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 87673 "parsing/parser.ml" +# 87703 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 87679 "parsing/parser.ml" +# 87709 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -87738,7 +87768,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 87742 "parsing/parser.ml" +# 87772 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -87748,42 +87778,42 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, _1, ty) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, _1_inlined1, ty_inlined1) in let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 87754 "parsing/parser.ml" +# 87784 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 87759 "parsing/parser.ml" +# 87789 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 87768 "parsing/parser.ml" +# 87798 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 87775 "parsing/parser.ml" +# 87805 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 87781 "parsing/parser.ml" +# 87811 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 87787 "parsing/parser.ml" +# 87817 "parsing/parser.ml" in let m0 = @@ -87792,47 +87822,47 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 87798 "parsing/parser.ml" +# 87828 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 87804 "parsing/parser.ml" +# 87834 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 87814 "parsing/parser.ml" +# 87844 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 87821 "parsing/parser.ml" +# 87851 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 87826 "parsing/parser.ml" +# 87856 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 87836 "parsing/parser.ml" +# 87866 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_label_) in @@ -87842,13 +87872,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 87846 "parsing/parser.ml" +# 87876 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 87852 "parsing/parser.ml" +# 87882 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -87911,7 +87941,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 87915 "parsing/parser.ml" +# 87945 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -87921,9 +87951,9 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, _endpos__1_, _startpos__1_, ty, _1) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, _endpos__1_inlined1_, _startpos__1_inlined1_, ty_inlined1, _1_inlined1) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 87927 "parsing/parser.ml" +# 87957 "parsing/parser.ml" in let m0 = let _1 = @@ -87931,44 +87961,44 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 87937 "parsing/parser.ml" +# 87967 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 87943 "parsing/parser.ml" +# 87973 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 87953 "parsing/parser.ml" +# 87983 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 87960 "parsing/parser.ml" +# 87990 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 87966 "parsing/parser.ml" +# 87996 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 87972 "parsing/parser.ml" +# 88002 "parsing/parser.ml" in let m0 = @@ -87977,47 +88007,47 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 87983 "parsing/parser.ml" +# 88013 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 87989 "parsing/parser.ml" +# 88019 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 87999 "parsing/parser.ml" +# 88029 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 88006 "parsing/parser.ml" +# 88036 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 88011 "parsing/parser.ml" +# 88041 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 88021 "parsing/parser.ml" +# 88051 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_inlined1_, _startpos_label_) in @@ -88027,13 +88057,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 88031 "parsing/parser.ml" +# 88061 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 88037 "parsing/parser.ml" +# 88067 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -88103,7 +88133,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 88107 "parsing/parser.ml" +# 88137 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -88115,9 +88145,9 @@ module Tables = struct let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 88121 "parsing/parser.ml" +# 88151 "parsing/parser.ml" in let m0 = @@ -88126,44 +88156,44 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 88132 "parsing/parser.ml" +# 88162 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 88138 "parsing/parser.ml" +# 88168 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 88148 "parsing/parser.ml" +# 88178 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 88155 "parsing/parser.ml" +# 88185 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 88161 "parsing/parser.ml" +# 88191 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 88167 "parsing/parser.ml" +# 88197 "parsing/parser.ml" in let m0 = @@ -88172,47 +88202,47 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 88178 "parsing/parser.ml" +# 88208 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 88184 "parsing/parser.ml" +# 88214 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 88194 "parsing/parser.ml" +# 88224 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 88201 "parsing/parser.ml" +# 88231 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 88206 "parsing/parser.ml" +# 88236 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 88216 "parsing/parser.ml" +# 88246 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos_label_) in @@ -88222,13 +88252,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 88226 "parsing/parser.ml" +# 88256 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 88232 "parsing/parser.ml" +# 88262 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -88291,7 +88321,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 88295 "parsing/parser.ml" +# 88325 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -88301,45 +88331,45 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, ty) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, ty_inlined1) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 88307 "parsing/parser.ml" +# 88337 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 88312 "parsing/parser.ml" +# 88342 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 88321 "parsing/parser.ml" +# 88351 "parsing/parser.ml" in let domain_with_modes = let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 88330 "parsing/parser.ml" +# 88360 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 88337 "parsing/parser.ml" +# 88367 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 88343 "parsing/parser.ml" +# 88373 "parsing/parser.ml" in let m0 = @@ -88348,47 +88378,47 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 88354 "parsing/parser.ml" +# 88384 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 88360 "parsing/parser.ml" +# 88390 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 88370 "parsing/parser.ml" +# 88400 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 88377 "parsing/parser.ml" +# 88407 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 88382 "parsing/parser.ml" +# 88412 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 88392 "parsing/parser.ml" +# 88422 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_inlined1_, _startpos_label_) in @@ -88398,13 +88428,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 88402 "parsing/parser.ml" +# 88432 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 88408 "parsing/parser.ml" +# 88438 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -88474,7 +88504,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 88478 "parsing/parser.ml" +# 88508 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -88484,45 +88514,45 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, _1, ty) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, _1_inlined2, ty_inlined1) in let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 88490 "parsing/parser.ml" +# 88520 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 88495 "parsing/parser.ml" +# 88525 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 88504 "parsing/parser.ml" +# 88534 "parsing/parser.ml" in let domain_with_modes = let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 88513 "parsing/parser.ml" +# 88543 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 88520 "parsing/parser.ml" +# 88550 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 88526 "parsing/parser.ml" +# 88556 "parsing/parser.ml" in let m0 = @@ -88531,47 +88561,47 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 88537 "parsing/parser.ml" +# 88567 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 88543 "parsing/parser.ml" +# 88573 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 88553 "parsing/parser.ml" +# 88583 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 88560 "parsing/parser.ml" +# 88590 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 88565 "parsing/parser.ml" +# 88595 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 88575 "parsing/parser.ml" +# 88605 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos_label_) in @@ -88581,13 +88611,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 88585 "parsing/parser.ml" +# 88615 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 88591 "parsing/parser.ml" +# 88621 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -88657,7 +88687,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 88661 "parsing/parser.ml" +# 88691 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -88667,9 +88697,9 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, _endpos__1_, _startpos__1_, ty, _1) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, _endpos__1_inlined2_, _startpos__1_inlined2_, ty_inlined1, _1_inlined2) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 88673 "parsing/parser.ml" +# 88703 "parsing/parser.ml" in let m0 = let _1 = @@ -88677,47 +88707,47 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 88683 "parsing/parser.ml" +# 88713 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 88689 "parsing/parser.ml" +# 88719 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 88699 "parsing/parser.ml" +# 88729 "parsing/parser.ml" in let domain_with_modes = let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 88708 "parsing/parser.ml" +# 88738 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 88715 "parsing/parser.ml" +# 88745 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 88721 "parsing/parser.ml" +# 88751 "parsing/parser.ml" in let m0 = @@ -88726,47 +88756,47 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 88732 "parsing/parser.ml" +# 88762 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 88738 "parsing/parser.ml" +# 88768 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 88748 "parsing/parser.ml" +# 88778 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 88755 "parsing/parser.ml" +# 88785 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 88760 "parsing/parser.ml" +# 88790 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 88770 "parsing/parser.ml" +# 88800 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_inlined1_, _startpos_label_) in @@ -88776,13 +88806,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 88780 "parsing/parser.ml" +# 88810 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 88786 "parsing/parser.ml" +# 88816 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -88859,7 +88889,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 88863 "parsing/parser.ml" +# 88893 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -88871,9 +88901,9 @@ module Tables = struct let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 88877 "parsing/parser.ml" +# 88907 "parsing/parser.ml" in let m0 = @@ -88882,47 +88912,47 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 88888 "parsing/parser.ml" +# 88918 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 88894 "parsing/parser.ml" +# 88924 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 88904 "parsing/parser.ml" +# 88934 "parsing/parser.ml" in let domain_with_modes = let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 88913 "parsing/parser.ml" +# 88943 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 88920 "parsing/parser.ml" +# 88950 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 88926 "parsing/parser.ml" +# 88956 "parsing/parser.ml" in let m0 = @@ -88931,47 +88961,47 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 88937 "parsing/parser.ml" +# 88967 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 88943 "parsing/parser.ml" +# 88973 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 88953 "parsing/parser.ml" +# 88983 "parsing/parser.ml" in let label = let _1 = -# 4354 "parsing/parser.mly" +# 4355 "parsing/parser.mly" ( Labelled label ) -# 88960 "parsing/parser.ml" +# 88990 "parsing/parser.ml" in -# 4359 "parsing/parser.mly" +# 4360 "parsing/parser.mly" ( _1 ) -# 88965 "parsing/parser.ml" +# 88995 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 88975 "parsing/parser.ml" +# 89005 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined3_, _startpos_label_) in @@ -88981,13 +89011,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 88985 "parsing/parser.ml" +# 89015 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 88991 "parsing/parser.ml" +# 89021 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -89055,30 +89085,30 @@ module Tables = struct let _1 = let codomain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 89061 "parsing/parser.ml" +# 89091 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 89066 "parsing/parser.ml" +# 89096 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 89075 "parsing/parser.ml" +# 89105 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 89082 "parsing/parser.ml" +# 89112 "parsing/parser.ml" in let ty = let _1 = @@ -89089,24 +89119,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 89093 "parsing/parser.ml" +# 89123 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 89098 "parsing/parser.ml" +# 89128 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 89104 "parsing/parser.ml" +# 89134 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 89110 "parsing/parser.ml" +# 89140 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -89116,51 +89146,51 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 89120 "parsing/parser.ml" +# 89150 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 89126 "parsing/parser.ml" +# 89156 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 89133 "parsing/parser.ml" +# 89163 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_) in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 89140 "parsing/parser.ml" +# 89170 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 89149 "parsing/parser.ml" +# 89179 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 89155 "parsing/parser.ml" +# 89185 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 89164 "parsing/parser.ml" +# 89194 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in @@ -89170,13 +89200,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 89174 "parsing/parser.ml" +# 89204 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 89180 "parsing/parser.ml" +# 89210 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -89252,30 +89282,30 @@ module Tables = struct let codomain_with_modes = let _1 = _1_inlined1 in let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 89258 "parsing/parser.ml" +# 89288 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 89263 "parsing/parser.ml" +# 89293 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 89272 "parsing/parser.ml" +# 89302 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 89279 "parsing/parser.ml" +# 89309 "parsing/parser.ml" in let ty = let _1 = @@ -89286,24 +89316,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 89290 "parsing/parser.ml" +# 89320 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 89295 "parsing/parser.ml" +# 89325 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 89301 "parsing/parser.ml" +# 89331 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 89307 "parsing/parser.ml" +# 89337 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -89313,51 +89343,51 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 89317 "parsing/parser.ml" +# 89347 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 89323 "parsing/parser.ml" +# 89353 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 89330 "parsing/parser.ml" +# 89360 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_) in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 89337 "parsing/parser.ml" +# 89367 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 89346 "parsing/parser.ml" +# 89376 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 89352 "parsing/parser.ml" +# 89382 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 89361 "parsing/parser.ml" +# 89391 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -89367,13 +89397,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 89371 "parsing/parser.ml" +# 89401 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 89377 "parsing/parser.ml" +# 89407 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -89449,9 +89479,9 @@ module Tables = struct let codomain_with_modes = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 89455 "parsing/parser.ml" +# 89485 "parsing/parser.ml" in let m0 = let _1 = @@ -89459,32 +89489,32 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 89465 "parsing/parser.ml" +# 89495 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 89471 "parsing/parser.ml" +# 89501 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 89481 "parsing/parser.ml" +# 89511 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 89488 "parsing/parser.ml" +# 89518 "parsing/parser.ml" in let ty = let _1 = @@ -89495,24 +89525,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 89499 "parsing/parser.ml" +# 89529 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 89504 "parsing/parser.ml" +# 89534 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 89510 "parsing/parser.ml" +# 89540 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 89516 "parsing/parser.ml" +# 89546 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -89522,51 +89552,51 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 89526 "parsing/parser.ml" +# 89556 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 89532 "parsing/parser.ml" +# 89562 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 89539 "parsing/parser.ml" +# 89569 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_) in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 89546 "parsing/parser.ml" +# 89576 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 89555 "parsing/parser.ml" +# 89585 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 89561 "parsing/parser.ml" +# 89591 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 89570 "parsing/parser.ml" +# 89600 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in @@ -89576,13 +89606,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 89580 "parsing/parser.ml" +# 89610 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 89586 "parsing/parser.ml" +# 89616 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -89667,9 +89697,9 @@ module Tables = struct let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 89673 "parsing/parser.ml" +# 89703 "parsing/parser.ml" in let m0 = @@ -89678,32 +89708,32 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 89684 "parsing/parser.ml" +# 89714 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 89690 "parsing/parser.ml" +# 89720 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 89700 "parsing/parser.ml" +# 89730 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 89707 "parsing/parser.ml" +# 89737 "parsing/parser.ml" in let ty = let _1 = @@ -89714,24 +89744,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 89718 "parsing/parser.ml" +# 89748 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 89723 "parsing/parser.ml" +# 89753 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 89729 "parsing/parser.ml" +# 89759 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 89735 "parsing/parser.ml" +# 89765 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -89741,51 +89771,51 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 89745 "parsing/parser.ml" +# 89775 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 89751 "parsing/parser.ml" +# 89781 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 89758 "parsing/parser.ml" +# 89788 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_) in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 89765 "parsing/parser.ml" +# 89795 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 89774 "parsing/parser.ml" +# 89804 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 89780 "parsing/parser.ml" +# 89810 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 89789 "parsing/parser.ml" +# 89819 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined2_ in @@ -89795,13 +89825,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 89799 "parsing/parser.ml" +# 89829 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 89805 "parsing/parser.ml" +# 89835 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -89876,32 +89906,32 @@ module Tables = struct let _1 = let codomain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 89882 "parsing/parser.ml" +# 89912 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 89887 "parsing/parser.ml" +# 89917 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 89896 "parsing/parser.ml" +# 89926 "parsing/parser.ml" in let domain_with_modes = let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 89905 "parsing/parser.ml" +# 89935 "parsing/parser.ml" in let ty = @@ -89913,24 +89943,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 89917 "parsing/parser.ml" +# 89947 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 89922 "parsing/parser.ml" +# 89952 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 89928 "parsing/parser.ml" +# 89958 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 89934 "parsing/parser.ml" +# 89964 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -89940,51 +89970,51 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 89944 "parsing/parser.ml" +# 89974 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 89950 "parsing/parser.ml" +# 89980 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 89957 "parsing/parser.ml" +# 89987 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_) in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 89964 "parsing/parser.ml" +# 89994 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 89973 "parsing/parser.ml" +# 90003 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 89979 "parsing/parser.ml" +# 90009 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 89988 "parsing/parser.ml" +# 90018 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in @@ -89994,13 +90024,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 89998 "parsing/parser.ml" +# 90028 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 90004 "parsing/parser.ml" +# 90034 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -90083,32 +90113,32 @@ module Tables = struct let codomain_with_modes = let _1 = _1_inlined2 in let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 90089 "parsing/parser.ml" +# 90119 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 90094 "parsing/parser.ml" +# 90124 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 90103 "parsing/parser.ml" +# 90133 "parsing/parser.ml" in let domain_with_modes = let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 90112 "parsing/parser.ml" +# 90142 "parsing/parser.ml" in let ty = @@ -90120,24 +90150,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 90124 "parsing/parser.ml" +# 90154 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 90129 "parsing/parser.ml" +# 90159 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 90135 "parsing/parser.ml" +# 90165 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 90141 "parsing/parser.ml" +# 90171 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -90147,51 +90177,51 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 90151 "parsing/parser.ml" +# 90181 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 90157 "parsing/parser.ml" +# 90187 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 90164 "parsing/parser.ml" +# 90194 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_) in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 90171 "parsing/parser.ml" +# 90201 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 90180 "parsing/parser.ml" +# 90210 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 90186 "parsing/parser.ml" +# 90216 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 90195 "parsing/parser.ml" +# 90225 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined2_ in @@ -90201,13 +90231,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 90205 "parsing/parser.ml" +# 90235 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 90211 "parsing/parser.ml" +# 90241 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -90290,9 +90320,9 @@ module Tables = struct let codomain_with_modes = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 90296 "parsing/parser.ml" +# 90326 "parsing/parser.ml" in let m0 = let _1 = @@ -90300,34 +90330,34 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 90306 "parsing/parser.ml" +# 90336 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 90312 "parsing/parser.ml" +# 90342 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 90322 "parsing/parser.ml" +# 90352 "parsing/parser.ml" in let domain_with_modes = let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 90331 "parsing/parser.ml" +# 90361 "parsing/parser.ml" in let ty = @@ -90339,24 +90369,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 90343 "parsing/parser.ml" +# 90373 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 90348 "parsing/parser.ml" +# 90378 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 90354 "parsing/parser.ml" +# 90384 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 90360 "parsing/parser.ml" +# 90390 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -90366,51 +90396,51 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 90370 "parsing/parser.ml" +# 90400 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 90376 "parsing/parser.ml" +# 90406 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 90383 "parsing/parser.ml" +# 90413 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_) in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 90390 "parsing/parser.ml" +# 90420 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 90399 "parsing/parser.ml" +# 90429 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 90405 "parsing/parser.ml" +# 90435 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 90414 "parsing/parser.ml" +# 90444 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in @@ -90420,13 +90450,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 90424 "parsing/parser.ml" +# 90454 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 90430 "parsing/parser.ml" +# 90460 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -90518,9 +90548,9 @@ module Tables = struct let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 90524 "parsing/parser.ml" +# 90554 "parsing/parser.ml" in let m0 = @@ -90529,34 +90559,34 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 90535 "parsing/parser.ml" +# 90565 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 90541 "parsing/parser.ml" +# 90571 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 90551 "parsing/parser.ml" +# 90581 "parsing/parser.ml" in let domain_with_modes = let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 90560 "parsing/parser.ml" +# 90590 "parsing/parser.ml" in let ty = @@ -90568,24 +90598,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 90572 "parsing/parser.ml" +# 90602 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 90577 "parsing/parser.ml" +# 90607 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 90583 "parsing/parser.ml" +# 90613 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 90589 "parsing/parser.ml" +# 90619 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -90595,51 +90625,51 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 90599 "parsing/parser.ml" +# 90629 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 90605 "parsing/parser.ml" +# 90635 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 90612 "parsing/parser.ml" +# 90642 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_) in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 90619 "parsing/parser.ml" +# 90649 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 90628 "parsing/parser.ml" +# 90658 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 90634 "parsing/parser.ml" +# 90664 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 90643 "parsing/parser.ml" +# 90673 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined3_ in @@ -90649,13 +90679,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 90653 "parsing/parser.ml" +# 90683 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 90659 "parsing/parser.ml" +# 90689 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -90696,72 +90726,72 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, ty) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, ty_inlined1) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 90702 "parsing/parser.ml" +# 90732 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 90707 "parsing/parser.ml" +# 90737 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 90716 "parsing/parser.ml" +# 90746 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 90723 "parsing/parser.ml" +# 90753 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 90729 "parsing/parser.ml" +# 90759 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 90735 "parsing/parser.ml" +# 90765 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 90741 "parsing/parser.ml" +# 90771 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 90750 "parsing/parser.ml" +# 90780 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 90756 "parsing/parser.ml" +# 90786 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 90765 "parsing/parser.ml" +# 90795 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_inlined1_, _startpos_ty_) in @@ -90771,13 +90801,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 90775 "parsing/parser.ml" +# 90805 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 90781 "parsing/parser.ml" +# 90811 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -90825,72 +90855,72 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, ty) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, ty_inlined1) in let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 90831 "parsing/parser.ml" +# 90861 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 90836 "parsing/parser.ml" +# 90866 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 90845 "parsing/parser.ml" +# 90875 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 90852 "parsing/parser.ml" +# 90882 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 90858 "parsing/parser.ml" +# 90888 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 90864 "parsing/parser.ml" +# 90894 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 90870 "parsing/parser.ml" +# 90900 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 90879 "parsing/parser.ml" +# 90909 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 90885 "parsing/parser.ml" +# 90915 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 90894 "parsing/parser.ml" +# 90924 "parsing/parser.ml" in let _startpos__1_ = _startpos_ty_ in @@ -90900,13 +90930,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 90904 "parsing/parser.ml" +# 90934 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 90910 "parsing/parser.ml" +# 90940 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -90954,9 +90984,9 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, ty) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, ty_inlined1) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 90960 "parsing/parser.ml" +# 90990 "parsing/parser.ml" in let m0 = let _1 = @@ -90964,74 +90994,74 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 90970 "parsing/parser.ml" +# 91000 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 90976 "parsing/parser.ml" +# 91006 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 90986 "parsing/parser.ml" +# 91016 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 90993 "parsing/parser.ml" +# 91023 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 90999 "parsing/parser.ml" +# 91029 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 91005 "parsing/parser.ml" +# 91035 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 91011 "parsing/parser.ml" +# 91041 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 91020 "parsing/parser.ml" +# 91050 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 91026 "parsing/parser.ml" +# 91056 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 91035 "parsing/parser.ml" +# 91065 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_inlined1_, _startpos_ty_) in @@ -91041,13 +91071,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 91045 "parsing/parser.ml" +# 91075 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 91051 "parsing/parser.ml" +# 91081 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -91104,9 +91134,9 @@ module Tables = struct let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 91110 "parsing/parser.ml" +# 91140 "parsing/parser.ml" in let m0 = @@ -91115,74 +91145,74 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 91121 "parsing/parser.ml" +# 91151 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 91127 "parsing/parser.ml" +# 91157 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 91137 "parsing/parser.ml" +# 91167 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 91144 "parsing/parser.ml" +# 91174 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 91150 "parsing/parser.ml" +# 91180 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 91156 "parsing/parser.ml" +# 91186 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 91162 "parsing/parser.ml" +# 91192 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 91171 "parsing/parser.ml" +# 91201 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 91177 "parsing/parser.ml" +# 91207 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 91186 "parsing/parser.ml" +# 91216 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_ty_) in @@ -91192,13 +91222,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 91196 "parsing/parser.ml" +# 91226 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 91202 "parsing/parser.ml" +# 91232 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -91246,72 +91276,72 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, ty) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, ty_inlined1) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 91252 "parsing/parser.ml" +# 91282 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 91257 "parsing/parser.ml" +# 91287 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 91266 "parsing/parser.ml" +# 91296 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 91273 "parsing/parser.ml" +# 91303 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 91279 "parsing/parser.ml" +# 91309 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 91285 "parsing/parser.ml" +# 91315 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 91291 "parsing/parser.ml" +# 91321 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 91300 "parsing/parser.ml" +# 91330 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 91306 "parsing/parser.ml" +# 91336 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 91315 "parsing/parser.ml" +# 91345 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_inlined1_, _startpos_ty_) in @@ -91321,13 +91351,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 91325 "parsing/parser.ml" +# 91355 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 91331 "parsing/parser.ml" +# 91361 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -91382,72 +91412,72 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, _1, ty) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, _1_inlined1, ty_inlined1) in let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 91388 "parsing/parser.ml" +# 91418 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 91393 "parsing/parser.ml" +# 91423 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 91402 "parsing/parser.ml" +# 91432 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 91409 "parsing/parser.ml" +# 91439 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 91415 "parsing/parser.ml" +# 91445 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 91421 "parsing/parser.ml" +# 91451 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 91427 "parsing/parser.ml" +# 91457 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 91436 "parsing/parser.ml" +# 91466 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 91442 "parsing/parser.ml" +# 91472 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 91451 "parsing/parser.ml" +# 91481 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_ty_) in @@ -91457,13 +91487,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 91461 "parsing/parser.ml" +# 91491 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 91467 "parsing/parser.ml" +# 91497 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -91518,9 +91548,9 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, _endpos__1_, _startpos__1_, ty, _1) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, _endpos__1_inlined1_, _startpos__1_inlined1_, ty_inlined1, _1_inlined1) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 91524 "parsing/parser.ml" +# 91554 "parsing/parser.ml" in let m0 = let _1 = @@ -91528,74 +91558,74 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 91534 "parsing/parser.ml" +# 91564 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 91540 "parsing/parser.ml" +# 91570 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 91550 "parsing/parser.ml" +# 91580 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 91557 "parsing/parser.ml" +# 91587 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 91563 "parsing/parser.ml" +# 91593 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 91569 "parsing/parser.ml" +# 91599 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 91575 "parsing/parser.ml" +# 91605 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 91584 "parsing/parser.ml" +# 91614 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 91590 "parsing/parser.ml" +# 91620 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 91599 "parsing/parser.ml" +# 91629 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_inlined1_, _startpos_ty_) in @@ -91605,13 +91635,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 91609 "parsing/parser.ml" +# 91639 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 91615 "parsing/parser.ml" +# 91645 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -91675,9 +91705,9 @@ module Tables = struct let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 91681 "parsing/parser.ml" +# 91711 "parsing/parser.ml" in let m0 = @@ -91686,74 +91716,74 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 91692 "parsing/parser.ml" +# 91722 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 91698 "parsing/parser.ml" +# 91728 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 91708 "parsing/parser.ml" +# 91738 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 91715 "parsing/parser.ml" +# 91745 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 91721 "parsing/parser.ml" +# 91751 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 91727 "parsing/parser.ml" +# 91757 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 91733 "parsing/parser.ml" +# 91763 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 91742 "parsing/parser.ml" +# 91772 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 91748 "parsing/parser.ml" +# 91778 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 91757 "parsing/parser.ml" +# 91787 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos_ty_) in @@ -91763,13 +91793,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 91767 "parsing/parser.ml" +# 91797 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 91773 "parsing/parser.ml" +# 91803 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -91844,30 +91874,30 @@ module Tables = struct let _1 = let codomain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 91850 "parsing/parser.ml" +# 91880 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 91855 "parsing/parser.ml" +# 91885 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 91864 "parsing/parser.ml" +# 91894 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 91871 "parsing/parser.ml" +# 91901 "parsing/parser.ml" in let ty = let _startpos__1_ = _startpos__1_inlined1_ in @@ -91879,24 +91909,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 91883 "parsing/parser.ml" +# 91913 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 91888 "parsing/parser.ml" +# 91918 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 91894 "parsing/parser.ml" +# 91924 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 91900 "parsing/parser.ml" +# 91930 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -91906,20 +91936,20 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 91910 "parsing/parser.ml" +# 91940 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 91916 "parsing/parser.ml" +# 91946 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 91923 "parsing/parser.ml" +# 91953 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_inlined1_) in @@ -91929,40 +91959,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 91935 "parsing/parser.ml" +# 91965 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 91941 "parsing/parser.ml" +# 91971 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 91951 "parsing/parser.ml" +# 91981 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 91957 "parsing/parser.ml" +# 91987 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 91966 "parsing/parser.ml" +# 91996 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in @@ -91972,13 +92002,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 91976 "parsing/parser.ml" +# 92006 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 91982 "parsing/parser.ml" +# 92012 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -92061,30 +92091,30 @@ module Tables = struct let codomain_with_modes = let _1 = _1_inlined2 in let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 92067 "parsing/parser.ml" +# 92097 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 92072 "parsing/parser.ml" +# 92102 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 92081 "parsing/parser.ml" +# 92111 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 92088 "parsing/parser.ml" +# 92118 "parsing/parser.ml" in let ty = let _startpos__1_ = _startpos__1_inlined1_ in @@ -92096,24 +92126,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 92100 "parsing/parser.ml" +# 92130 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 92105 "parsing/parser.ml" +# 92135 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 92111 "parsing/parser.ml" +# 92141 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 92117 "parsing/parser.ml" +# 92147 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -92123,20 +92153,20 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 92127 "parsing/parser.ml" +# 92157 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 92133 "parsing/parser.ml" +# 92163 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 92140 "parsing/parser.ml" +# 92170 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_inlined1_) in @@ -92146,40 +92176,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 92152 "parsing/parser.ml" +# 92182 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 92158 "parsing/parser.ml" +# 92188 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 92168 "parsing/parser.ml" +# 92198 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 92174 "parsing/parser.ml" +# 92204 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 92183 "parsing/parser.ml" +# 92213 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined2_ in @@ -92189,13 +92219,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 92193 "parsing/parser.ml" +# 92223 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 92199 "parsing/parser.ml" +# 92229 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -92278,9 +92308,9 @@ module Tables = struct let codomain_with_modes = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 92284 "parsing/parser.ml" +# 92314 "parsing/parser.ml" in let m0 = let _1 = @@ -92288,32 +92318,32 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 92294 "parsing/parser.ml" +# 92324 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 92300 "parsing/parser.ml" +# 92330 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 92310 "parsing/parser.ml" +# 92340 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 92317 "parsing/parser.ml" +# 92347 "parsing/parser.ml" in let ty = let _startpos__1_ = _startpos__1_inlined1_ in @@ -92325,24 +92355,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 92329 "parsing/parser.ml" +# 92359 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 92334 "parsing/parser.ml" +# 92364 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 92340 "parsing/parser.ml" +# 92370 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 92346 "parsing/parser.ml" +# 92376 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -92352,20 +92382,20 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 92356 "parsing/parser.ml" +# 92386 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 92362 "parsing/parser.ml" +# 92392 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 92369 "parsing/parser.ml" +# 92399 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_inlined1_) in @@ -92375,40 +92405,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 92381 "parsing/parser.ml" +# 92411 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 92387 "parsing/parser.ml" +# 92417 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 92397 "parsing/parser.ml" +# 92427 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 92403 "parsing/parser.ml" +# 92433 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 92412 "parsing/parser.ml" +# 92442 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in @@ -92418,13 +92448,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 92422 "parsing/parser.ml" +# 92452 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 92428 "parsing/parser.ml" +# 92458 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -92516,9 +92546,9 @@ module Tables = struct let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 92522 "parsing/parser.ml" +# 92552 "parsing/parser.ml" in let m0 = @@ -92527,32 +92557,32 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 92533 "parsing/parser.ml" +# 92563 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 92539 "parsing/parser.ml" +# 92569 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 92549 "parsing/parser.ml" +# 92579 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 92556 "parsing/parser.ml" +# 92586 "parsing/parser.ml" in let ty = let _startpos__1_ = _startpos__1_inlined1_ in @@ -92564,24 +92594,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 92568 "parsing/parser.ml" +# 92598 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 92573 "parsing/parser.ml" +# 92603 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 92579 "parsing/parser.ml" +# 92609 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 92585 "parsing/parser.ml" +# 92615 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -92591,20 +92621,20 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 92595 "parsing/parser.ml" +# 92625 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 92601 "parsing/parser.ml" +# 92631 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 92608 "parsing/parser.ml" +# 92638 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_inlined1_) in @@ -92614,40 +92644,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 92620 "parsing/parser.ml" +# 92650 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 92626 "parsing/parser.ml" +# 92656 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 92636 "parsing/parser.ml" +# 92666 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 92642 "parsing/parser.ml" +# 92672 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 92651 "parsing/parser.ml" +# 92681 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined3_ in @@ -92657,13 +92687,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 92661 "parsing/parser.ml" +# 92691 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 92667 "parsing/parser.ml" +# 92697 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -92745,32 +92775,32 @@ module Tables = struct let _1 = let codomain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 92751 "parsing/parser.ml" +# 92781 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 92756 "parsing/parser.ml" +# 92786 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 92765 "parsing/parser.ml" +# 92795 "parsing/parser.ml" in let domain_with_modes = let m1 = let _1 = _1_inlined2 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 92774 "parsing/parser.ml" +# 92804 "parsing/parser.ml" in let ty = @@ -92783,24 +92813,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 92787 "parsing/parser.ml" +# 92817 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 92792 "parsing/parser.ml" +# 92822 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 92798 "parsing/parser.ml" +# 92828 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 92804 "parsing/parser.ml" +# 92834 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -92810,20 +92840,20 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 92814 "parsing/parser.ml" +# 92844 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 92820 "parsing/parser.ml" +# 92850 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 92827 "parsing/parser.ml" +# 92857 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_inlined1_) in @@ -92833,40 +92863,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 92839 "parsing/parser.ml" +# 92869 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 92845 "parsing/parser.ml" +# 92875 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 92855 "parsing/parser.ml" +# 92885 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 92861 "parsing/parser.ml" +# 92891 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 92870 "parsing/parser.ml" +# 92900 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in @@ -92876,13 +92906,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 92880 "parsing/parser.ml" +# 92910 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 92886 "parsing/parser.ml" +# 92916 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -92972,32 +93002,32 @@ module Tables = struct let codomain_with_modes = let _1 = _1_inlined3 in let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 92978 "parsing/parser.ml" +# 93008 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 92983 "parsing/parser.ml" +# 93013 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 92992 "parsing/parser.ml" +# 93022 "parsing/parser.ml" in let domain_with_modes = let m1 = let _1 = _1_inlined2 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 93001 "parsing/parser.ml" +# 93031 "parsing/parser.ml" in let ty = @@ -93010,24 +93040,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 93014 "parsing/parser.ml" +# 93044 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 93019 "parsing/parser.ml" +# 93049 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 93025 "parsing/parser.ml" +# 93055 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 93031 "parsing/parser.ml" +# 93061 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -93037,20 +93067,20 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 93041 "parsing/parser.ml" +# 93071 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 93047 "parsing/parser.ml" +# 93077 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 93054 "parsing/parser.ml" +# 93084 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_inlined1_) in @@ -93060,40 +93090,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 93066 "parsing/parser.ml" +# 93096 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 93072 "parsing/parser.ml" +# 93102 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 93082 "parsing/parser.ml" +# 93112 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 93088 "parsing/parser.ml" +# 93118 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 93097 "parsing/parser.ml" +# 93127 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined3_ in @@ -93103,13 +93133,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 93107 "parsing/parser.ml" +# 93137 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 93113 "parsing/parser.ml" +# 93143 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -93199,9 +93229,9 @@ module Tables = struct let codomain_with_modes = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 93205 "parsing/parser.ml" +# 93235 "parsing/parser.ml" in let m0 = let _1 = @@ -93209,34 +93239,34 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 93215 "parsing/parser.ml" +# 93245 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 93221 "parsing/parser.ml" +# 93251 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 93231 "parsing/parser.ml" +# 93261 "parsing/parser.ml" in let domain_with_modes = let m1 = let _1 = _1_inlined2 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 93240 "parsing/parser.ml" +# 93270 "parsing/parser.ml" in let ty = @@ -93249,24 +93279,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 93253 "parsing/parser.ml" +# 93283 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 93258 "parsing/parser.ml" +# 93288 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 93264 "parsing/parser.ml" +# 93294 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 93270 "parsing/parser.ml" +# 93300 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -93276,20 +93306,20 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 93280 "parsing/parser.ml" +# 93310 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 93286 "parsing/parser.ml" +# 93316 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 93293 "parsing/parser.ml" +# 93323 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_inlined1_) in @@ -93299,40 +93329,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 93305 "parsing/parser.ml" +# 93335 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 93311 "parsing/parser.ml" +# 93341 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 93321 "parsing/parser.ml" +# 93351 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 93327 "parsing/parser.ml" +# 93357 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 93336 "parsing/parser.ml" +# 93366 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in @@ -93342,13 +93372,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 93346 "parsing/parser.ml" +# 93376 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 93352 "parsing/parser.ml" +# 93382 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -93447,9 +93477,9 @@ module Tables = struct let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 93453 "parsing/parser.ml" +# 93483 "parsing/parser.ml" in let m0 = @@ -93458,34 +93488,34 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 93464 "parsing/parser.ml" +# 93494 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 93470 "parsing/parser.ml" +# 93500 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 93480 "parsing/parser.ml" +# 93510 "parsing/parser.ml" in let domain_with_modes = let m1 = let _1 = _1_inlined2 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 93489 "parsing/parser.ml" +# 93519 "parsing/parser.ml" in let ty = @@ -93498,24 +93528,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 93502 "parsing/parser.ml" +# 93532 "parsing/parser.ml" in # 1310 "parsing/parser.mly" ( xs ) -# 93507 "parsing/parser.ml" +# 93537 "parsing/parser.ml" in -# 4197 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( _1 ) -# 93513 "parsing/parser.ml" +# 93543 "parsing/parser.ml" in -# 4424 "parsing/parser.mly" +# 4425 "parsing/parser.mly" ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } ) -# 93519 "parsing/parser.ml" +# 93549 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -93525,20 +93555,20 @@ module Tables = struct # 1269 "parsing/parser.mly" ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 ) -# 93529 "parsing/parser.ml" +# 93559 "parsing/parser.ml" in -# 4426 "parsing/parser.mly" +# 4427 "parsing/parser.mly" ( _1 ) -# 93535 "parsing/parser.ml" +# 93565 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 93542 "parsing/parser.ml" +# 93572 "parsing/parser.ml" in let (_endpos_ty_, _startpos_ty_) = (_endpos__5_, _startpos__1_inlined1_) in @@ -93548,40 +93578,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 93554 "parsing/parser.ml" +# 93584 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 93560 "parsing/parser.ml" +# 93590 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 93570 "parsing/parser.ml" +# 93600 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 93576 "parsing/parser.ml" +# 93606 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 93585 "parsing/parser.ml" +# 93615 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined4_ in @@ -93591,13 +93621,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 93595 "parsing/parser.ml" +# 93625 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 93601 "parsing/parser.ml" +# 93631 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -93645,42 +93675,42 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, ty) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, ty_inlined1) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 93651 "parsing/parser.ml" +# 93681 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 93656 "parsing/parser.ml" +# 93686 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 93665 "parsing/parser.ml" +# 93695 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 93672 "parsing/parser.ml" +# 93702 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 93678 "parsing/parser.ml" +# 93708 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 93684 "parsing/parser.ml" +# 93714 "parsing/parser.ml" in let m0 = @@ -93689,40 +93719,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 93695 "parsing/parser.ml" +# 93725 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 93701 "parsing/parser.ml" +# 93731 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 93711 "parsing/parser.ml" +# 93741 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 93717 "parsing/parser.ml" +# 93747 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 93726 "parsing/parser.ml" +# 93756 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_inlined1_ in @@ -93732,13 +93762,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 93736 "parsing/parser.ml" +# 93766 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 93742 "parsing/parser.ml" +# 93772 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -93793,42 +93823,42 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, _1, ty) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, _1_inlined1, ty_inlined1) in let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 93799 "parsing/parser.ml" +# 93829 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 93804 "parsing/parser.ml" +# 93834 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 93813 "parsing/parser.ml" +# 93843 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 93820 "parsing/parser.ml" +# 93850 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 93826 "parsing/parser.ml" +# 93856 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 93832 "parsing/parser.ml" +# 93862 "parsing/parser.ml" in let m0 = @@ -93837,40 +93867,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 93843 "parsing/parser.ml" +# 93873 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 93849 "parsing/parser.ml" +# 93879 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 93859 "parsing/parser.ml" +# 93889 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 93865 "parsing/parser.ml" +# 93895 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 93874 "parsing/parser.ml" +# 93904 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -93880,13 +93910,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 93884 "parsing/parser.ml" +# 93914 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 93890 "parsing/parser.ml" +# 93920 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -93941,9 +93971,9 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, _endpos__1_, _startpos__1_, ty, _1) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, _endpos__1_inlined1_, _startpos__1_inlined1_, ty_inlined1, _1_inlined1) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 93947 "parsing/parser.ml" +# 93977 "parsing/parser.ml" in let m0 = let _1 = @@ -93951,44 +93981,44 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 93957 "parsing/parser.ml" +# 93987 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 93963 "parsing/parser.ml" +# 93993 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 93973 "parsing/parser.ml" +# 94003 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 93980 "parsing/parser.ml" +# 94010 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 93986 "parsing/parser.ml" +# 94016 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 93992 "parsing/parser.ml" +# 94022 "parsing/parser.ml" in let m0 = @@ -93997,40 +94027,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 94003 "parsing/parser.ml" +# 94033 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 94009 "parsing/parser.ml" +# 94039 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 94019 "parsing/parser.ml" +# 94049 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 94025 "parsing/parser.ml" +# 94055 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 94034 "parsing/parser.ml" +# 94064 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_inlined1_ in @@ -94040,13 +94070,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 94044 "parsing/parser.ml" +# 94074 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 94050 "parsing/parser.ml" +# 94080 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -94110,9 +94140,9 @@ module Tables = struct let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 94116 "parsing/parser.ml" +# 94146 "parsing/parser.ml" in let m0 = @@ -94121,44 +94151,44 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 94127 "parsing/parser.ml" +# 94157 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 94133 "parsing/parser.ml" +# 94163 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 94143 "parsing/parser.ml" +# 94173 "parsing/parser.ml" in let domain_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 94150 "parsing/parser.ml" +# 94180 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 94156 "parsing/parser.ml" +# 94186 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 94162 "parsing/parser.ml" +# 94192 "parsing/parser.ml" in let m0 = @@ -94167,40 +94197,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 94173 "parsing/parser.ml" +# 94203 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 94179 "parsing/parser.ml" +# 94209 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 94189 "parsing/parser.ml" +# 94219 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 94195 "parsing/parser.ml" +# 94225 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 94204 "parsing/parser.ml" +# 94234 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined2_ in @@ -94210,13 +94240,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 94214 "parsing/parser.ml" +# 94244 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 94220 "parsing/parser.ml" +# 94250 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -94271,45 +94301,45 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, ty) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, ty_inlined1) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 94277 "parsing/parser.ml" +# 94307 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 94282 "parsing/parser.ml" +# 94312 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 94291 "parsing/parser.ml" +# 94321 "parsing/parser.ml" in let domain_with_modes = let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 94300 "parsing/parser.ml" +# 94330 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 94307 "parsing/parser.ml" +# 94337 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 94313 "parsing/parser.ml" +# 94343 "parsing/parser.ml" in let m0 = @@ -94318,40 +94348,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 94324 "parsing/parser.ml" +# 94354 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 94330 "parsing/parser.ml" +# 94360 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 94340 "parsing/parser.ml" +# 94370 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 94346 "parsing/parser.ml" +# 94376 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 94355 "parsing/parser.ml" +# 94385 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_inlined1_ in @@ -94361,13 +94391,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 94365 "parsing/parser.ml" +# 94395 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 94371 "parsing/parser.ml" +# 94401 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -94429,45 +94459,45 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, _1, ty) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, _1_inlined2, ty_inlined1) in let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 94435 "parsing/parser.ml" +# 94465 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 94440 "parsing/parser.ml" +# 94470 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 94449 "parsing/parser.ml" +# 94479 "parsing/parser.ml" in let domain_with_modes = let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 94458 "parsing/parser.ml" +# 94488 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 94465 "parsing/parser.ml" +# 94495 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 94471 "parsing/parser.ml" +# 94501 "parsing/parser.ml" in let m0 = @@ -94476,40 +94506,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 94482 "parsing/parser.ml" +# 94512 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 94488 "parsing/parser.ml" +# 94518 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 94498 "parsing/parser.ml" +# 94528 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 94504 "parsing/parser.ml" +# 94534 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 94513 "parsing/parser.ml" +# 94543 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined2_ in @@ -94519,13 +94549,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 94523 "parsing/parser.ml" +# 94553 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 94529 "parsing/parser.ml" +# 94559 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -94587,9 +94617,9 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, _endpos__1_, _startpos__1_, ty, _1) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, _endpos__1_inlined2_, _startpos__1_inlined2_, ty_inlined1, _1_inlined2) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 94593 "parsing/parser.ml" +# 94623 "parsing/parser.ml" in let m0 = let _1 = @@ -94597,47 +94627,47 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 94603 "parsing/parser.ml" +# 94633 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 94609 "parsing/parser.ml" +# 94639 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 94619 "parsing/parser.ml" +# 94649 "parsing/parser.ml" in let domain_with_modes = let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 94628 "parsing/parser.ml" +# 94658 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 94635 "parsing/parser.ml" +# 94665 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 94641 "parsing/parser.ml" +# 94671 "parsing/parser.ml" in let m0 = @@ -94646,40 +94676,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 94652 "parsing/parser.ml" +# 94682 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 94658 "parsing/parser.ml" +# 94688 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 94668 "parsing/parser.ml" +# 94698 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 94674 "parsing/parser.ml" +# 94704 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 94683 "parsing/parser.ml" +# 94713 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_inlined1_ in @@ -94689,13 +94719,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 94693 "parsing/parser.ml" +# 94723 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 94699 "parsing/parser.ml" +# 94729 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -94766,9 +94796,9 @@ module Tables = struct let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 94772 "parsing/parser.ml" +# 94802 "parsing/parser.ml" in let m0 = @@ -94777,47 +94807,47 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 94783 "parsing/parser.ml" +# 94813 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 94789 "parsing/parser.ml" +# 94819 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 94799 "parsing/parser.ml" +# 94829 "parsing/parser.ml" in let domain_with_modes = let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 94808 "parsing/parser.ml" +# 94838 "parsing/parser.ml" in let ty = let _1 = -# 4428 "parsing/parser.mly" +# 4429 "parsing/parser.mly" ( ty ) -# 94815 "parsing/parser.ml" +# 94845 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in # 1203 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 94821 "parsing/parser.ml" +# 94851 "parsing/parser.ml" in let m0 = @@ -94826,40 +94856,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 94832 "parsing/parser.ml" +# 94862 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 94838 "parsing/parser.ml" +# 94868 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 94848 "parsing/parser.ml" +# 94878 "parsing/parser.ml" in let label = -# 4361 "parsing/parser.mly" +# 4362 "parsing/parser.mly" ( Nolabel ) -# 94854 "parsing/parser.ml" +# 94884 "parsing/parser.ml" in -# 4293 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( let (domain, (_ : Lexing.position * Lexing.position)), arg_modes = domain_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 94863 "parsing/parser.ml" +# 94893 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined3_ in @@ -94869,13 +94899,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 94873 "parsing/parser.ml" +# 94903 "parsing/parser.ml" in -# 4299 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( _1 ) -# 94879 "parsing/parser.ml" +# 94909 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -94938,7 +94968,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 94942 "parsing/parser.ml" +# 94972 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -94947,47 +94977,47 @@ module Tables = struct let _1 = let tuple_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 94953 "parsing/parser.ml" +# 94983 "parsing/parser.ml" in let ty = let ltys = let xs = # 253 "" ( List.rev xs ) -# 94960 "parsing/parser.ml" +# 94990 "parsing/parser.ml" in # 1362 "parsing/parser.mly" ( xs ) -# 94965 "parsing/parser.ml" +# 94995 "parsing/parser.ml" in -# 4457 "parsing/parser.mly" +# 4458 "parsing/parser.mly" ( ty, ltys ) -# 94971 "parsing/parser.ml" +# 95001 "parsing/parser.ml" in let _endpos_ty_ = _endpos_xs_ in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 94978 "parsing/parser.ml" +# 95008 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 94987 "parsing/parser.ml" +# 95017 "parsing/parser.ml" in -# 4317 "parsing/parser.mly" +# 4318 "parsing/parser.mly" ( let (tuple, tuple_loc), arg_modes = tuple_with_modes in let ty, ltys = tuple in @@ -94995,7 +95025,7 @@ module Tables = struct let domain = ptyp_ltuple tuple_loc ((None, ty) :: ltys) in let domain = extra_rhs_core_type domain ~pos:(snd tuple_loc) in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) ) -# 94999 "parsing/parser.ml" +# 95029 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -95005,13 +95035,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 95009 "parsing/parser.ml" +# 95039 "parsing/parser.ml" in -# 4325 "parsing/parser.mly" +# 4326 "parsing/parser.mly" ( _1 ) -# 95015 "parsing/parser.ml" +# 95045 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -95081,7 +95111,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 95085 "parsing/parser.ml" +# 95115 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -95090,47 +95120,47 @@ module Tables = struct let _1 = let tuple_with_modes = let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 95096 "parsing/parser.ml" +# 95126 "parsing/parser.ml" in let ty = let ltys = let xs = # 253 "" ( List.rev xs ) -# 95103 "parsing/parser.ml" +# 95133 "parsing/parser.ml" in # 1362 "parsing/parser.mly" ( xs ) -# 95108 "parsing/parser.ml" +# 95138 "parsing/parser.ml" in -# 4457 "parsing/parser.mly" +# 4458 "parsing/parser.mly" ( ty, ltys ) -# 95114 "parsing/parser.ml" +# 95144 "parsing/parser.ml" in let _endpos_ty_ = _endpos_xs_ in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 95121 "parsing/parser.ml" +# 95151 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 95130 "parsing/parser.ml" +# 95160 "parsing/parser.ml" in -# 4317 "parsing/parser.mly" +# 4318 "parsing/parser.mly" ( let (tuple, tuple_loc), arg_modes = tuple_with_modes in let ty, ltys = tuple in @@ -95138,7 +95168,7 @@ module Tables = struct let domain = ptyp_ltuple tuple_loc ((None, ty) :: ltys) in let domain = extra_rhs_core_type domain ~pos:(snd tuple_loc) in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) ) -# 95142 "parsing/parser.ml" +# 95172 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -95148,13 +95178,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 95152 "parsing/parser.ml" +# 95182 "parsing/parser.ml" in -# 4325 "parsing/parser.mly" +# 4326 "parsing/parser.mly" ( _1 ) -# 95158 "parsing/parser.ml" +# 95188 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -95224,7 +95254,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 95228 "parsing/parser.ml" +# 95258 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -95233,27 +95263,27 @@ module Tables = struct let _1 = let tuple_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 95239 "parsing/parser.ml" +# 95269 "parsing/parser.ml" in let ty = let ltys = let xs = # 253 "" ( List.rev xs ) -# 95246 "parsing/parser.ml" +# 95276 "parsing/parser.ml" in # 1362 "parsing/parser.mly" ( xs ) -# 95251 "parsing/parser.ml" +# 95281 "parsing/parser.ml" in -# 4457 "parsing/parser.mly" +# 4458 "parsing/parser.mly" ( ty, ltys ) -# 95257 "parsing/parser.ml" +# 95287 "parsing/parser.ml" in let _endpos_ty_ = _endpos_xs_ in @@ -95263,29 +95293,29 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 95269 "parsing/parser.ml" +# 95299 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 95275 "parsing/parser.ml" +# 95305 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 95285 "parsing/parser.ml" +# 95315 "parsing/parser.ml" in -# 4317 "parsing/parser.mly" +# 4318 "parsing/parser.mly" ( let (tuple, tuple_loc), arg_modes = tuple_with_modes in let ty, ltys = tuple in @@ -95293,7 +95323,7 @@ module Tables = struct let domain = ptyp_ltuple tuple_loc ((None, ty) :: ltys) in let domain = extra_rhs_core_type domain ~pos:(snd tuple_loc) in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) ) -# 95297 "parsing/parser.ml" +# 95327 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -95303,13 +95333,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 95307 "parsing/parser.ml" +# 95337 "parsing/parser.ml" in -# 4325 "parsing/parser.mly" +# 4326 "parsing/parser.mly" ( _1 ) -# 95313 "parsing/parser.ml" +# 95343 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -95386,7 +95416,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 95390 "parsing/parser.ml" +# 95420 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -95397,9 +95427,9 @@ module Tables = struct let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 95403 "parsing/parser.ml" +# 95433 "parsing/parser.ml" in let ty = @@ -95407,18 +95437,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 95411 "parsing/parser.ml" +# 95441 "parsing/parser.ml" in # 1362 "parsing/parser.mly" ( xs ) -# 95416 "parsing/parser.ml" +# 95446 "parsing/parser.ml" in -# 4457 "parsing/parser.mly" +# 4458 "parsing/parser.mly" ( ty, ltys ) -# 95422 "parsing/parser.ml" +# 95452 "parsing/parser.ml" in let _endpos_ty_ = _endpos_xs_ in @@ -95428,29 +95458,29 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 95434 "parsing/parser.ml" +# 95464 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 95440 "parsing/parser.ml" +# 95470 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 95450 "parsing/parser.ml" +# 95480 "parsing/parser.ml" in -# 4317 "parsing/parser.mly" +# 4318 "parsing/parser.mly" ( let (tuple, tuple_loc), arg_modes = tuple_with_modes in let ty, ltys = tuple in @@ -95458,7 +95488,7 @@ module Tables = struct let domain = ptyp_ltuple tuple_loc ((None, ty) :: ltys) in let domain = extra_rhs_core_type domain ~pos:(snd tuple_loc) in Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) ) -# 95462 "parsing/parser.ml" +# 95492 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -95468,13 +95498,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 95472 "parsing/parser.ml" +# 95502 "parsing/parser.ml" in -# 4325 "parsing/parser.mly" +# 4326 "parsing/parser.mly" ( _1 ) -# 95478 "parsing/parser.ml" +# 95508 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -95537,7 +95567,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 95541 "parsing/parser.ml" +# 95571 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -95547,68 +95577,68 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, ty) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, ty_inlined1) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 95553 "parsing/parser.ml" +# 95583 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 95558 "parsing/parser.ml" +# 95588 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 95567 "parsing/parser.ml" +# 95597 "parsing/parser.ml" in let tuple_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 95574 "parsing/parser.ml" +# 95604 "parsing/parser.ml" in let ty = let ltys = let xs = # 253 "" ( List.rev xs ) -# 95581 "parsing/parser.ml" +# 95611 "parsing/parser.ml" in # 1362 "parsing/parser.mly" ( xs ) -# 95586 "parsing/parser.ml" +# 95616 "parsing/parser.ml" in -# 4457 "parsing/parser.mly" +# 4458 "parsing/parser.mly" ( ty, ltys ) -# 95592 "parsing/parser.ml" +# 95622 "parsing/parser.ml" in let _endpos_ty_ = _endpos_xs_ in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 95599 "parsing/parser.ml" +# 95629 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 95608 "parsing/parser.ml" +# 95638 "parsing/parser.ml" in -# 4332 "parsing/parser.mly" +# 4333 "parsing/parser.mly" ( let (tuple, tuple_loc), arg_modes = tuple_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in let ty, ltys = tuple in @@ -95619,7 +95649,7 @@ module Tables = struct mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 95623 "parsing/parser.ml" +# 95653 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_inlined1_, _startpos_label_) in @@ -95629,13 +95659,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 95633 "parsing/parser.ml" +# 95663 "parsing/parser.ml" in -# 4343 "parsing/parser.mly" +# 4344 "parsing/parser.mly" ( _1 ) -# 95639 "parsing/parser.ml" +# 95669 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -95705,7 +95735,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 95709 "parsing/parser.ml" +# 95739 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -95715,68 +95745,68 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, ty) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, ty_inlined1) in let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 95721 "parsing/parser.ml" +# 95751 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 95726 "parsing/parser.ml" +# 95756 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 95735 "parsing/parser.ml" +# 95765 "parsing/parser.ml" in let tuple_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 95742 "parsing/parser.ml" +# 95772 "parsing/parser.ml" in let ty = let ltys = let xs = # 253 "" ( List.rev xs ) -# 95749 "parsing/parser.ml" +# 95779 "parsing/parser.ml" in # 1362 "parsing/parser.mly" ( xs ) -# 95754 "parsing/parser.ml" +# 95784 "parsing/parser.ml" in -# 4457 "parsing/parser.mly" +# 4458 "parsing/parser.mly" ( ty, ltys ) -# 95760 "parsing/parser.ml" +# 95790 "parsing/parser.ml" in let _endpos_ty_ = _endpos_xs_ in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 95767 "parsing/parser.ml" +# 95797 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 95776 "parsing/parser.ml" +# 95806 "parsing/parser.ml" in -# 4332 "parsing/parser.mly" +# 4333 "parsing/parser.mly" ( let (tuple, tuple_loc), arg_modes = tuple_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in let ty, ltys = tuple in @@ -95787,7 +95817,7 @@ module Tables = struct mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 95791 "parsing/parser.ml" +# 95821 "parsing/parser.ml" in let _startpos__1_ = _startpos_label_ in @@ -95797,13 +95827,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 95801 "parsing/parser.ml" +# 95831 "parsing/parser.ml" in -# 4343 "parsing/parser.mly" +# 4344 "parsing/parser.mly" ( _1 ) -# 95807 "parsing/parser.ml" +# 95837 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -95873,7 +95903,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 95877 "parsing/parser.ml" +# 95907 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -95883,9 +95913,9 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, ty) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, ty_inlined1) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 95889 "parsing/parser.ml" +# 95919 "parsing/parser.ml" in let m0 = let _1 = @@ -95893,70 +95923,70 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 95899 "parsing/parser.ml" +# 95929 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 95905 "parsing/parser.ml" +# 95935 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 95915 "parsing/parser.ml" +# 95945 "parsing/parser.ml" in let tuple_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 95922 "parsing/parser.ml" +# 95952 "parsing/parser.ml" in let ty = let ltys = let xs = # 253 "" ( List.rev xs ) -# 95929 "parsing/parser.ml" +# 95959 "parsing/parser.ml" in # 1362 "parsing/parser.mly" ( xs ) -# 95934 "parsing/parser.ml" +# 95964 "parsing/parser.ml" in -# 4457 "parsing/parser.mly" +# 4458 "parsing/parser.mly" ( ty, ltys ) -# 95940 "parsing/parser.ml" +# 95970 "parsing/parser.ml" in let _endpos_ty_ = _endpos_xs_ in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 95947 "parsing/parser.ml" +# 95977 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 95956 "parsing/parser.ml" +# 95986 "parsing/parser.ml" in -# 4332 "parsing/parser.mly" +# 4333 "parsing/parser.mly" ( let (tuple, tuple_loc), arg_modes = tuple_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in let ty, ltys = tuple in @@ -95967,7 +95997,7 @@ module Tables = struct mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 95971 "parsing/parser.ml" +# 96001 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_inlined1_, _startpos_label_) in @@ -95977,13 +96007,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 95981 "parsing/parser.ml" +# 96011 "parsing/parser.ml" in -# 4343 "parsing/parser.mly" +# 4344 "parsing/parser.mly" ( _1 ) -# 95987 "parsing/parser.ml" +# 96017 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -96060,7 +96090,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 96064 "parsing/parser.ml" +# 96094 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -96072,9 +96102,9 @@ module Tables = struct let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 96078 "parsing/parser.ml" +# 96108 "parsing/parser.ml" in let m0 = @@ -96083,70 +96113,70 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 96089 "parsing/parser.ml" +# 96119 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 96095 "parsing/parser.ml" +# 96125 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 96105 "parsing/parser.ml" +# 96135 "parsing/parser.ml" in let tuple_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 96112 "parsing/parser.ml" +# 96142 "parsing/parser.ml" in let ty = let ltys = let xs = # 253 "" ( List.rev xs ) -# 96119 "parsing/parser.ml" +# 96149 "parsing/parser.ml" in # 1362 "parsing/parser.mly" ( xs ) -# 96124 "parsing/parser.ml" +# 96154 "parsing/parser.ml" in -# 4457 "parsing/parser.mly" +# 4458 "parsing/parser.mly" ( ty, ltys ) -# 96130 "parsing/parser.ml" +# 96160 "parsing/parser.ml" in let _endpos_ty_ = _endpos_xs_ in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 96137 "parsing/parser.ml" +# 96167 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 96146 "parsing/parser.ml" +# 96176 "parsing/parser.ml" in -# 4332 "parsing/parser.mly" +# 4333 "parsing/parser.mly" ( let (tuple, tuple_loc), arg_modes = tuple_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in let ty, ltys = tuple in @@ -96157,7 +96187,7 @@ module Tables = struct mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 96161 "parsing/parser.ml" +# 96191 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_label_) in @@ -96167,13 +96197,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 96171 "parsing/parser.ml" +# 96201 "parsing/parser.ml" in -# 4343 "parsing/parser.mly" +# 4344 "parsing/parser.mly" ( _1 ) -# 96177 "parsing/parser.ml" +# 96207 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -96243,7 +96273,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 96247 "parsing/parser.ml" +# 96277 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -96253,68 +96283,68 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, ty) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, ty_inlined1) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 96259 "parsing/parser.ml" +# 96289 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 96264 "parsing/parser.ml" +# 96294 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 96273 "parsing/parser.ml" +# 96303 "parsing/parser.ml" in let tuple_with_modes = let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 96280 "parsing/parser.ml" +# 96310 "parsing/parser.ml" in let ty = let ltys = let xs = # 253 "" ( List.rev xs ) -# 96287 "parsing/parser.ml" +# 96317 "parsing/parser.ml" in # 1362 "parsing/parser.mly" ( xs ) -# 96292 "parsing/parser.ml" +# 96322 "parsing/parser.ml" in -# 4457 "parsing/parser.mly" +# 4458 "parsing/parser.mly" ( ty, ltys ) -# 96298 "parsing/parser.ml" +# 96328 "parsing/parser.ml" in let _endpos_ty_ = _endpos_xs_ in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 96305 "parsing/parser.ml" +# 96335 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 96314 "parsing/parser.ml" +# 96344 "parsing/parser.ml" in -# 4332 "parsing/parser.mly" +# 4333 "parsing/parser.mly" ( let (tuple, tuple_loc), arg_modes = tuple_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in let ty, ltys = tuple in @@ -96325,7 +96355,7 @@ module Tables = struct mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 96329 "parsing/parser.ml" +# 96359 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_inlined1_, _startpos_label_) in @@ -96335,13 +96365,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 96339 "parsing/parser.ml" +# 96369 "parsing/parser.ml" in -# 4343 "parsing/parser.mly" +# 4344 "parsing/parser.mly" ( _1 ) -# 96345 "parsing/parser.ml" +# 96375 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -96418,7 +96448,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 96422 "parsing/parser.ml" +# 96452 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -96428,68 +96458,68 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, _1, ty) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, _1_inlined1, ty_inlined1) in let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 96434 "parsing/parser.ml" +# 96464 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 96439 "parsing/parser.ml" +# 96469 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 96448 "parsing/parser.ml" +# 96478 "parsing/parser.ml" in let tuple_with_modes = let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 96455 "parsing/parser.ml" +# 96485 "parsing/parser.ml" in let ty = let ltys = let xs = # 253 "" ( List.rev xs ) -# 96462 "parsing/parser.ml" +# 96492 "parsing/parser.ml" in # 1362 "parsing/parser.mly" ( xs ) -# 96467 "parsing/parser.ml" +# 96497 "parsing/parser.ml" in -# 4457 "parsing/parser.mly" +# 4458 "parsing/parser.mly" ( ty, ltys ) -# 96473 "parsing/parser.ml" +# 96503 "parsing/parser.ml" in let _endpos_ty_ = _endpos_xs_ in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 96480 "parsing/parser.ml" +# 96510 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 96489 "parsing/parser.ml" +# 96519 "parsing/parser.ml" in -# 4332 "parsing/parser.mly" +# 4333 "parsing/parser.mly" ( let (tuple, tuple_loc), arg_modes = tuple_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in let ty, ltys = tuple in @@ -96500,7 +96530,7 @@ module Tables = struct mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 96504 "parsing/parser.ml" +# 96534 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_label_) in @@ -96510,13 +96540,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 96514 "parsing/parser.ml" +# 96544 "parsing/parser.ml" in -# 4343 "parsing/parser.mly" +# 4344 "parsing/parser.mly" ( _1 ) -# 96520 "parsing/parser.ml" +# 96550 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -96593,7 +96623,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 96597 "parsing/parser.ml" +# 96627 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -96603,9 +96633,9 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, _endpos__1_, _startpos__1_, ty, _1) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, _endpos__1_inlined1_, _startpos__1_inlined1_, ty_inlined1, _1_inlined1) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 96609 "parsing/parser.ml" +# 96639 "parsing/parser.ml" in let m0 = let _1 = @@ -96613,70 +96643,70 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 96619 "parsing/parser.ml" +# 96649 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 96625 "parsing/parser.ml" +# 96655 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 96635 "parsing/parser.ml" +# 96665 "parsing/parser.ml" in let tuple_with_modes = let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 96642 "parsing/parser.ml" +# 96672 "parsing/parser.ml" in let ty = let ltys = let xs = # 253 "" ( List.rev xs ) -# 96649 "parsing/parser.ml" +# 96679 "parsing/parser.ml" in # 1362 "parsing/parser.mly" ( xs ) -# 96654 "parsing/parser.ml" +# 96684 "parsing/parser.ml" in -# 4457 "parsing/parser.mly" +# 4458 "parsing/parser.mly" ( ty, ltys ) -# 96660 "parsing/parser.ml" +# 96690 "parsing/parser.ml" in let _endpos_ty_ = _endpos_xs_ in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 96667 "parsing/parser.ml" +# 96697 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 96676 "parsing/parser.ml" +# 96706 "parsing/parser.ml" in -# 4332 "parsing/parser.mly" +# 4333 "parsing/parser.mly" ( let (tuple, tuple_loc), arg_modes = tuple_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in let ty, ltys = tuple in @@ -96687,7 +96717,7 @@ module Tables = struct mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 96691 "parsing/parser.ml" +# 96721 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_inlined1_, _startpos_label_) in @@ -96697,13 +96727,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 96701 "parsing/parser.ml" +# 96731 "parsing/parser.ml" in -# 4343 "parsing/parser.mly" +# 4344 "parsing/parser.mly" ( _1 ) -# 96707 "parsing/parser.ml" +# 96737 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -96787,7 +96817,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 96791 "parsing/parser.ml" +# 96821 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -96799,9 +96829,9 @@ module Tables = struct let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 96805 "parsing/parser.ml" +# 96835 "parsing/parser.ml" in let m0 = @@ -96810,70 +96840,70 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 96816 "parsing/parser.ml" +# 96846 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 96822 "parsing/parser.ml" +# 96852 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 96832 "parsing/parser.ml" +# 96862 "parsing/parser.ml" in let tuple_with_modes = let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 96839 "parsing/parser.ml" +# 96869 "parsing/parser.ml" in let ty = let ltys = let xs = # 253 "" ( List.rev xs ) -# 96846 "parsing/parser.ml" +# 96876 "parsing/parser.ml" in # 1362 "parsing/parser.mly" ( xs ) -# 96851 "parsing/parser.ml" +# 96881 "parsing/parser.ml" in -# 4457 "parsing/parser.mly" +# 4458 "parsing/parser.mly" ( ty, ltys ) -# 96857 "parsing/parser.ml" +# 96887 "parsing/parser.ml" in let _endpos_ty_ = _endpos_xs_ in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 96864 "parsing/parser.ml" +# 96894 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 96873 "parsing/parser.ml" +# 96903 "parsing/parser.ml" in -# 4332 "parsing/parser.mly" +# 4333 "parsing/parser.mly" ( let (tuple, tuple_loc), arg_modes = tuple_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in let ty, ltys = tuple in @@ -96884,7 +96914,7 @@ module Tables = struct mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 96888 "parsing/parser.ml" +# 96918 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos_label_) in @@ -96894,13 +96924,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 96898 "parsing/parser.ml" +# 96928 "parsing/parser.ml" in -# 4343 "parsing/parser.mly" +# 4344 "parsing/parser.mly" ( _1 ) -# 96904 "parsing/parser.ml" +# 96934 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -96970,7 +97000,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 96974 "parsing/parser.ml" +# 97004 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -96980,48 +97010,48 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, ty) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, ty_inlined1) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 96986 "parsing/parser.ml" +# 97016 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 96991 "parsing/parser.ml" +# 97021 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 97000 "parsing/parser.ml" +# 97030 "parsing/parser.ml" in let tuple_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 97007 "parsing/parser.ml" +# 97037 "parsing/parser.ml" in let ty = let ltys = let xs = # 253 "" ( List.rev xs ) -# 97014 "parsing/parser.ml" +# 97044 "parsing/parser.ml" in # 1362 "parsing/parser.mly" ( xs ) -# 97019 "parsing/parser.ml" +# 97049 "parsing/parser.ml" in -# 4457 "parsing/parser.mly" +# 4458 "parsing/parser.mly" ( ty, ltys ) -# 97025 "parsing/parser.ml" +# 97055 "parsing/parser.ml" in let _endpos_ty_ = _endpos_xs_ in @@ -97031,29 +97061,29 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 97037 "parsing/parser.ml" +# 97067 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 97043 "parsing/parser.ml" +# 97073 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 97053 "parsing/parser.ml" +# 97083 "parsing/parser.ml" in -# 4332 "parsing/parser.mly" +# 4333 "parsing/parser.mly" ( let (tuple, tuple_loc), arg_modes = tuple_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in let ty, ltys = tuple in @@ -97064,7 +97094,7 @@ module Tables = struct mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 97068 "parsing/parser.ml" +# 97098 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_inlined1_, _startpos_label_) in @@ -97074,13 +97104,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 97078 "parsing/parser.ml" +# 97108 "parsing/parser.ml" in -# 4343 "parsing/parser.mly" +# 4344 "parsing/parser.mly" ( _1 ) -# 97084 "parsing/parser.ml" +# 97114 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -97157,7 +97187,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 97161 "parsing/parser.ml" +# 97191 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -97167,48 +97197,48 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, _1, ty) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, _1_inlined1, ty_inlined1) in let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 97173 "parsing/parser.ml" +# 97203 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 97178 "parsing/parser.ml" +# 97208 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 97187 "parsing/parser.ml" +# 97217 "parsing/parser.ml" in let tuple_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 97194 "parsing/parser.ml" +# 97224 "parsing/parser.ml" in let ty = let ltys = let xs = # 253 "" ( List.rev xs ) -# 97201 "parsing/parser.ml" +# 97231 "parsing/parser.ml" in # 1362 "parsing/parser.mly" ( xs ) -# 97206 "parsing/parser.ml" +# 97236 "parsing/parser.ml" in -# 4457 "parsing/parser.mly" +# 4458 "parsing/parser.mly" ( ty, ltys ) -# 97212 "parsing/parser.ml" +# 97242 "parsing/parser.ml" in let _endpos_ty_ = _endpos_xs_ in @@ -97218,29 +97248,29 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 97224 "parsing/parser.ml" +# 97254 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 97230 "parsing/parser.ml" +# 97260 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 97240 "parsing/parser.ml" +# 97270 "parsing/parser.ml" in -# 4332 "parsing/parser.mly" +# 4333 "parsing/parser.mly" ( let (tuple, tuple_loc), arg_modes = tuple_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in let ty, ltys = tuple in @@ -97251,7 +97281,7 @@ module Tables = struct mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 97255 "parsing/parser.ml" +# 97285 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_label_) in @@ -97261,13 +97291,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 97265 "parsing/parser.ml" +# 97295 "parsing/parser.ml" in -# 4343 "parsing/parser.mly" +# 4344 "parsing/parser.mly" ( _1 ) -# 97271 "parsing/parser.ml" +# 97301 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -97344,7 +97374,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 97348 "parsing/parser.ml" +# 97378 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -97354,9 +97384,9 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, _endpos__1_, _startpos__1_, ty, _1) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, _endpos__1_inlined1_, _startpos__1_inlined1_, ty_inlined1, _1_inlined1) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 97360 "parsing/parser.ml" +# 97390 "parsing/parser.ml" in let m0 = let _1 = @@ -97364,50 +97394,50 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 97370 "parsing/parser.ml" +# 97400 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 97376 "parsing/parser.ml" +# 97406 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 97386 "parsing/parser.ml" +# 97416 "parsing/parser.ml" in let tuple_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 97393 "parsing/parser.ml" +# 97423 "parsing/parser.ml" in let ty = let ltys = let xs = # 253 "" ( List.rev xs ) -# 97400 "parsing/parser.ml" +# 97430 "parsing/parser.ml" in # 1362 "parsing/parser.mly" ( xs ) -# 97405 "parsing/parser.ml" +# 97435 "parsing/parser.ml" in -# 4457 "parsing/parser.mly" +# 4458 "parsing/parser.mly" ( ty, ltys ) -# 97411 "parsing/parser.ml" +# 97441 "parsing/parser.ml" in let _endpos_ty_ = _endpos_xs_ in @@ -97417,29 +97447,29 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 97423 "parsing/parser.ml" +# 97453 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 97429 "parsing/parser.ml" +# 97459 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 97439 "parsing/parser.ml" +# 97469 "parsing/parser.ml" in -# 4332 "parsing/parser.mly" +# 4333 "parsing/parser.mly" ( let (tuple, tuple_loc), arg_modes = tuple_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in let ty, ltys = tuple in @@ -97450,7 +97480,7 @@ module Tables = struct mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 97454 "parsing/parser.ml" +# 97484 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_inlined1_, _startpos_label_) in @@ -97460,13 +97490,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 97464 "parsing/parser.ml" +# 97494 "parsing/parser.ml" in -# 4343 "parsing/parser.mly" +# 4344 "parsing/parser.mly" ( _1 ) -# 97470 "parsing/parser.ml" +# 97500 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -97550,7 +97580,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 97554 "parsing/parser.ml" +# 97584 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -97562,9 +97592,9 @@ module Tables = struct let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 97568 "parsing/parser.ml" +# 97598 "parsing/parser.ml" in let m0 = @@ -97573,50 +97603,50 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 97579 "parsing/parser.ml" +# 97609 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 97585 "parsing/parser.ml" +# 97615 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 97595 "parsing/parser.ml" +# 97625 "parsing/parser.ml" in let tuple_with_modes = let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 97602 "parsing/parser.ml" +# 97632 "parsing/parser.ml" in let ty = let ltys = let xs = # 253 "" ( List.rev xs ) -# 97609 "parsing/parser.ml" +# 97639 "parsing/parser.ml" in # 1362 "parsing/parser.mly" ( xs ) -# 97614 "parsing/parser.ml" +# 97644 "parsing/parser.ml" in -# 4457 "parsing/parser.mly" +# 4458 "parsing/parser.mly" ( ty, ltys ) -# 97620 "parsing/parser.ml" +# 97650 "parsing/parser.ml" in let _endpos_ty_ = _endpos_xs_ in @@ -97626,29 +97656,29 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 97632 "parsing/parser.ml" +# 97662 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 97638 "parsing/parser.ml" +# 97668 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 97648 "parsing/parser.ml" +# 97678 "parsing/parser.ml" in -# 4332 "parsing/parser.mly" +# 4333 "parsing/parser.mly" ( let (tuple, tuple_loc), arg_modes = tuple_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in let ty, ltys = tuple in @@ -97659,7 +97689,7 @@ module Tables = struct mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 97663 "parsing/parser.ml" +# 97693 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos_label_) in @@ -97669,13 +97699,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 97673 "parsing/parser.ml" +# 97703 "parsing/parser.ml" in -# 4343 "parsing/parser.mly" +# 4344 "parsing/parser.mly" ( _1 ) -# 97679 "parsing/parser.ml" +# 97709 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -97752,7 +97782,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 97756 "parsing/parser.ml" +# 97786 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -97762,32 +97792,32 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, ty) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, ty_inlined1) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 97768 "parsing/parser.ml" +# 97798 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 97773 "parsing/parser.ml" +# 97803 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 97782 "parsing/parser.ml" +# 97812 "parsing/parser.ml" in let tuple_with_modes = let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 97791 "parsing/parser.ml" +# 97821 "parsing/parser.ml" in let ty = @@ -97795,18 +97825,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 97799 "parsing/parser.ml" +# 97829 "parsing/parser.ml" in # 1362 "parsing/parser.mly" ( xs ) -# 97804 "parsing/parser.ml" +# 97834 "parsing/parser.ml" in -# 4457 "parsing/parser.mly" +# 4458 "parsing/parser.mly" ( ty, ltys ) -# 97810 "parsing/parser.ml" +# 97840 "parsing/parser.ml" in let _endpos_ty_ = _endpos_xs_ in @@ -97816,29 +97846,29 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 97822 "parsing/parser.ml" +# 97852 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 97828 "parsing/parser.ml" +# 97858 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 97838 "parsing/parser.ml" +# 97868 "parsing/parser.ml" in -# 4332 "parsing/parser.mly" +# 4333 "parsing/parser.mly" ( let (tuple, tuple_loc), arg_modes = tuple_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in let ty, ltys = tuple in @@ -97849,7 +97879,7 @@ module Tables = struct mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 97853 "parsing/parser.ml" +# 97883 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_inlined1_, _startpos_label_) in @@ -97859,13 +97889,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 97863 "parsing/parser.ml" +# 97893 "parsing/parser.ml" in -# 4343 "parsing/parser.mly" +# 4344 "parsing/parser.mly" ( _1 ) -# 97869 "parsing/parser.ml" +# 97899 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -97949,7 +97979,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 97953 "parsing/parser.ml" +# 97983 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -97959,32 +97989,32 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, _1, ty) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, _1_inlined2, ty_inlined1) in let m1 = -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 97965 "parsing/parser.ml" +# 97995 "parsing/parser.ml" in let m0 = -# 4379 "parsing/parser.mly" +# 4380 "parsing/parser.mly" ( Mode.empty ) -# 97970 "parsing/parser.ml" +# 98000 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 97979 "parsing/parser.ml" +# 98009 "parsing/parser.ml" in let tuple_with_modes = let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 97988 "parsing/parser.ml" +# 98018 "parsing/parser.ml" in let ty = @@ -97992,18 +98022,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 97996 "parsing/parser.ml" +# 98026 "parsing/parser.ml" in # 1362 "parsing/parser.mly" ( xs ) -# 98001 "parsing/parser.ml" +# 98031 "parsing/parser.ml" in -# 4457 "parsing/parser.mly" +# 4458 "parsing/parser.mly" ( ty, ltys ) -# 98007 "parsing/parser.ml" +# 98037 "parsing/parser.ml" in let _endpos_ty_ = _endpos_xs_ in @@ -98013,29 +98043,29 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 98019 "parsing/parser.ml" +# 98049 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 98025 "parsing/parser.ml" +# 98055 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 98035 "parsing/parser.ml" +# 98065 "parsing/parser.ml" in -# 4332 "parsing/parser.mly" +# 4333 "parsing/parser.mly" ( let (tuple, tuple_loc), arg_modes = tuple_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in let ty, ltys = tuple in @@ -98046,7 +98076,7 @@ module Tables = struct mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 98050 "parsing/parser.ml" +# 98080 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos_label_) in @@ -98056,13 +98086,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 98060 "parsing/parser.ml" +# 98090 "parsing/parser.ml" in -# 4343 "parsing/parser.mly" +# 4344 "parsing/parser.mly" ( _1 ) -# 98066 "parsing/parser.ml" +# 98096 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -98146,7 +98176,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 98150 "parsing/parser.ml" +# 98180 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -98156,9 +98186,9 @@ module Tables = struct let codomain_with_modes = let (_endpos_ty_, _startpos_ty_, _endpos__1_, _startpos__1_, ty, _1) = (_endpos_ty_inlined1_, _startpos_ty_inlined1_, _endpos__1_inlined2_, _startpos__1_inlined2_, ty_inlined1, _1_inlined2) in let m1 = -# 4400 "parsing/parser.mly" +# 4401 "parsing/parser.mly" ( Mode.empty ) -# 98162 "parsing/parser.ml" +# 98192 "parsing/parser.ml" in let m0 = let _1 = @@ -98166,34 +98196,34 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 98172 "parsing/parser.ml" +# 98202 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 98178 "parsing/parser.ml" +# 98208 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 98188 "parsing/parser.ml" +# 98218 "parsing/parser.ml" in let tuple_with_modes = let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 98197 "parsing/parser.ml" +# 98227 "parsing/parser.ml" in let ty = @@ -98201,18 +98231,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 98205 "parsing/parser.ml" +# 98235 "parsing/parser.ml" in # 1362 "parsing/parser.mly" ( xs ) -# 98210 "parsing/parser.ml" +# 98240 "parsing/parser.ml" in -# 4457 "parsing/parser.mly" +# 4458 "parsing/parser.mly" ( ty, ltys ) -# 98216 "parsing/parser.ml" +# 98246 "parsing/parser.ml" in let _endpos_ty_ = _endpos_xs_ in @@ -98222,29 +98252,29 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 98228 "parsing/parser.ml" +# 98258 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 98234 "parsing/parser.ml" +# 98264 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 98244 "parsing/parser.ml" +# 98274 "parsing/parser.ml" in -# 4332 "parsing/parser.mly" +# 4333 "parsing/parser.mly" ( let (tuple, tuple_loc), arg_modes = tuple_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in let ty, ltys = tuple in @@ -98255,7 +98285,7 @@ module Tables = struct mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 98259 "parsing/parser.ml" +# 98289 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_inlined1_, _startpos_label_) in @@ -98265,13 +98295,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 98269 "parsing/parser.ml" +# 98299 "parsing/parser.ml" in -# 4343 "parsing/parser.mly" +# 4344 "parsing/parser.mly" ( _1 ) -# 98275 "parsing/parser.ml" +# 98305 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -98362,7 +98392,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 98366 "parsing/parser.ml" +# 98396 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -98374,9 +98404,9 @@ module Tables = struct let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 98380 "parsing/parser.ml" +# 98410 "parsing/parser.ml" in let m0 = @@ -98385,34 +98415,34 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 98391 "parsing/parser.ml" +# 98421 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 98397 "parsing/parser.ml" +# 98427 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 98407 "parsing/parser.ml" +# 98437 "parsing/parser.ml" in let tuple_with_modes = let m1 = let _1 = _1_inlined1 in -# 4401 "parsing/parser.mly" +# 4402 "parsing/parser.mly" (_1) -# 98416 "parsing/parser.ml" +# 98446 "parsing/parser.ml" in let ty = @@ -98420,18 +98450,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 98424 "parsing/parser.ml" +# 98454 "parsing/parser.ml" in # 1362 "parsing/parser.mly" ( xs ) -# 98429 "parsing/parser.ml" +# 98459 "parsing/parser.ml" in -# 4457 "parsing/parser.mly" +# 4458 "parsing/parser.mly" ( ty, ltys ) -# 98435 "parsing/parser.ml" +# 98465 "parsing/parser.ml" in let _endpos_ty_ = _endpos_xs_ in @@ -98441,29 +98471,29 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4375 "parsing/parser.mly" +# 4376 "parsing/parser.mly" (mkloc _1 (make_loc _sloc)) -# 98447 "parsing/parser.ml" +# 98477 "parsing/parser.ml" in -# 4380 "parsing/parser.mly" +# 4381 "parsing/parser.mly" (_1) -# 98453 "parsing/parser.ml" +# 98483 "parsing/parser.ml" in let _loc_ty_ = (_startpos_ty_, _endpos_ty_) in -# 4405 "parsing/parser.mly" +# 4406 "parsing/parser.mly" ( let m = Mode.concat m0 m1 in (ty, _loc_ty_), m ) -# 98463 "parsing/parser.ml" +# 98493 "parsing/parser.ml" in -# 4332 "parsing/parser.mly" +# 4333 "parsing/parser.mly" ( let (tuple, tuple_loc), arg_modes = tuple_with_modes in let (codomain, codomain_loc), ret_modes = codomain_with_modes in let ty, ltys = tuple in @@ -98474,7 +98504,7 @@ module Tables = struct mktyp_with_modes arg_modes domain , mktyp_with_modes ret_modes (maybe_curry_typ codomain codomain_loc)) ) -# 98478 "parsing/parser.ml" +# 98508 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined3_, _startpos_label_) in @@ -98484,13 +98514,13 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 98488 "parsing/parser.ml" +# 98518 "parsing/parser.ml" in -# 4343 "parsing/parser.mly" +# 4344 "parsing/parser.mly" ( _1 ) -# 98494 "parsing/parser.ml" +# 98524 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -98539,7 +98569,7 @@ module Tables = struct let label : ( # 1016 "parsing/parser.mly" (string) -# 98543 "parsing/parser.ml" +# 98573 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -98549,18 +98579,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 98553 "parsing/parser.ml" +# 98583 "parsing/parser.ml" in # 1362 "parsing/parser.mly" ( xs ) -# 98558 "parsing/parser.ml" +# 98588 "parsing/parser.ml" in -# 4457 "parsing/parser.mly" +# 4458 "parsing/parser.mly" ( ty, ltys ) -# 98564 "parsing/parser.ml" +# 98594 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in @@ -98568,11 +98598,11 @@ module Tables = struct let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in -# 4345 "parsing/parser.mly" +# 4346 "parsing/parser.mly" ( let ty, ltys = _3 in ptyp_ltuple _sloc ((Some label, ty) :: ltys) ) -# 98576 "parsing/parser.ml" +# 98606 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -98599,24 +98629,24 @@ module Tables = struct let ys = # 260 "" ( List.flatten xss ) -# 98603 "parsing/parser.ml" +# 98633 "parsing/parser.ml" in let xs = let items = # 1278 "parsing/parser.mly" ( [] ) -# 98609 "parsing/parser.ml" +# 98639 "parsing/parser.ml" in # 1728 "parsing/parser.mly" ( items ) -# 98614 "parsing/parser.ml" +# 98644 "parsing/parser.ml" in # 267 "" ( xs @ ys ) -# 98620 "parsing/parser.ml" +# 98650 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in @@ -98625,13 +98655,13 @@ module Tables = struct # 1197 "parsing/parser.mly" ( extra_str _startpos _endpos _1 ) -# 98629 "parsing/parser.ml" +# 98659 "parsing/parser.ml" in # 1721 "parsing/parser.mly" ( _1 ) -# 98635 "parsing/parser.ml" +# 98665 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -98672,7 +98702,7 @@ module Tables = struct let ys = # 260 "" ( List.flatten xss ) -# 98676 "parsing/parser.ml" +# 98706 "parsing/parser.ml" in let xs = let items = @@ -98680,14 +98710,14 @@ module Tables = struct let _1 = let _1 = let attrs = -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 98686 "parsing/parser.ml" +# 98716 "parsing/parser.ml" in # 1735 "parsing/parser.mly" ( mkstrexp e attrs ) -# 98691 "parsing/parser.ml" +# 98721 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in @@ -98695,7 +98725,7 @@ module Tables = struct # 1209 "parsing/parser.mly" ( text_str _startpos @ [_1] ) -# 98699 "parsing/parser.ml" +# 98729 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in @@ -98705,25 +98735,25 @@ module Tables = struct # 1228 "parsing/parser.mly" ( mark_rhs_docs _startpos _endpos; _1 ) -# 98709 "parsing/parser.ml" +# 98739 "parsing/parser.ml" in # 1280 "parsing/parser.mly" ( x ) -# 98715 "parsing/parser.ml" +# 98745 "parsing/parser.ml" in # 1728 "parsing/parser.mly" ( items ) -# 98721 "parsing/parser.ml" +# 98751 "parsing/parser.ml" in # 267 "" ( xs @ ys ) -# 98727 "parsing/parser.ml" +# 98757 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_e_) in @@ -98732,13 +98762,13 @@ module Tables = struct # 1197 "parsing/parser.mly" ( extra_str _startpos _endpos _1 ) -# 98736 "parsing/parser.ml" +# 98766 "parsing/parser.ml" in # 1721 "parsing/parser.mly" ( _1 ) -# 98742 "parsing/parser.ml" +# 98772 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -98766,7 +98796,7 @@ module Tables = struct # 1750 "parsing/parser.mly" ( val_of_let_bindings ~loc:_sloc _1 ) -# 98770 "parsing/parser.ml" +# 98800 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -98800,9 +98830,9 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 98806 "parsing/parser.ml" +# 98836 "parsing/parser.ml" in let _endpos__2_ = _endpos__1_inlined1_ in @@ -98813,7 +98843,7 @@ module Tables = struct # 1753 "parsing/parser.mly" ( let docs = symbol_docs _sloc in Pstr_extension (_1, add_docs_attrs docs _2) ) -# 98817 "parsing/parser.ml" +# 98847 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -98823,13 +98853,13 @@ module Tables = struct # 1244 "parsing/parser.mly" ( mkstr ~loc:_sloc _1 ) -# 98827 "parsing/parser.ml" +# 98857 "parsing/parser.ml" in # 1782 "parsing/parser.mly" ( _1 ) -# 98833 "parsing/parser.ml" +# 98863 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -98855,7 +98885,7 @@ module Tables = struct let _1 = # 1756 "parsing/parser.mly" ( Pstr_attribute _1 ) -# 98859 "parsing/parser.ml" +# 98889 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -98863,13 +98893,13 @@ module Tables = struct # 1244 "parsing/parser.mly" ( mkstr ~loc:_sloc _1 ) -# 98867 "parsing/parser.ml" +# 98897 "parsing/parser.ml" in # 1782 "parsing/parser.mly" ( _1 ) -# 98873 "parsing/parser.ml" +# 98903 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -98895,7 +98925,7 @@ module Tables = struct let _1 = # 1760 "parsing/parser.mly" ( pstr_primitive _1 ) -# 98899 "parsing/parser.ml" +# 98929 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -98903,13 +98933,13 @@ module Tables = struct # 1261 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 98907 "parsing/parser.ml" +# 98937 "parsing/parser.ml" in # 1782 "parsing/parser.mly" ( _1 ) -# 98913 "parsing/parser.ml" +# 98943 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -98935,7 +98965,7 @@ module Tables = struct let _1 = # 1762 "parsing/parser.mly" ( pstr_primitive _1 ) -# 98939 "parsing/parser.ml" +# 98969 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -98943,13 +98973,13 @@ module Tables = struct # 1261 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 98947 "parsing/parser.ml" +# 98977 "parsing/parser.ml" in # 1782 "parsing/parser.mly" ( _1 ) -# 98953 "parsing/parser.ml" +# 98983 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -98986,24 +99016,24 @@ module Tables = struct let _1 = # 1459 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 98990 "parsing/parser.ml" +# 99020 "parsing/parser.ml" in -# 3776 "parsing/parser.mly" +# 3777 "parsing/parser.mly" ( _1 ) -# 98995 "parsing/parser.ml" +# 99025 "parsing/parser.ml" in -# 3759 "parsing/parser.mly" +# 3760 "parsing/parser.mly" ( _1 ) -# 99001 "parsing/parser.ml" +# 99031 "parsing/parser.ml" in # 1764 "parsing/parser.mly" ( pstr_type _1 ) -# 99007 "parsing/parser.ml" +# 99037 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_bs_, _startpos_a_) in @@ -99013,13 +99043,13 @@ module Tables = struct # 1261 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 99017 "parsing/parser.ml" +# 99047 "parsing/parser.ml" in # 1782 "parsing/parser.mly" ( _1 ) -# 99023 "parsing/parser.ml" +# 99053 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -99104,16 +99134,16 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 99110 "parsing/parser.ml" +# 99140 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let cs = # 1451 "parsing/parser.mly" ( List.rev xs ) -# 99117 "parsing/parser.ml" +# 99147 "parsing/parser.ml" in let tid = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in @@ -99123,44 +99153,44 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 99127 "parsing/parser.ml" +# 99157 "parsing/parser.ml" in let _4 = -# 4834 "parsing/parser.mly" +# 4835 "parsing/parser.mly" ( Recursive ) -# 99133 "parsing/parser.ml" +# 99163 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 99140 "parsing/parser.ml" +# 99170 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4117 "parsing/parser.mly" +# 4118 "parsing/parser.mly" ( let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in Te.mk tid cs ~params ~priv ~attrs ~docs, ext ) -# 99152 "parsing/parser.ml" +# 99182 "parsing/parser.ml" in -# 4100 "parsing/parser.mly" +# 4101 "parsing/parser.mly" ( _1 ) -# 99158 "parsing/parser.ml" +# 99188 "parsing/parser.ml" in # 1766 "parsing/parser.mly" ( pstr_typext _1 ) -# 99164 "parsing/parser.ml" +# 99194 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined3_ in @@ -99170,13 +99200,13 @@ module Tables = struct # 1261 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 99174 "parsing/parser.ml" +# 99204 "parsing/parser.ml" in # 1782 "parsing/parser.mly" ( _1 ) -# 99180 "parsing/parser.ml" +# 99210 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -99268,16 +99298,16 @@ module Tables = struct let attrs2 = let _1 = _1_inlined4 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 99274 "parsing/parser.ml" +# 99304 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in let cs = # 1451 "parsing/parser.mly" ( List.rev xs ) -# 99281 "parsing/parser.ml" +# 99311 "parsing/parser.ml" in let tid = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in @@ -99287,7 +99317,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 99291 "parsing/parser.ml" +# 99321 "parsing/parser.ml" in let _4 = @@ -99296,41 +99326,41 @@ module Tables = struct let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in -# 4836 "parsing/parser.mly" +# 4837 "parsing/parser.mly" ( not_expecting _loc "nonrec flag" ) -# 99302 "parsing/parser.ml" +# 99332 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 99310 "parsing/parser.ml" +# 99340 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4117 "parsing/parser.mly" +# 4118 "parsing/parser.mly" ( let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in Te.mk tid cs ~params ~priv ~attrs ~docs, ext ) -# 99322 "parsing/parser.ml" +# 99352 "parsing/parser.ml" in -# 4100 "parsing/parser.mly" +# 4101 "parsing/parser.mly" ( _1 ) -# 99328 "parsing/parser.ml" +# 99358 "parsing/parser.ml" in # 1766 "parsing/parser.mly" ( pstr_typext _1 ) -# 99334 "parsing/parser.ml" +# 99364 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined4_ in @@ -99340,13 +99370,13 @@ module Tables = struct # 1261 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 99344 "parsing/parser.ml" +# 99374 "parsing/parser.ml" in # 1782 "parsing/parser.mly" ( _1 ) -# 99350 "parsing/parser.ml" +# 99380 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -99372,7 +99402,7 @@ module Tables = struct let _1 = # 1768 "parsing/parser.mly" ( pstr_exception _1 ) -# 99376 "parsing/parser.ml" +# 99406 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -99380,13 +99410,13 @@ module Tables = struct # 1261 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 99384 "parsing/parser.ml" +# 99414 "parsing/parser.ml" in # 1782 "parsing/parser.mly" ( _1 ) -# 99390 "parsing/parser.ml" +# 99420 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -99449,9 +99479,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 99455 "parsing/parser.ml" +# 99485 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -99463,15 +99493,15 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 99467 "parsing/parser.ml" +# 99497 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 99475 "parsing/parser.ml" +# 99505 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in @@ -99484,13 +99514,13 @@ module Tables = struct let attrs = attrs1 @ attrs2 in let body = Mb.mk name body ~attrs ~loc ~docs in Pstr_module body, ext ) -# 99488 "parsing/parser.ml" +# 99518 "parsing/parser.ml" in # 1770 "parsing/parser.mly" ( _1 ) -# 99494 "parsing/parser.ml" +# 99524 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined3_ in @@ -99500,13 +99530,13 @@ module Tables = struct # 1261 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 99504 "parsing/parser.ml" +# 99534 "parsing/parser.ml" in # 1782 "parsing/parser.mly" ( _1 ) -# 99510 "parsing/parser.ml" +# 99540 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -99585,9 +99615,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 99591 "parsing/parser.ml" +# 99621 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -99599,15 +99629,15 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 99603 "parsing/parser.ml" +# 99633 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 99611 "parsing/parser.ml" +# 99641 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in @@ -99622,25 +99652,25 @@ module Tables = struct ext, Mb.mk name body ~attrs ~loc ~docs ) -# 99626 "parsing/parser.ml" +# 99656 "parsing/parser.ml" in # 1459 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 99632 "parsing/parser.ml" +# 99662 "parsing/parser.ml" in # 1834 "parsing/parser.mly" ( _1 ) -# 99638 "parsing/parser.ml" +# 99668 "parsing/parser.ml" in # 1772 "parsing/parser.mly" ( pstr_recmodule _1 ) -# 99644 "parsing/parser.ml" +# 99674 "parsing/parser.ml" in let _endpos__1_ = _endpos_bs_ in @@ -99650,13 +99680,13 @@ module Tables = struct # 1261 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 99654 "parsing/parser.ml" +# 99684 "parsing/parser.ml" in # 1782 "parsing/parser.mly" ( _1 ) -# 99660 "parsing/parser.ml" +# 99690 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -99682,7 +99712,7 @@ module Tables = struct let _1 = # 1774 "parsing/parser.mly" ( let (body, ext) = _1 in (Pstr_modtype body, ext) ) -# 99686 "parsing/parser.ml" +# 99716 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -99690,13 +99720,13 @@ module Tables = struct # 1261 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 99694 "parsing/parser.ml" +# 99724 "parsing/parser.ml" in # 1782 "parsing/parser.mly" ( _1 ) -# 99700 "parsing/parser.ml" +# 99730 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -99722,7 +99752,7 @@ module Tables = struct let _1 = # 1776 "parsing/parser.mly" ( let (body, ext) = _1 in (Pstr_open body, ext) ) -# 99726 "parsing/parser.ml" +# 99756 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -99730,13 +99760,13 @@ module Tables = struct # 1261 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 99734 "parsing/parser.ml" +# 99764 "parsing/parser.ml" in # 1782 "parsing/parser.mly" ( _1 ) -# 99740 "parsing/parser.ml" +# 99770 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -99808,7 +99838,7 @@ module Tables = struct let _1_inlined2 : ( # 1016 "parsing/parser.mly" (string) -# 99812 "parsing/parser.ml" +# 99842 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let params : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic params in let virt : (Asttypes.virtual_flag) = Obj.magic virt in @@ -99826,9 +99856,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 99832 "parsing/parser.ml" +# 99862 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -99840,15 +99870,15 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 99844 "parsing/parser.ml" +# 99874 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 99852 "parsing/parser.ml" +# 99882 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in @@ -99863,25 +99893,25 @@ module Tables = struct ext, Ci.mk id body ~virt ~params ~attrs ~loc ~docs ) -# 99867 "parsing/parser.ml" +# 99897 "parsing/parser.ml" in # 1459 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 99873 "parsing/parser.ml" +# 99903 "parsing/parser.ml" in # 2204 "parsing/parser.mly" ( _1 ) -# 99879 "parsing/parser.ml" +# 99909 "parsing/parser.ml" in # 1778 "parsing/parser.mly" ( let (ext, l) = _1 in (Pstr_class l, ext) ) -# 99885 "parsing/parser.ml" +# 99915 "parsing/parser.ml" in let _endpos__1_ = _endpos_bs_ in @@ -99891,13 +99921,13 @@ module Tables = struct # 1261 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 99895 "parsing/parser.ml" +# 99925 "parsing/parser.ml" in # 1782 "parsing/parser.mly" ( _1 ) -# 99901 "parsing/parser.ml" +# 99931 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -99923,7 +99953,7 @@ module Tables = struct let _1 = # 1780 "parsing/parser.mly" ( let (ext, l) = _1 in (Pstr_class_type l, ext) ) -# 99927 "parsing/parser.ml" +# 99957 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -99931,13 +99961,13 @@ module Tables = struct # 1261 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 99935 "parsing/parser.ml" +# 99965 "parsing/parser.ml" in # 1782 "parsing/parser.mly" ( _1 ) -# 99941 "parsing/parser.ml" +# 99971 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -99991,16 +100021,16 @@ module Tables = struct let attrs2 = let _1 = _1_inlined1 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 99997 "parsing/parser.ml" +# 100027 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined1_ in let attrs1 = -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 100004 "parsing/parser.ml" +# 100034 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos_is_functor_ in @@ -100014,7 +100044,7 @@ module Tables = struct let incl = Incl.mk thing ~attrs ~loc ~docs in is_functor, incl, ext ) -# 100018 "parsing/parser.ml" +# 100048 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_is_functor_) in @@ -100032,7 +100062,7 @@ module Tables = struct in wrap_str_ext ~loc:_sloc item ext ) -# 100036 "parsing/parser.ml" +# 100066 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -100061,7 +100091,7 @@ module Tables = struct ignore (name, jkind); Misc.fatal_error "jkind syntax not implemented" ) -# 100065 "parsing/parser.ml" +# 100095 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -100084,9 +100114,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4911 "parsing/parser.mly" +# 4912 "parsing/parser.mly" ( "-" ) -# 100090 "parsing/parser.ml" +# 100120 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -100109,9 +100139,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4912 "parsing/parser.mly" +# 4913 "parsing/parser.mly" ( "-." ) -# 100115 "parsing/parser.ml" +# 100145 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -100164,9 +100194,9 @@ module Tables = struct let _v : (Parsetree.row_field) = let _5 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 100170 "parsing/parser.ml" +# 100200 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined1_ in @@ -100175,18 +100205,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 100179 "parsing/parser.ml" +# 100209 "parsing/parser.ml" in # 1362 "parsing/parser.mly" ( xs ) -# 100184 "parsing/parser.ml" +# 100214 "parsing/parser.ml" in -# 4573 "parsing/parser.mly" +# 4574 "parsing/parser.mly" ( _1 ) -# 100190 "parsing/parser.ml" +# 100220 "parsing/parser.ml" in let _1 = @@ -100196,18 +100226,18 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 100200 "parsing/parser.ml" +# 100230 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4559 "parsing/parser.mly" +# 4560 "parsing/parser.mly" ( let info = symbol_info _endpos in let attrs = add_info_attrs info _5 in Rf.tag ~loc:(make_loc _sloc) ~attrs _1 _3 _4 ) -# 100211 "parsing/parser.ml" +# 100241 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -100239,9 +100269,9 @@ module Tables = struct let _v : (Parsetree.row_field) = let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 100245 "parsing/parser.ml" +# 100275 "parsing/parser.ml" in let _endpos__2_ = _endpos__1_inlined1_ in @@ -100252,18 +100282,18 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 100256 "parsing/parser.ml" +# 100286 "parsing/parser.ml" in let _endpos = _endpos__2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4563 "parsing/parser.mly" +# 4564 "parsing/parser.mly" ( let info = symbol_info _endpos in let attrs = add_info_attrs info _2 in Rf.tag ~loc:(make_loc _sloc) ~attrs _1 true [] ) -# 100267 "parsing/parser.ml" +# 100297 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -100295,7 +100325,7 @@ module Tables = struct let _v : (Parsetree.toplevel_phrase) = let arg = # 124 "" ( None ) -# 100299 "parsing/parser.ml" +# 100329 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined1_ in let dir = @@ -100306,21 +100336,21 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 100310 "parsing/parser.ml" +# 100340 "parsing/parser.ml" in let _1 = # 2973 "parsing/parser.mly" ( () ) -# 100316 "parsing/parser.ml" +# 100346 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4797 "parsing/parser.mly" +# 4798 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 100324 "parsing/parser.ml" +# 100354 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -100353,7 +100383,7 @@ module Tables = struct let _1_inlined2 : ( # 1058 "parsing/parser.mly" (string * Location.t * string option) -# 100357 "parsing/parser.ml" +# 100387 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let _1_inlined1 : (Asttypes.label) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in @@ -100364,9 +100394,9 @@ module Tables = struct let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let x = let _1 = -# 4801 "parsing/parser.mly" +# 4802 "parsing/parser.mly" ( let (s, _, _) = _1 in Pdir_string s ) -# 100370 "parsing/parser.ml" +# 100400 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -100374,13 +100404,13 @@ module Tables = struct # 1266 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 100378 "parsing/parser.ml" +# 100408 "parsing/parser.ml" in # 126 "" ( Some x ) -# 100384 "parsing/parser.ml" +# 100414 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -100392,21 +100422,21 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 100396 "parsing/parser.ml" +# 100426 "parsing/parser.ml" in let _1 = # 2973 "parsing/parser.mly" ( () ) -# 100402 "parsing/parser.ml" +# 100432 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4797 "parsing/parser.mly" +# 4798 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 100410 "parsing/parser.ml" +# 100440 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -100439,7 +100469,7 @@ module Tables = struct let _1_inlined2 : ( # 998 "parsing/parser.mly" (string * char option) -# 100443 "parsing/parser.ml" +# 100473 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let _1_inlined1 : (Asttypes.label) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in @@ -100450,9 +100480,9 @@ module Tables = struct let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let x = let _1 = -# 4802 "parsing/parser.mly" +# 4803 "parsing/parser.mly" ( let (n, m) = _1 in Pdir_int (n ,m) ) -# 100456 "parsing/parser.ml" +# 100486 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -100460,13 +100490,13 @@ module Tables = struct # 1266 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 100464 "parsing/parser.ml" +# 100494 "parsing/parser.ml" in # 126 "" ( Some x ) -# 100470 "parsing/parser.ml" +# 100500 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -100478,21 +100508,21 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 100482 "parsing/parser.ml" +# 100512 "parsing/parser.ml" in let _1 = # 2973 "parsing/parser.mly" ( () ) -# 100488 "parsing/parser.ml" +# 100518 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4797 "parsing/parser.mly" +# 4798 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 100496 "parsing/parser.ml" +# 100526 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -100532,9 +100562,9 @@ module Tables = struct let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let x = let _1 = -# 4803 "parsing/parser.mly" +# 4804 "parsing/parser.mly" ( Pdir_ident _1 ) -# 100538 "parsing/parser.ml" +# 100568 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -100542,13 +100572,13 @@ module Tables = struct # 1266 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 100546 "parsing/parser.ml" +# 100576 "parsing/parser.ml" in # 126 "" ( Some x ) -# 100552 "parsing/parser.ml" +# 100582 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -100560,21 +100590,21 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 100564 "parsing/parser.ml" +# 100594 "parsing/parser.ml" in let _1 = # 2973 "parsing/parser.mly" ( () ) -# 100570 "parsing/parser.ml" +# 100600 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4797 "parsing/parser.mly" +# 4798 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 100578 "parsing/parser.ml" +# 100608 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -100614,9 +100644,9 @@ module Tables = struct let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let x = let _1 = -# 4804 "parsing/parser.mly" +# 4805 "parsing/parser.mly" ( Pdir_ident _1 ) -# 100620 "parsing/parser.ml" +# 100650 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -100624,13 +100654,13 @@ module Tables = struct # 1266 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 100628 "parsing/parser.ml" +# 100658 "parsing/parser.ml" in # 126 "" ( Some x ) -# 100634 "parsing/parser.ml" +# 100664 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -100642,21 +100672,21 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 100646 "parsing/parser.ml" +# 100676 "parsing/parser.ml" in let _1 = # 2973 "parsing/parser.mly" ( () ) -# 100652 "parsing/parser.ml" +# 100682 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4797 "parsing/parser.mly" +# 4798 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 100660 "parsing/parser.ml" +# 100690 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -100696,9 +100726,9 @@ module Tables = struct let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in let x = let _1 = -# 4805 "parsing/parser.mly" +# 4806 "parsing/parser.mly" ( Pdir_bool false ) -# 100702 "parsing/parser.ml" +# 100732 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -100706,13 +100736,13 @@ module Tables = struct # 1266 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 100710 "parsing/parser.ml" +# 100740 "parsing/parser.ml" in # 126 "" ( Some x ) -# 100716 "parsing/parser.ml" +# 100746 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -100724,21 +100754,21 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 100728 "parsing/parser.ml" +# 100758 "parsing/parser.ml" in let _1 = # 2973 "parsing/parser.mly" ( () ) -# 100734 "parsing/parser.ml" +# 100764 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4797 "parsing/parser.mly" +# 4798 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 100742 "parsing/parser.ml" +# 100772 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -100778,9 +100808,9 @@ module Tables = struct let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in let x = let _1 = -# 4806 "parsing/parser.mly" +# 4807 "parsing/parser.mly" ( Pdir_bool true ) -# 100784 "parsing/parser.ml" +# 100814 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -100788,13 +100818,13 @@ module Tables = struct # 1266 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 100792 "parsing/parser.ml" +# 100822 "parsing/parser.ml" in # 126 "" ( Some x ) -# 100798 "parsing/parser.ml" +# 100828 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -100806,21 +100836,21 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 100810 "parsing/parser.ml" +# 100840 "parsing/parser.ml" in let _1 = # 2973 "parsing/parser.mly" ( () ) -# 100816 "parsing/parser.ml" +# 100846 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4797 "parsing/parser.mly" +# 4798 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 100824 "parsing/parser.ml" +# 100854 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -100852,7 +100882,7 @@ module Tables = struct let _v : (Parsetree.toplevel_phrase) = let arg = # 124 "" ( None ) -# 100856 "parsing/parser.ml" +# 100886 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined1_ in let dir = @@ -100863,21 +100893,21 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 100867 "parsing/parser.ml" +# 100897 "parsing/parser.ml" in let _1 = # 2974 "parsing/parser.mly" ( () ) -# 100873 "parsing/parser.ml" +# 100903 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4797 "parsing/parser.mly" +# 4798 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 100881 "parsing/parser.ml" +# 100911 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -100910,7 +100940,7 @@ module Tables = struct let _1_inlined2 : ( # 1058 "parsing/parser.mly" (string * Location.t * string option) -# 100914 "parsing/parser.ml" +# 100944 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let _1_inlined1 : (Asttypes.label) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in @@ -100921,9 +100951,9 @@ module Tables = struct let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let x = let _1 = -# 4801 "parsing/parser.mly" +# 4802 "parsing/parser.mly" ( let (s, _, _) = _1 in Pdir_string s ) -# 100927 "parsing/parser.ml" +# 100957 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -100931,13 +100961,13 @@ module Tables = struct # 1266 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 100935 "parsing/parser.ml" +# 100965 "parsing/parser.ml" in # 126 "" ( Some x ) -# 100941 "parsing/parser.ml" +# 100971 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -100949,21 +100979,21 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 100953 "parsing/parser.ml" +# 100983 "parsing/parser.ml" in let _1 = # 2974 "parsing/parser.mly" ( () ) -# 100959 "parsing/parser.ml" +# 100989 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4797 "parsing/parser.mly" +# 4798 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 100967 "parsing/parser.ml" +# 100997 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -100996,7 +101026,7 @@ module Tables = struct let _1_inlined2 : ( # 998 "parsing/parser.mly" (string * char option) -# 101000 "parsing/parser.ml" +# 101030 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let _1_inlined1 : (Asttypes.label) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in @@ -101007,9 +101037,9 @@ module Tables = struct let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let x = let _1 = -# 4802 "parsing/parser.mly" +# 4803 "parsing/parser.mly" ( let (n, m) = _1 in Pdir_int (n ,m) ) -# 101013 "parsing/parser.ml" +# 101043 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -101017,13 +101047,13 @@ module Tables = struct # 1266 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 101021 "parsing/parser.ml" +# 101051 "parsing/parser.ml" in # 126 "" ( Some x ) -# 101027 "parsing/parser.ml" +# 101057 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -101035,21 +101065,21 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 101039 "parsing/parser.ml" +# 101069 "parsing/parser.ml" in let _1 = # 2974 "parsing/parser.mly" ( () ) -# 101045 "parsing/parser.ml" +# 101075 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4797 "parsing/parser.mly" +# 4798 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 101053 "parsing/parser.ml" +# 101083 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -101089,9 +101119,9 @@ module Tables = struct let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let x = let _1 = -# 4803 "parsing/parser.mly" +# 4804 "parsing/parser.mly" ( Pdir_ident _1 ) -# 101095 "parsing/parser.ml" +# 101125 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -101099,13 +101129,13 @@ module Tables = struct # 1266 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 101103 "parsing/parser.ml" +# 101133 "parsing/parser.ml" in # 126 "" ( Some x ) -# 101109 "parsing/parser.ml" +# 101139 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -101117,21 +101147,21 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 101121 "parsing/parser.ml" +# 101151 "parsing/parser.ml" in let _1 = # 2974 "parsing/parser.mly" ( () ) -# 101127 "parsing/parser.ml" +# 101157 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4797 "parsing/parser.mly" +# 4798 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 101135 "parsing/parser.ml" +# 101165 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -101171,9 +101201,9 @@ module Tables = struct let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let x = let _1 = -# 4804 "parsing/parser.mly" +# 4805 "parsing/parser.mly" ( Pdir_ident _1 ) -# 101177 "parsing/parser.ml" +# 101207 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -101181,13 +101211,13 @@ module Tables = struct # 1266 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 101185 "parsing/parser.ml" +# 101215 "parsing/parser.ml" in # 126 "" ( Some x ) -# 101191 "parsing/parser.ml" +# 101221 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -101199,21 +101229,21 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 101203 "parsing/parser.ml" +# 101233 "parsing/parser.ml" in let _1 = # 2974 "parsing/parser.mly" ( () ) -# 101209 "parsing/parser.ml" +# 101239 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4797 "parsing/parser.mly" +# 4798 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 101217 "parsing/parser.ml" +# 101247 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -101253,9 +101283,9 @@ module Tables = struct let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in let x = let _1 = -# 4805 "parsing/parser.mly" +# 4806 "parsing/parser.mly" ( Pdir_bool false ) -# 101259 "parsing/parser.ml" +# 101289 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -101263,13 +101293,13 @@ module Tables = struct # 1266 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 101267 "parsing/parser.ml" +# 101297 "parsing/parser.ml" in # 126 "" ( Some x ) -# 101273 "parsing/parser.ml" +# 101303 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -101281,21 +101311,21 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 101285 "parsing/parser.ml" +# 101315 "parsing/parser.ml" in let _1 = # 2974 "parsing/parser.mly" ( () ) -# 101291 "parsing/parser.ml" +# 101321 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4797 "parsing/parser.mly" +# 4798 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 101299 "parsing/parser.ml" +# 101329 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -101335,9 +101365,9 @@ module Tables = struct let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in let x = let _1 = -# 4806 "parsing/parser.mly" +# 4807 "parsing/parser.mly" ( Pdir_bool true ) -# 101341 "parsing/parser.ml" +# 101371 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -101345,13 +101375,13 @@ module Tables = struct # 1266 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 101349 "parsing/parser.ml" +# 101379 "parsing/parser.ml" in # 126 "" ( Some x ) -# 101355 "parsing/parser.ml" +# 101385 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -101363,21 +101393,21 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 101367 "parsing/parser.ml" +# 101397 "parsing/parser.ml" in let _1 = # 2974 "parsing/parser.mly" ( () ) -# 101373 "parsing/parser.ml" +# 101403 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4797 "parsing/parser.mly" +# 4798 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 101381 "parsing/parser.ml" +# 101411 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -101417,14 +101447,14 @@ module Tables = struct let _1 = let _1 = let attrs = -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 101423 "parsing/parser.ml" +# 101453 "parsing/parser.ml" in # 1735 "parsing/parser.mly" ( mkstrexp e attrs ) -# 101428 "parsing/parser.ml" +# 101458 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in @@ -101432,7 +101462,7 @@ module Tables = struct # 1209 "parsing/parser.mly" ( text_str _startpos @ [_1] ) -# 101436 "parsing/parser.ml" +# 101466 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in @@ -101441,13 +101471,13 @@ module Tables = struct # 1197 "parsing/parser.mly" ( extra_str _startpos _endpos _1 ) -# 101445 "parsing/parser.ml" +# 101475 "parsing/parser.ml" in # 1499 "parsing/parser.mly" ( Ptop_def _1 ) -# 101451 "parsing/parser.ml" +# 101481 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -101480,7 +101510,7 @@ module Tables = struct let _1 = # 260 "" ( List.flatten xss ) -# 101484 "parsing/parser.ml" +# 101514 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in @@ -101488,13 +101518,13 @@ module Tables = struct # 1197 "parsing/parser.mly" ( extra_str _startpos _endpos _1 ) -# 101492 "parsing/parser.ml" +# 101522 "parsing/parser.ml" in # 1503 "parsing/parser.mly" ( Ptop_def _1 ) -# 101498 "parsing/parser.ml" +# 101528 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -101526,7 +101556,7 @@ module Tables = struct let _v : (Parsetree.toplevel_phrase) = # 1507 "parsing/parser.mly" ( _1 ) -# 101530 "parsing/parser.ml" +# 101560 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -101551,7 +101581,7 @@ module Tables = struct let _v : (Parsetree.toplevel_phrase) = # 1510 "parsing/parser.mly" ( raise End_of_file ) -# 101555 "parsing/parser.ml" +# 101585 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -101574,9 +101604,9 @@ module Tables = struct let _startpos = _startpos_ty_ in let _endpos = _endpos_ty_ in let _v : (Parsetree.core_type) = -# 4446 "parsing/parser.mly" +# 4447 "parsing/parser.mly" ( ty ) -# 101580 "parsing/parser.ml" +# 101610 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -101617,18 +101647,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 101621 "parsing/parser.ml" +# 101651 "parsing/parser.ml" in # 1362 "parsing/parser.mly" ( xs ) -# 101626 "parsing/parser.ml" +# 101656 "parsing/parser.ml" in -# 4457 "parsing/parser.mly" +# 4458 "parsing/parser.mly" ( ty, ltys ) -# 101632 "parsing/parser.ml" +# 101662 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_ty_) in @@ -101636,11 +101666,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4448 "parsing/parser.mly" +# 4449 "parsing/parser.mly" ( let ty, ltys = _1 in ptyp_ltuple _sloc ((None, ty) :: ltys) ) -# 101644 "parsing/parser.ml" +# 101674 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -101672,7 +101702,7 @@ module Tables = struct let _v : (N_ary.type_constraint) = # 3430 "parsing/parser.mly" ( N_ary.Pconstraint _2 ) -# 101676 "parsing/parser.ml" +# 101706 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -101718,7 +101748,7 @@ module Tables = struct let _v : (N_ary.type_constraint) = # 3431 "parsing/parser.mly" ( N_ary.Pcoerce (Some _2, _4) ) -# 101722 "parsing/parser.ml" +# 101752 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -101750,7 +101780,7 @@ module Tables = struct let _v : (N_ary.type_constraint) = # 3432 "parsing/parser.mly" ( N_ary.Pcoerce (None, _2) ) -# 101754 "parsing/parser.ml" +# 101784 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -101782,7 +101812,7 @@ module Tables = struct let _v : (N_ary.type_constraint) = # 3433 "parsing/parser.mly" ( syntax_error() ) -# 101786 "parsing/parser.ml" +# 101816 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -101814,7 +101844,7 @@ module Tables = struct let _v : (N_ary.type_constraint) = # 3434 "parsing/parser.mly" ( syntax_error() ) -# 101818 "parsing/parser.ml" +# 101848 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -101830,9 +101860,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = -# 3854 "parsing/parser.mly" +# 3855 "parsing/parser.mly" ( (Ptype_abstract, Public, None) ) -# 101836 "parsing/parser.ml" +# 101866 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -101862,9 +101892,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = -# 3856 "parsing/parser.mly" +# 3857 "parsing/parser.mly" ( _2 ) -# 101868 "parsing/parser.ml" +# 101898 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -101887,9 +101917,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4754 "parsing/parser.mly" +# 4755 "parsing/parser.mly" ( _1 ) -# 101893 "parsing/parser.ml" +# 101923 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -101935,18 +101965,18 @@ module Tables = struct let _v : (Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) = let _3 = let _1 = _1_inlined2 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 101941 "parsing/parser.ml" +# 101971 "parsing/parser.ml" in let _2 = let _startpos__1_ = _startpos__1_inlined1_ in let _1 = let _1 = -# 3930 "parsing/parser.mly" +# 3931 "parsing/parser.mly" ( Ptyp_var tyvar ) -# 101950 "parsing/parser.ml" +# 101980 "parsing/parser.ml" in let _endpos__1_ = _endpos_tyvar_ in let _endpos = _endpos__1_ in @@ -101955,19 +101985,19 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 101959 "parsing/parser.ml" +# 101989 "parsing/parser.ml" in -# 3933 "parsing/parser.mly" +# 3934 "parsing/parser.mly" ( _1 ) -# 101965 "parsing/parser.ml" +# 101995 "parsing/parser.ml" in -# 3924 "parsing/parser.mly" +# 3925 "parsing/parser.mly" ( {_2 with ptyp_attributes = _3}, _1 ) -# 101971 "parsing/parser.ml" +# 102001 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -102006,18 +102036,18 @@ module Tables = struct let _v : (Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) = let _3 = let _1 = _1_inlined2 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 102012 "parsing/parser.ml" +# 102042 "parsing/parser.ml" in let _2 = let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let _1 = let _1 = -# 3932 "parsing/parser.mly" +# 3933 "parsing/parser.mly" ( Ptyp_any ) -# 102021 "parsing/parser.ml" +# 102051 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -102025,19 +102055,19 @@ module Tables = struct # 1242 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 102029 "parsing/parser.ml" +# 102059 "parsing/parser.ml" in -# 3933 "parsing/parser.mly" +# 3934 "parsing/parser.mly" ( _1 ) -# 102035 "parsing/parser.ml" +# 102065 "parsing/parser.ml" in -# 3924 "parsing/parser.mly" +# 3925 "parsing/parser.mly" ( {_2 with ptyp_attributes = _3}, _1 ) -# 102041 "parsing/parser.ml" +# 102071 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -102053,9 +102083,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = -# 3864 "parsing/parser.mly" +# 3865 "parsing/parser.mly" ( [] ) -# 102059 "parsing/parser.ml" +# 102089 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -102078,9 +102108,9 @@ module Tables = struct let _startpos = _startpos_p_ in let _endpos = _endpos_p_ in let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = -# 3866 "parsing/parser.mly" +# 3867 "parsing/parser.mly" ( [p] ) -# 102084 "parsing/parser.ml" +# 102114 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -102120,18 +102150,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 102124 "parsing/parser.ml" +# 102154 "parsing/parser.ml" in # 1362 "parsing/parser.mly" ( xs ) -# 102129 "parsing/parser.ml" +# 102159 "parsing/parser.ml" in -# 3870 "parsing/parser.mly" +# 3871 "parsing/parser.mly" ( ps ) -# 102135 "parsing/parser.ml" +# 102165 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -102159,15 +102189,15 @@ module Tables = struct let _1 : ( # 1016 "parsing/parser.mly" (string) -# 102163 "parsing/parser.ml" +# 102193 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (string) = -# 4751 "parsing/parser.mly" +# 4752 "parsing/parser.mly" ( _1 ^ "#" ) -# 102171 "parsing/parser.ml" +# 102201 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -102188,15 +102218,15 @@ module Tables = struct let _1 : ( # 1016 "parsing/parser.mly" (string) -# 102192 "parsing/parser.ml" +# 102222 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4748 "parsing/parser.mly" +# 4749 "parsing/parser.mly" ( _1 ) -# 102200 "parsing/parser.ml" +# 102230 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -102219,9 +102249,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4757 "parsing/parser.mly" +# 4758 "parsing/parser.mly" ( _1 ) -# 102225 "parsing/parser.ml" +# 102255 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -102237,9 +102267,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3944 "parsing/parser.mly" +# 3945 "parsing/parser.mly" ( NoVariance, NoInjectivity ) -# 102243 "parsing/parser.ml" +# 102273 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -102262,9 +102292,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3945 "parsing/parser.mly" +# 3946 "parsing/parser.mly" ( Covariant, NoInjectivity ) -# 102268 "parsing/parser.ml" +# 102298 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -102287,9 +102317,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3946 "parsing/parser.mly" +# 3947 "parsing/parser.mly" ( Contravariant, NoInjectivity ) -# 102293 "parsing/parser.ml" +# 102323 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -102312,9 +102342,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3947 "parsing/parser.mly" +# 3948 "parsing/parser.mly" ( NoVariance, Injective ) -# 102318 "parsing/parser.ml" +# 102348 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -102344,9 +102374,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3948 "parsing/parser.mly" +# 3949 "parsing/parser.mly" ( Covariant, Injective ) -# 102350 "parsing/parser.ml" +# 102380 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -102376,9 +102406,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3948 "parsing/parser.mly" +# 3949 "parsing/parser.mly" ( Covariant, Injective ) -# 102382 "parsing/parser.ml" +# 102412 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -102408,9 +102438,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3949 "parsing/parser.mly" +# 3950 "parsing/parser.mly" ( Contravariant, Injective ) -# 102414 "parsing/parser.ml" +# 102444 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -102440,9 +102470,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3949 "parsing/parser.mly" +# 3950 "parsing/parser.mly" ( Contravariant, Injective ) -# 102446 "parsing/parser.ml" +# 102476 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -102463,18 +102493,18 @@ module Tables = struct let _1 : ( # 990 "parsing/parser.mly" (string) -# 102467 "parsing/parser.ml" +# 102497 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.variance * Asttypes.injectivity) = let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 3951 "parsing/parser.mly" +# 3952 "parsing/parser.mly" ( if _1 = "+!" then Covariant, Injective else if _1 = "-!" then Contravariant, Injective else expecting _loc__1_ "type_variance" ) -# 102478 "parsing/parser.ml" +# 102508 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -102495,18 +102525,18 @@ module Tables = struct let _1 : ( # 1043 "parsing/parser.mly" (string) -# 102499 "parsing/parser.ml" +# 102529 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.variance * Asttypes.injectivity) = let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 3955 "parsing/parser.mly" +# 3956 "parsing/parser.mly" ( if _1 = "!+" then Covariant, Injective else if _1 = "!-" then Contravariant, Injective else expecting _loc__1_ "type_variance" ) -# 102510 "parsing/parser.ml" +# 102540 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -102527,7 +102557,7 @@ module Tables = struct let _1 : ( # 999 "parsing/parser.mly" (string * char option) -# 102531 "parsing/parser.ml" +# 102561 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -102536,9 +102566,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4630 "parsing/parser.mly" +# 4631 "parsing/parser.mly" ( unboxed_int _sloc _sloc Positive _1 ) -# 102542 "parsing/parser.ml" +# 102572 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -102559,7 +102589,7 @@ module Tables = struct let _1 : ( # 974 "parsing/parser.mly" (string * char option) -# 102563 "parsing/parser.ml" +# 102593 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -102568,9 +102598,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4631 "parsing/parser.mly" +# 4632 "parsing/parser.mly" ( unboxed_float _sloc Positive _1 ) -# 102574 "parsing/parser.ml" +# 102604 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -102604,24 +102634,24 @@ module Tables = struct let ys = # 260 "" ( List.flatten xss ) -# 102608 "parsing/parser.ml" +# 102638 "parsing/parser.ml" in let xs = let _1 = # 1278 "parsing/parser.mly" ( [] ) -# 102614 "parsing/parser.ml" +# 102644 "parsing/parser.ml" in # 1530 "parsing/parser.mly" ( _1 ) -# 102619 "parsing/parser.ml" +# 102649 "parsing/parser.ml" in # 267 "" ( xs @ ys ) -# 102625 "parsing/parser.ml" +# 102655 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in @@ -102630,13 +102660,13 @@ module Tables = struct # 1201 "parsing/parser.mly" ( extra_def _startpos _endpos _1 ) -# 102634 "parsing/parser.ml" +# 102664 "parsing/parser.ml" in # 1523 "parsing/parser.mly" ( _1 ) -# 102640 "parsing/parser.ml" +# 102670 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -102684,7 +102714,7 @@ module Tables = struct let ys = # 260 "" ( List.flatten xss ) -# 102688 "parsing/parser.ml" +# 102718 "parsing/parser.ml" in let xs = let _1 = @@ -102692,20 +102722,20 @@ module Tables = struct let _1 = let _1 = let attrs = -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 102698 "parsing/parser.ml" +# 102728 "parsing/parser.ml" in # 1735 "parsing/parser.mly" ( mkstrexp e attrs ) -# 102703 "parsing/parser.ml" +# 102733 "parsing/parser.ml" in # 1219 "parsing/parser.mly" ( Ptop_def [_1] ) -# 102709 "parsing/parser.ml" +# 102739 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in @@ -102713,25 +102743,25 @@ module Tables = struct # 1217 "parsing/parser.mly" ( text_def _startpos @ [_1] ) -# 102717 "parsing/parser.ml" +# 102747 "parsing/parser.ml" in # 1280 "parsing/parser.mly" ( x ) -# 102723 "parsing/parser.ml" +# 102753 "parsing/parser.ml" in # 1530 "parsing/parser.mly" ( _1 ) -# 102729 "parsing/parser.ml" +# 102759 "parsing/parser.ml" in # 267 "" ( xs @ ys ) -# 102735 "parsing/parser.ml" +# 102765 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_e_) in @@ -102740,13 +102770,13 @@ module Tables = struct # 1201 "parsing/parser.mly" ( extra_def _startpos _endpos _1 ) -# 102744 "parsing/parser.ml" +# 102774 "parsing/parser.ml" in # 1523 "parsing/parser.mly" ( _1 ) -# 102750 "parsing/parser.ml" +# 102780 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -102783,9 +102813,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Asttypes.label) = -# 4660 "parsing/parser.mly" +# 4661 "parsing/parser.mly" ( _2 ) -# 102789 "parsing/parser.ml" +# 102819 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -102824,9 +102854,9 @@ module Tables = struct let _v : (Asttypes.label) = let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 4661 "parsing/parser.mly" +# 4662 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) -# 102830 "parsing/parser.ml" +# 102860 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -102857,9 +102887,9 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Asttypes.label) = let _loc__2_ = (_startpos__2_, _endpos__2_) in -# 4662 "parsing/parser.mly" +# 4663 "parsing/parser.mly" ( expecting _loc__2_ "operator" ) -# 102863 "parsing/parser.ml" +# 102893 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -102897,9 +102927,9 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Asttypes.label) = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 4663 "parsing/parser.mly" +# 4664 "parsing/parser.mly" ( expecting _loc__3_ "module-expr" ) -# 102903 "parsing/parser.ml" +# 102933 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -102920,15 +102950,15 @@ module Tables = struct let _1 : ( # 1016 "parsing/parser.mly" (string) -# 102924 "parsing/parser.ml" +# 102954 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = -# 4666 "parsing/parser.mly" +# 4667 "parsing/parser.mly" ( _1 ) -# 102932 "parsing/parser.ml" +# 102962 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -102951,9 +102981,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = -# 4667 "parsing/parser.mly" +# 4668 "parsing/parser.mly" ( _1 ) -# 102957 "parsing/parser.ml" +# 102987 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -102976,9 +103006,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4742 "parsing/parser.mly" +# 4743 "parsing/parser.mly" ( _1 ) -# 102982 "parsing/parser.ml" +# 103012 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -103025,7 +103055,7 @@ module Tables = struct let _1_inlined1 : ( # 1016 "parsing/parser.mly" (string) -# 103029 "parsing/parser.ml" +# 103059 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let mutable_ : (Asttypes.mutable_flag) = Obj.magic mutable_ in let _1 : (Parsetree.attributes) = Obj.magic _1 in @@ -103037,9 +103067,9 @@ module Tables = struct Parsetree.attributes) = let label = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = -# 4617 "parsing/parser.mly" +# 4618 "parsing/parser.mly" ( _1 ) -# 103043 "parsing/parser.ml" +# 103073 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -103047,23 +103077,23 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 103051 "parsing/parser.ml" +# 103081 "parsing/parser.ml" in let attrs = -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 103057 "parsing/parser.ml" +# 103087 "parsing/parser.ml" in let _1 = -# 4904 "parsing/parser.mly" +# 4905 "parsing/parser.mly" ( Fresh ) -# 103062 "parsing/parser.ml" +# 103092 "parsing/parser.ml" in # 2355 "parsing/parser.mly" ( (label, mutable_, Cfk_virtual ty), attrs ) -# 103067 "parsing/parser.ml" +# 103097 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -103110,7 +103140,7 @@ module Tables = struct let _1_inlined1 : ( # 1016 "parsing/parser.mly" (string) -# 103114 "parsing/parser.ml" +# 103144 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _3 : (Asttypes.mutable_flag) = Obj.magic _3 in let _1 : (Parsetree.attributes) = Obj.magic _1 in @@ -103122,9 +103152,9 @@ module Tables = struct Parsetree.attributes) = let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = -# 4617 "parsing/parser.mly" +# 4618 "parsing/parser.mly" ( _1 ) -# 103128 "parsing/parser.ml" +# 103158 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -103132,23 +103162,23 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 103136 "parsing/parser.ml" +# 103166 "parsing/parser.ml" in let _2 = -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 103142 "parsing/parser.ml" +# 103172 "parsing/parser.ml" in let _1 = -# 4907 "parsing/parser.mly" +# 4908 "parsing/parser.mly" ( Fresh ) -# 103147 "parsing/parser.ml" +# 103177 "parsing/parser.ml" in # 2357 "parsing/parser.mly" ( (_4, _3, Cfk_concrete (_1, _6)), _2 ) -# 103152 "parsing/parser.ml" +# 103182 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -103201,7 +103231,7 @@ module Tables = struct let _1_inlined2 : ( # 1016 "parsing/parser.mly" (string) -# 103205 "parsing/parser.ml" +# 103235 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let _3 : (Asttypes.mutable_flag) = Obj.magic _3 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in @@ -103214,9 +103244,9 @@ module Tables = struct Parsetree.attributes) = let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _1 = -# 4617 "parsing/parser.mly" +# 4618 "parsing/parser.mly" ( _1 ) -# 103220 "parsing/parser.ml" +# 103250 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -103224,26 +103254,26 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 103228 "parsing/parser.ml" +# 103258 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 103236 "parsing/parser.ml" +# 103266 "parsing/parser.ml" in let _1 = -# 4908 "parsing/parser.mly" +# 4909 "parsing/parser.mly" ( Override ) -# 103242 "parsing/parser.ml" +# 103272 "parsing/parser.ml" in # 2357 "parsing/parser.mly" ( (_4, _3, Cfk_concrete (_1, _6)), _2 ) -# 103247 "parsing/parser.ml" +# 103277 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -103297,7 +103327,7 @@ module Tables = struct let _1_inlined1 : ( # 1016 "parsing/parser.mly" (string) -# 103301 "parsing/parser.ml" +# 103331 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _3 : (Asttypes.mutable_flag) = Obj.magic _3 in let _1 : (Parsetree.attributes) = Obj.magic _1 in @@ -103309,9 +103339,9 @@ module Tables = struct Parsetree.attributes) = let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = -# 4617 "parsing/parser.mly" +# 4618 "parsing/parser.mly" ( _1 ) -# 103315 "parsing/parser.ml" +# 103345 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -103319,20 +103349,20 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 103323 "parsing/parser.ml" +# 103353 "parsing/parser.ml" in let _startpos__4_ = _startpos__1_inlined1_ in let _2 = -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 103330 "parsing/parser.ml" +# 103360 "parsing/parser.ml" in let (_endpos__2_, _startpos__2_) = (_endpos__1_, _startpos__1_) in let _1 = -# 4907 "parsing/parser.mly" +# 4908 "parsing/parser.mly" ( Fresh ) -# 103336 "parsing/parser.ml" +# 103366 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__0_, _endpos__0_) in let _endpos = _endpos__7_ in @@ -103352,7 +103382,7 @@ module Tables = struct ( let e = mkexp_type_constraint ~loc:_sloc _7 _5 in (_4, _3, Cfk_concrete (_1, e)), _2 ) -# 103356 "parsing/parser.ml" +# 103386 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -103412,7 +103442,7 @@ module Tables = struct let _1_inlined2 : ( # 1016 "parsing/parser.mly" (string) -# 103416 "parsing/parser.ml" +# 103446 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let _3 : (Asttypes.mutable_flag) = Obj.magic _3 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in @@ -103425,9 +103455,9 @@ module Tables = struct Parsetree.attributes) = let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _1 = -# 4617 "parsing/parser.mly" +# 4618 "parsing/parser.mly" ( _1 ) -# 103431 "parsing/parser.ml" +# 103461 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in @@ -103435,23 +103465,23 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 103439 "parsing/parser.ml" +# 103469 "parsing/parser.ml" in let _startpos__4_ = _startpos__1_inlined2_ in let _2 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 103448 "parsing/parser.ml" +# 103478 "parsing/parser.ml" in let (_endpos__2_, _startpos__2_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let _1 = -# 4908 "parsing/parser.mly" +# 4909 "parsing/parser.mly" ( Override ) -# 103455 "parsing/parser.ml" +# 103485 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = if _startpos__1_ != _endpos__1_ then @@ -103470,7 +103500,7 @@ module Tables = struct ( let e = mkexp_type_constraint ~loc:_sloc _7 _5 in (_4, _3, Cfk_concrete (_1, e)), _2 ) -# 103474 "parsing/parser.ml" +# 103504 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -103491,15 +103521,15 @@ module Tables = struct let _1 : ( # 998 "parsing/parser.mly" (string * char option) -# 103495 "parsing/parser.ml" +# 103525 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.constant) = -# 4623 "parsing/parser.mly" +# 4624 "parsing/parser.mly" ( let (n, m) = _1 in Pconst_integer (n, m) ) -# 103503 "parsing/parser.ml" +# 103533 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -103520,15 +103550,15 @@ module Tables = struct let _1 : ( # 951 "parsing/parser.mly" (char) -# 103524 "parsing/parser.ml" +# 103554 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.constant) = -# 4624 "parsing/parser.mly" +# 4625 "parsing/parser.mly" ( Pconst_char _1 ) -# 103532 "parsing/parser.ml" +# 103562 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -103549,16 +103579,16 @@ module Tables = struct let _1 : ( # 1058 "parsing/parser.mly" (string * Location.t * string option) -# 103553 "parsing/parser.ml" +# 103583 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.constant) = -# 4625 "parsing/parser.mly" +# 4626 "parsing/parser.mly" ( let (s, strloc, d) = _1 in Pconst_string (s, strloc, d) ) -# 103562 "parsing/parser.ml" +# 103592 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -103579,15 +103609,15 @@ module Tables = struct let _1 : ( # 973 "parsing/parser.mly" (string * char option) -# 103583 "parsing/parser.ml" +# 103613 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.constant) = -# 4627 "parsing/parser.mly" +# 4628 "parsing/parser.mly" ( let (f, m) = _1 in Pconst_float (f, m) ) -# 103591 "parsing/parser.ml" +# 103621 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -103654,16 +103684,16 @@ module Tables = struct let _v : (Parsetree.value_description * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined3 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 103660 "parsing/parser.ml" +# 103690 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let modes = -# 4417 "parsing/parser.mly" +# 4418 "parsing/parser.mly" ( Mode.empty ) -# 103667 "parsing/parser.ml" +# 103697 "parsing/parser.ml" in let id = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in @@ -103673,29 +103703,29 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 103677 "parsing/parser.ml" +# 103707 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 103685 "parsing/parser.ml" +# 103715 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3720 "parsing/parser.mly" +# 3721 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let ty = mktyp_with_modes modes ty in let loc = make_loc _sloc in let docs = symbol_docs _sloc in Val.mk id ty ~attrs ~loc ~docs, ext ) -# 103699 "parsing/parser.ml" +# 103729 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -103769,18 +103799,18 @@ module Tables = struct let _v : (Parsetree.value_description * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined4 in -# 5002 "parsing/parser.mly" +# 5003 "parsing/parser.mly" ( _1 ) -# 103775 "parsing/parser.ml" +# 103805 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in let modes = let _1 = _1_inlined3 in -# 4418 "parsing/parser.mly" +# 4419 "parsing/parser.mly" (_1) -# 103784 "parsing/parser.ml" +# 103814 "parsing/parser.ml" in let id = @@ -103791,29 +103821,29 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 103795 "parsing/parser.ml" +# 103825 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 5006 "parsing/parser.mly" +# 5007 "parsing/parser.mly" ( _1 ) -# 103803 "parsing/parser.ml" +# 103833 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3720 "parsing/parser.mly" +# 3721 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let ty = mktyp_with_modes modes ty in let loc = make_loc _sloc in let docs = symbol_docs _sloc in Val.mk id ty ~attrs ~loc ~docs, ext ) -# 103817 "parsing/parser.ml" +# 103847 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -103829,9 +103859,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.virtual_flag) = -# 4868 "parsing/parser.mly" +# 4869 "parsing/parser.mly" ( Concrete ) -# 103835 "parsing/parser.ml" +# 103865 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -103854,9 +103884,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.virtual_flag) = -# 4869 "parsing/parser.mly" +# 4870 "parsing/parser.mly" ( Virtual ) -# 103860 "parsing/parser.ml" +# 103890 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -103879,9 +103909,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag) = -# 4892 "parsing/parser.mly" +# 4893 "parsing/parser.mly" ( Immutable ) -# 103885 "parsing/parser.ml" +# 103915 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -103911,9 +103941,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.mutable_flag) = -# 4893 "parsing/parser.mly" +# 4894 "parsing/parser.mly" ( Mutable ) -# 103917 "parsing/parser.ml" +# 103947 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -103943,9 +103973,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.mutable_flag) = -# 4894 "parsing/parser.mly" +# 4895 "parsing/parser.mly" ( Mutable ) -# 103949 "parsing/parser.ml" +# 103979 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -103968,9 +103998,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.private_flag) = -# 4899 "parsing/parser.mly" +# 4900 "parsing/parser.mly" ( Public ) -# 103974 "parsing/parser.ml" +# 104004 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -104000,9 +104030,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.private_flag) = -# 4900 "parsing/parser.mly" +# 4901 "parsing/parser.mly" ( Private ) -# 104006 "parsing/parser.ml" +# 104036 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -104032,9 +104062,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.private_flag) = -# 4901 "parsing/parser.mly" +# 4902 "parsing/parser.mly" ( Private ) -# 104038 "parsing/parser.ml" +# 104068 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -104096,27 +104126,27 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 104100 "parsing/parser.ml" +# 104130 "parsing/parser.ml" in # 1292 "parsing/parser.mly" ( xs ) -# 104105 "parsing/parser.ml" +# 104135 "parsing/parser.ml" in -# 3825 "parsing/parser.mly" +# 3826 "parsing/parser.mly" ( _1 ) -# 104111 "parsing/parser.ml" +# 104141 "parsing/parser.ml" in let _endpos__6_ = _endpos_xs_ in let _5 = let _1 = _1_inlined2 in -# 4238 "parsing/parser.mly" +# 4239 "parsing/parser.mly" ( _1 ) -# 104120 "parsing/parser.ml" +# 104150 "parsing/parser.ml" in let _3 = @@ -104127,14 +104157,14 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 104131 "parsing/parser.ml" +# 104161 "parsing/parser.ml" in let _endpos = _endpos__6_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4152 "parsing/parser.mly" +# 4153 "parsing/parser.mly" ( let lident = loc_last _3 in Pwith_type (_3, @@ -104144,7 +104174,7 @@ module Tables = struct ~manifest:_5 ~priv:_4 ~loc:(make_loc _sloc))) ) -# 104148 "parsing/parser.ml" +# 104178 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -104197,9 +104227,9 @@ module Tables = struct let _v : (Parsetree.with_constraint) = let _5 = let _1 = _1_inlined2 in -# 4238 "parsing/parser.mly" +# 4239 "parsing/parser.mly" ( _1 ) -# 104203 "parsing/parser.ml" +# 104233 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined2_ in @@ -104211,14 +104241,14 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 104215 "parsing/parser.ml" +# 104245 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4165 "parsing/parser.mly" +# 4166 "parsing/parser.mly" ( let lident = loc_last _3 in Pwith_typesubst (_3, @@ -104226,7 +104256,7 @@ module Tables = struct ~params:_2 ~manifest:_5 ~loc:(make_loc _sloc))) ) -# 104230 "parsing/parser.ml" +# 104260 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -104277,7 +104307,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 104281 "parsing/parser.ml" +# 104311 "parsing/parser.ml" in let _2 = @@ -104288,13 +104318,13 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 104292 "parsing/parser.ml" +# 104322 "parsing/parser.ml" in -# 4173 "parsing/parser.mly" +# 4174 "parsing/parser.mly" ( Pwith_module (_2, _4) ) -# 104298 "parsing/parser.ml" +# 104328 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -104345,7 +104375,7 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 104349 "parsing/parser.ml" +# 104379 "parsing/parser.ml" in let _2 = @@ -104356,13 +104386,13 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 104360 "parsing/parser.ml" +# 104390 "parsing/parser.ml" in -# 4175 "parsing/parser.mly" +# 4176 "parsing/parser.mly" ( Pwith_modsubst (_2, _4) ) -# 104366 "parsing/parser.ml" +# 104396 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -104420,13 +104450,13 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 104424 "parsing/parser.ml" +# 104454 "parsing/parser.ml" in -# 4177 "parsing/parser.mly" +# 4178 "parsing/parser.mly" ( Pwith_modtype (l, rhs) ) -# 104430 "parsing/parser.ml" +# 104460 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -104484,13 +104514,13 @@ module Tables = struct # 1205 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 104488 "parsing/parser.ml" +# 104518 "parsing/parser.ml" in -# 4179 "parsing/parser.mly" +# 4180 "parsing/parser.mly" ( Pwith_modtypesubst (l, rhs) ) -# 104494 "parsing/parser.ml" +# 104524 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -104513,9 +104543,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.private_flag) = -# 4182 "parsing/parser.mly" +# 4183 "parsing/parser.mly" ( Public ) -# 104519 "parsing/parser.ml" +# 104549 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -104545,9 +104575,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.private_flag) = -# 4183 "parsing/parser.mly" +# 4184 "parsing/parser.mly" ( Private ) -# 104551 "parsing/parser.ml" +# 104581 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -104697,12 +104727,12 @@ module Incremental = struct end -# 5044 "parsing/parser.mly" +# 5045 "parsing/parser.mly" -# 104704 "parsing/parser.ml" +# 104734 "parsing/parser.ml" # 269 "" -# 104709 "parsing/parser.ml" +# 104739 "parsing/parser.ml" diff --git a/ocaml/parsing/parser.mly b/ocaml/parsing/parser.mly index d034d70a7f5..93e630ded9c 100644 --- a/ocaml/parsing/parser.mly +++ b/ocaml/parsing/parser.mly @@ -3549,9 +3549,10 @@ pattern_no_exn: { let loc = $loc(label) in Some label, mkpatvar ~loc label } | TILDE LPAREN label = LIDENT COLON cty = core_type RPAREN - { let loc = $loc(label) in - let pat = mkpatvar ~loc label in - Some label, mkpat_opt_constraint ~loc pat (Some cty) } + { let lbl_loc = $loc(label) in + let pat_loc = $startpos($2), $endpos in + let pat = mkpatvar ~loc:lbl_loc label in + Some label, mkpat_opt_constraint ~loc:pat_loc pat (Some cty) } labeled_tuple_pat_element_list(self): | labeled_tuple_pat_element_list(self) COMMA labeled_tuple_pat_element(self)