From aaa8e22a6fe8c6ac9b24623c7ab4d5d1022f091d Mon Sep 17 00:00:00 2001 From: Antal Spector-Zabusky Date: Wed, 3 May 2023 16:38:59 -0400 Subject: [PATCH 1/3] Add `Location.ghostify` --- ocaml/parsing/extensions.ml | 4 ++-- ocaml/parsing/extensions_parsing.ml | 2 +- ocaml/parsing/location.ml | 5 +++++ ocaml/parsing/location.mli | 3 +++ ocaml/parsing/parser.mly | 2 +- ocaml/typing/typeclass.ml | 2 +- ocaml/typing/typecore.ml | 10 +++++----- ocaml/typing/typedecl.ml | 4 ++-- 8 files changed, 20 insertions(+), 12 deletions(-) diff --git a/ocaml/parsing/extensions.ml b/ocaml/parsing/extensions.ml index 43dd3774222..cc72edd1a5a 100644 --- a/ocaml/parsing/extensions.ml +++ b/ocaml/parsing/extensions.ml @@ -90,7 +90,7 @@ module Comprehensions = struct *) let comprehension_expr ~loc names x = - Expression.wrap_desc ~loc:Location.{loc with loc_ghost = true} ~attrs:[] @@ + Expression.wrap_desc ~loc:(Location.ghostify loc) ~attrs:[] @@ Expression.make_extension ~loc (extension_string :: names) x (** First, we define how to go from the nice AST to the OCaml AST; this is @@ -112,7 +112,7 @@ module Comprehensions = struct let expr_of_clause_binding ~loc { pattern; iterator; attributes } = Ast_helper.Vb.mk - ~loc:{loc with loc_ghost = true} + ~loc:(Location.ghostify loc) ~attrs:attributes pattern (expr_of_iterator ~loc iterator) diff --git a/ocaml/parsing/extensions_parsing.ml b/ocaml/parsing/extensions_parsing.ml index 84559459477..1e50de945eb 100644 --- a/ocaml/parsing/extensions_parsing.ml +++ b/ocaml/parsing/extensions_parsing.ml @@ -196,7 +196,7 @@ module Make_AST (AST_parameters : AST_parameters) : include AST_parameters let make_extension ~loc names = - let loc = Location.{loc with loc_ghost = true} in + let loc = Location.ghostify loc in make_extension_use ~extension_node: (make_extension_node diff --git a/ocaml/parsing/location.ml b/ocaml/parsing/location.ml index f981e51acdb..2c7046f11ad 100644 --- a/ocaml/parsing/location.ml +++ b/ocaml/parsing/location.ml @@ -41,6 +41,11 @@ let init lexbuf fname = } ;; +let ghostify l = + if l.loc_ghost + then l + else { l with loc_ghost = true } + let symbol_rloc () = { loc_start = Parsing.symbol_start_pos (); loc_end = Parsing.symbol_end_pos (); diff --git a/ocaml/parsing/location.mli b/ocaml/parsing/location.mli index faad4a5de86..4e124614fee 100644 --- a/ocaml/parsing/location.mli +++ b/ocaml/parsing/location.mli @@ -68,6 +68,9 @@ val init : Lexing.lexbuf -> string -> unit val curr : Lexing.lexbuf -> t (** Get the location of the current token from the [lexbuf]. *) +val ghostify : t -> t +(** Return a version of the location with [loc_ghost = true] *) + val symbol_rloc: unit -> t val symbol_gloc: unit -> t diff --git a/ocaml/parsing/parser.mly b/ocaml/parsing/parser.mly index c48fab63998..daec1b01470 100644 --- a/ocaml/parsing/parser.mly +++ b/ocaml/parsing/parser.mly @@ -504,7 +504,7 @@ let lapply ~loc p1 p2 = let loc_map (f : 'a -> 'b) (x : 'a Location.loc) : 'b Location.loc = { x with txt = f x.txt } -let make_ghost x = { x with loc = { x.loc with loc_ghost = true }} +let make_ghost x = { x with loc = Location.ghostify x.loc } let loc_last (id : Longident.t Location.loc) : string Location.loc = loc_map Longident.last id diff --git a/ocaml/typing/typeclass.ml b/ocaml/typing/typeclass.ml index 94d3964cb60..f07ad2d114b 100644 --- a/ocaml/typing/typeclass.ml +++ b/ocaml/typing/typeclass.ml @@ -999,7 +999,7 @@ and class_structure cl_num virt self_scope final val_env met_env loc let par_env = met_env in (* Location of self. Used for locations of self arguments *) - let self_loc = {spat.ppat_loc with Location.loc_ghost = true} in + let self_loc = Location.ghostify spat.ppat_loc in let sign = Ctype.new_class_signature () in diff --git a/ocaml/typing/typecore.ml b/ocaml/typing/typecore.ml index fad17e90340..e67980713d9 100644 --- a/ocaml/typing/typecore.ml +++ b/ocaml/typing/typecore.ml @@ -1249,7 +1249,7 @@ let build_or_pat env loc lid = let make_row more = create_row ~fields ~more ~closed:false ~fixed:None ~name in let ty = newty (Tvariant (make_row (newvar Layout.value))) in - let gloc = {loc with Location.loc_ghost=true} in + let gloc = Location.ghostify loc in let row' = ref (make_row (newvar Layout.value)) in let pats = List.map @@ -2247,7 +2247,7 @@ and type_pat_aux pat_env = !env } | Ppat_interval (Pconst_char c1, Pconst_char c2) -> let open Ast_helper.Pat in - let gloc = {loc with Location.loc_ghost=true} in + let gloc = Location.ghostify loc in let rec loop c1 c2 = if c1 = c2 then constant ~loc:gloc (Pconst_char c1) else @@ -5319,7 +5319,7 @@ and type_expect_ | { pbop_pat = spat; _} :: rest -> (* CR layouts v5: eliminate value requirement *) let ty = newvar Layout.value in - let loc = { slet.pbop_op.loc with Location.loc_ghost = true } in + let loc = Location.ghostify slet.pbop_op.loc in let spat_acc = Ast_helper.Pat.tuple ~loc [spat_acc; spat] in let ty_acc = newty (Ttuple [ty_acc; ty]) in loop spat_acc ty_acc rest @@ -5726,7 +5726,7 @@ and type_label_access env srecord usage lid = (Handling of * modifiers contributed by Thorsten Ohl.) *) and type_format loc str env = - let loc = {loc with Location.loc_ghost = true} in + let loc = Location.ghostify loc in try CamlinternalFormatBasics.(CamlinternalFormat.( let mk_exp_loc pexp_desc = { @@ -6764,7 +6764,7 @@ and type_let (* propagate type annotation to pattern, to allow it to be generalized in -principal mode *) Pat.constraint_ - ~loc:{spat.ppat_loc with Location.loc_ghost=true} + ~loc:(Location.ghostify spat.ppat_loc) spat sty | _ -> spat diff --git a/ocaml/typing/typedecl.ml b/ocaml/typing/typedecl.ml index 6c314fcc6af..314fb019663 100644 --- a/ocaml/typing/typedecl.ml +++ b/ocaml/typing/typedecl.ml @@ -1354,12 +1354,12 @@ let transl_type_decl env rec_flag sdecl_list = List.map (fun sdecl -> let ptype_name = - let loc = { sdecl.ptype_name.loc with Location.loc_ghost = true } in + let loc = Location.ghostify sdecl.ptype_name.loc in mkloc (sdecl.ptype_name.txt ^"#row") loc in let ptype_kind = Ptype_abstract in let ptype_manifest = None in - let ptype_loc = { sdecl.ptype_loc with Location.loc_ghost = true } in + let ptype_loc = Location.ghostify sdecl.ptype_loc in {sdecl with ptype_name; ptype_kind; ptype_manifest; ptype_loc }) fixed_types From d9b0e30c9a984b098cbdbc33a6391699cc568c90 Mon Sep 17 00:00:00 2001 From: Antal Spector-Zabusky Date: Wed, 3 May 2023 17:01:51 -0400 Subject: [PATCH 2/3] Update the parser's `make_ghost` to save an allocation in some cases --- ocaml/parsing/parser.mly | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/ocaml/parsing/parser.mly b/ocaml/parsing/parser.mly index daec1b01470..a8c92916b7f 100644 --- a/ocaml/parsing/parser.mly +++ b/ocaml/parsing/parser.mly @@ -504,7 +504,10 @@ let lapply ~loc p1 p2 = let loc_map (f : 'a -> 'b) (x : 'a Location.loc) : 'b Location.loc = { x with txt = f x.txt } -let make_ghost x = { x with loc = Location.ghostify x.loc } +let make_ghost x = + if x.loc.loc_ghost + then x (* Save an allocation *) + else { x with loc = Location.ghostify x.loc } let loc_last (id : Longident.t Location.loc) : string Location.loc = loc_map Longident.last id From 05179ab574e8c0cb0b0778e73a73bde5df8282a6 Mon Sep 17 00:00:00 2001 From: Antal Spector-Zabusky Date: Wed, 3 May 2023 17:03:06 -0400 Subject: [PATCH 3/3] Promote parser.ml --- ocaml/boot/menhir/parser.ml | 12511 +++++++++++++++++----------------- 1 file changed, 6257 insertions(+), 6254 deletions(-) diff --git a/ocaml/boot/menhir/parser.ml b/ocaml/boot/menhir/parser.ml index 750be44f422..e897765b073 100644 --- a/ocaml/boot/menhir/parser.ml +++ b/ocaml/boot/menhir/parser.ml @@ -16,7 +16,7 @@ module MenhirBasics = struct | VAL | UNDERSCORE | UIDENT of ( -# 893 "parsing/parser.mly" +# 896 "parsing/parser.mly" (string) # 22 "parsing/parser.ml" ) @@ -28,7 +28,7 @@ module MenhirBasics = struct | THEN | STRUCT | STRING of ( -# 880 "parsing/parser.mly" +# 883 "parsing/parser.mly" (string * Location.t * string option) # 34 "parsing/parser.ml" ) @@ -41,12 +41,12 @@ module MenhirBasics = struct | RBRACKET | RBRACE | QUOTED_STRING_ITEM of ( -# 884 "parsing/parser.mly" +# 887 "parsing/parser.mly" (string * Location.t * string * Location.t * string option) # 47 "parsing/parser.ml" ) | QUOTED_STRING_EXPR of ( -# 882 "parsing/parser.mly" +# 885 "parsing/parser.mly" (string * Location.t * string * Location.t * string option) # 52 "parsing/parser.ml" ) @@ -54,7 +54,7 @@ module MenhirBasics = struct | QUESTION | PRIVATE | PREFIXOP of ( -# 866 "parsing/parser.mly" +# 869 "parsing/parser.mly" (string) # 60 "parsing/parser.ml" ) @@ -64,7 +64,7 @@ module MenhirBasics = struct | PERCENT | OR | OPTLABEL of ( -# 859 "parsing/parser.mly" +# 862 "parsing/parser.mly" (string) # 70 "parsing/parser.ml" ) @@ -84,12 +84,12 @@ module MenhirBasics = struct | LPAREN | LOCAL | LIDENT of ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) # 90 "parsing/parser.ml" ) | LETOP of ( -# 821 "parsing/parser.mly" +# 824 "parsing/parser.mly" (string) # 95 "parsing/parser.ml" ) @@ -110,39 +110,39 @@ module MenhirBasics = struct | LBRACE | LAZY | LABEL of ( -# 826 "parsing/parser.mly" +# 829 "parsing/parser.mly" (string) # 116 "parsing/parser.ml" ) | INT of ( -# 825 "parsing/parser.mly" +# 828 "parsing/parser.mly" (string * char option) # 121 "parsing/parser.ml" ) | INITIALIZER | INHERIT | INFIXOP4 of ( -# 819 "parsing/parser.mly" +# 822 "parsing/parser.mly" (string) # 128 "parsing/parser.ml" ) | INFIXOP3 of ( -# 818 "parsing/parser.mly" +# 821 "parsing/parser.mly" (string) # 133 "parsing/parser.ml" ) | INFIXOP2 of ( -# 817 "parsing/parser.mly" +# 820 "parsing/parser.mly" (string) # 138 "parsing/parser.ml" ) | INFIXOP1 of ( -# 816 "parsing/parser.mly" +# 819 "parsing/parser.mly" (string) # 143 "parsing/parser.ml" ) | INFIXOP0 of ( -# 815 "parsing/parser.mly" +# 818 "parsing/parser.mly" (string) # 148 "parsing/parser.ml" ) @@ -150,7 +150,7 @@ module MenhirBasics = struct | IN | IF | HASHOP of ( -# 877 "parsing/parser.mly" +# 880 "parsing/parser.mly" (string) # 156 "parsing/parser.ml" ) @@ -164,7 +164,7 @@ module MenhirBasics = struct | FUN | FOR | FLOAT of ( -# 803 "parsing/parser.mly" +# 806 "parsing/parser.mly" (string * char option) # 170 "parsing/parser.ml" ) @@ -178,7 +178,7 @@ module MenhirBasics = struct | ELSE | DOWNTO | DOTOP of ( -# 820 "parsing/parser.mly" +# 823 "parsing/parser.mly" (string) # 184 "parsing/parser.ml" ) @@ -186,14 +186,14 @@ module MenhirBasics = struct | DOT | DONE | DOCSTRING of ( -# 901 "parsing/parser.mly" +# 904 "parsing/parser.mly" (Docstrings.docstring) # 192 "parsing/parser.ml" ) | DO | CONSTRAINT | COMMENT of ( -# 900 "parsing/parser.mly" +# 903 "parsing/parser.mly" (string * Location.t) # 199 "parsing/parser.ml" ) @@ -205,7 +205,7 @@ module MenhirBasics = struct | COLON | CLASS | CHAR of ( -# 782 "parsing/parser.mly" +# 785 "parsing/parser.mly" (char) # 211 "parsing/parser.ml" ) @@ -218,7 +218,7 @@ module MenhirBasics = struct | ASSERT | AS | ANDOP of ( -# 822 "parsing/parser.mly" +# 825 "parsing/parser.mly" (string) # 224 "parsing/parser.ml" ) @@ -716,7 +716,10 @@ let lapply ~loc p1 p2 = let loc_map (f : 'a -> 'b) (x : 'a Location.loc) : 'b Location.loc = { x with txt = f x.txt } -let make_ghost x = { x with loc = { x.loc with loc_ghost = true }} +let make_ghost x = + if x.loc.loc_ghost + then x (* Save an allocation *) + else { x with loc = Location.ghostify x.loc } let loc_last (id : Longident.t Location.loc) : string Location.loc = loc_map Longident.last id @@ -968,7 +971,7 @@ let check_layout loc id = Attr.mk ~loc (mkloc id loc) (PStr []) -# 972 "parsing/parser.ml" +# 975 "parsing/parser.ml" module Tables = struct @@ -1531,9 +1534,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4127 "parsing/parser.mly" +# 4130 "parsing/parser.mly" ( "+" ) -# 1537 "parsing/parser.ml" +# 1540 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1556,9 +1559,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4128 "parsing/parser.mly" +# 4131 "parsing/parser.mly" ( "+." ) -# 1562 "parsing/parser.ml" +# 1565 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1581,9 +1584,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = -# 3634 "parsing/parser.mly" +# 3637 "parsing/parser.mly" ( _1 ) -# 1587 "parsing/parser.ml" +# 1590 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1628,24 +1631,24 @@ module Tables = struct let _endpos = _endpos_tyvar_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3637 "parsing/parser.mly" +# 3640 "parsing/parser.mly" ( Ptyp_alias(ty, tyvar) ) -# 1634 "parsing/parser.ml" +# 1637 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_tyvar_, _startpos_ty_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 1643 "parsing/parser.ml" +# 1646 "parsing/parser.ml" in -# 3639 "parsing/parser.mly" +# 3642 "parsing/parser.mly" ( _1 ) -# 1649 "parsing/parser.ml" +# 1652 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1691,30 +1694,30 @@ module Tables = struct let _v : (let_binding) = let attrs2 = let _1 = _1_inlined2 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 1697 "parsing/parser.ml" +# 1700 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined2_ in let attrs1 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 1706 "parsing/parser.ml" +# 1709 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2839 "parsing/parser.mly" +# 2842 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in mklb ~loc:_sloc false body attrs ) -# 1718 "parsing/parser.ml" +# 1721 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1737,9 +1740,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4000 "parsing/parser.mly" +# 4003 "parsing/parser.mly" ( _1 ) -# 1743 "parsing/parser.ml" +# 1746 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1762,9 +1765,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4001 "parsing/parser.mly" +# 4004 "parsing/parser.mly" ( Lident _1 ) -# 1768 "parsing/parser.ml" +# 1771 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1801,9 +1804,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.core_type) = -# 3730 "parsing/parser.mly" +# 3733 "parsing/parser.mly" ( _2 ) -# 1807 "parsing/parser.ml" +# 1810 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1866,11 +1869,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3790 "parsing/parser.mly" +# 3793 "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 ) -# 1874 "parsing/parser.ml" +# 1877 "parsing/parser.ml" in let _3 = @@ -1878,24 +1881,24 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 1884 "parsing/parser.ml" +# 1887 "parsing/parser.ml" in -# 4232 "parsing/parser.mly" +# 4235 "parsing/parser.mly" ( _1, _2 ) -# 1890 "parsing/parser.ml" +# 1893 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3732 "parsing/parser.mly" +# 3735 "parsing/parser.mly" ( wrap_typ_attrs ~loc:_sloc (reloc_typ ~loc:_sloc _4) _3 ) -# 1899 "parsing/parser.ml" +# 1902 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1926,24 +1929,24 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3735 "parsing/parser.mly" +# 3738 "parsing/parser.mly" ( Ptyp_var _2 ) -# 1932 "parsing/parser.ml" +# 1935 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 1941 "parsing/parser.ml" +# 1944 "parsing/parser.ml" in -# 3767 "parsing/parser.mly" +# 3770 "parsing/parser.mly" ( _1 ) -# 1947 "parsing/parser.ml" +# 1950 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1967,23 +1970,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3737 "parsing/parser.mly" +# 3740 "parsing/parser.mly" ( Ptyp_any ) -# 1973 "parsing/parser.ml" +# 1976 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 1981 "parsing/parser.ml" +# 1984 "parsing/parser.ml" in -# 3767 "parsing/parser.mly" +# 3770 "parsing/parser.mly" ( _1 ) -# 1987 "parsing/parser.ml" +# 1990 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2012,35 +2015,35 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 2018 "parsing/parser.ml" +# 2021 "parsing/parser.ml" in let tys = -# 3782 "parsing/parser.mly" +# 3785 "parsing/parser.mly" ( [] ) -# 2024 "parsing/parser.ml" +# 2027 "parsing/parser.ml" in -# 3740 "parsing/parser.mly" +# 3743 "parsing/parser.mly" ( Ptyp_constr(tid, tys) ) -# 2029 "parsing/parser.ml" +# 2032 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2038 "parsing/parser.ml" +# 2041 "parsing/parser.ml" in -# 3767 "parsing/parser.mly" +# 3770 "parsing/parser.mly" ( _1 ) -# 2044 "parsing/parser.ml" +# 2047 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2076,20 +2079,20 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 2082 "parsing/parser.ml" +# 2085 "parsing/parser.ml" in let tys = -# 3784 "parsing/parser.mly" +# 3787 "parsing/parser.mly" ( [ty] ) -# 2088 "parsing/parser.ml" +# 2091 "parsing/parser.ml" in -# 3740 "parsing/parser.mly" +# 3743 "parsing/parser.mly" ( Ptyp_constr(tid, tys) ) -# 2093 "parsing/parser.ml" +# 2096 "parsing/parser.ml" in let _startpos__1_ = _startpos_ty_ in @@ -2097,15 +2100,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2103 "parsing/parser.ml" +# 2106 "parsing/parser.ml" in -# 3767 "parsing/parser.mly" +# 3770 "parsing/parser.mly" ( _1 ) -# 2109 "parsing/parser.ml" +# 2112 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2156,9 +2159,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 2162 "parsing/parser.ml" +# 2165 "parsing/parser.ml" in let tys = @@ -2166,24 +2169,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 2170 "parsing/parser.ml" +# 2173 "parsing/parser.ml" in -# 1188 "parsing/parser.mly" +# 1191 "parsing/parser.mly" ( xs ) -# 2175 "parsing/parser.ml" +# 2178 "parsing/parser.ml" in -# 3786 "parsing/parser.mly" +# 3789 "parsing/parser.mly" ( tys ) -# 2181 "parsing/parser.ml" +# 2184 "parsing/parser.ml" in -# 3740 "parsing/parser.mly" +# 3743 "parsing/parser.mly" ( Ptyp_constr(tid, tys) ) -# 2187 "parsing/parser.ml" +# 2190 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -2191,15 +2194,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2197 "parsing/parser.ml" +# 2200 "parsing/parser.ml" in -# 3767 "parsing/parser.mly" +# 3770 "parsing/parser.mly" ( _1 ) -# 2203 "parsing/parser.ml" +# 2206 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2237,24 +2240,24 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3742 "parsing/parser.mly" +# 3745 "parsing/parser.mly" ( let (f, c) = _2 in Ptyp_object (f, c) ) -# 2243 "parsing/parser.ml" +# 2246 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2252 "parsing/parser.ml" +# 2255 "parsing/parser.ml" in -# 3767 "parsing/parser.mly" +# 3770 "parsing/parser.mly" ( _1 ) -# 2258 "parsing/parser.ml" +# 2261 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2285,24 +2288,24 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3744 "parsing/parser.mly" +# 3747 "parsing/parser.mly" ( Ptyp_object ([], Closed) ) -# 2291 "parsing/parser.ml" +# 2294 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2300 "parsing/parser.ml" +# 2303 "parsing/parser.ml" in -# 3767 "parsing/parser.mly" +# 3770 "parsing/parser.mly" ( _1 ) -# 2306 "parsing/parser.ml" +# 2309 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2338,20 +2341,20 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 2344 "parsing/parser.ml" +# 2347 "parsing/parser.ml" in let tys = -# 3782 "parsing/parser.mly" +# 3785 "parsing/parser.mly" ( [] ) -# 2350 "parsing/parser.ml" +# 2353 "parsing/parser.ml" in -# 3748 "parsing/parser.mly" +# 3751 "parsing/parser.mly" ( Ptyp_class(cid, tys) ) -# 2355 "parsing/parser.ml" +# 2358 "parsing/parser.ml" in let _startpos__1_ = _startpos__2_ in @@ -2359,15 +2362,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2365 "parsing/parser.ml" +# 2368 "parsing/parser.ml" in -# 3767 "parsing/parser.mly" +# 3770 "parsing/parser.mly" ( _1 ) -# 2371 "parsing/parser.ml" +# 2374 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2410,20 +2413,20 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 2416 "parsing/parser.ml" +# 2419 "parsing/parser.ml" in let tys = -# 3784 "parsing/parser.mly" +# 3787 "parsing/parser.mly" ( [ty] ) -# 2422 "parsing/parser.ml" +# 2425 "parsing/parser.ml" in -# 3748 "parsing/parser.mly" +# 3751 "parsing/parser.mly" ( Ptyp_class(cid, tys) ) -# 2427 "parsing/parser.ml" +# 2430 "parsing/parser.ml" in let _startpos__1_ = _startpos_ty_ in @@ -2431,15 +2434,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2437 "parsing/parser.ml" +# 2440 "parsing/parser.ml" in -# 3767 "parsing/parser.mly" +# 3770 "parsing/parser.mly" ( _1 ) -# 2443 "parsing/parser.ml" +# 2446 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2497,9 +2500,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 2503 "parsing/parser.ml" +# 2506 "parsing/parser.ml" in let tys = @@ -2507,24 +2510,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 2511 "parsing/parser.ml" +# 2514 "parsing/parser.ml" in -# 1188 "parsing/parser.mly" +# 1191 "parsing/parser.mly" ( xs ) -# 2516 "parsing/parser.ml" +# 2519 "parsing/parser.ml" in -# 3786 "parsing/parser.mly" +# 3789 "parsing/parser.mly" ( tys ) -# 2522 "parsing/parser.ml" +# 2525 "parsing/parser.ml" in -# 3748 "parsing/parser.mly" +# 3751 "parsing/parser.mly" ( Ptyp_class(cid, tys) ) -# 2528 "parsing/parser.ml" +# 2531 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -2532,15 +2535,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2538 "parsing/parser.ml" +# 2541 "parsing/parser.ml" in -# 3767 "parsing/parser.mly" +# 3770 "parsing/parser.mly" ( _1 ) -# 2544 "parsing/parser.ml" +# 2547 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2578,24 +2581,24 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3751 "parsing/parser.mly" +# 3754 "parsing/parser.mly" ( Ptyp_variant([_2], Closed, None) ) -# 2584 "parsing/parser.ml" +# 2587 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2593 "parsing/parser.ml" +# 2596 "parsing/parser.ml" in -# 3767 "parsing/parser.mly" +# 3770 "parsing/parser.mly" ( _1 ) -# 2599 "parsing/parser.ml" +# 2602 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2645,24 +2648,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 2649 "parsing/parser.ml" +# 2652 "parsing/parser.ml" in -# 1160 "parsing/parser.mly" +# 1163 "parsing/parser.mly" ( xs ) -# 2654 "parsing/parser.ml" +# 2657 "parsing/parser.ml" in -# 3796 "parsing/parser.mly" +# 3799 "parsing/parser.mly" ( _1 ) -# 2660 "parsing/parser.ml" +# 2663 "parsing/parser.ml" in -# 3753 "parsing/parser.mly" +# 3756 "parsing/parser.mly" ( Ptyp_variant(_3, Closed, None) ) -# 2666 "parsing/parser.ml" +# 2669 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -2670,15 +2673,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2676 "parsing/parser.ml" +# 2679 "parsing/parser.ml" in -# 3767 "parsing/parser.mly" +# 3770 "parsing/parser.mly" ( _1 ) -# 2682 "parsing/parser.ml" +# 2685 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2735,24 +2738,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 2739 "parsing/parser.ml" +# 2742 "parsing/parser.ml" in -# 1160 "parsing/parser.mly" +# 1163 "parsing/parser.mly" ( xs ) -# 2744 "parsing/parser.ml" +# 2747 "parsing/parser.ml" in -# 3796 "parsing/parser.mly" +# 3799 "parsing/parser.mly" ( _1 ) -# 2750 "parsing/parser.ml" +# 2753 "parsing/parser.ml" in -# 3755 "parsing/parser.mly" +# 3758 "parsing/parser.mly" ( Ptyp_variant(_2 :: _4, Closed, None) ) -# 2756 "parsing/parser.ml" +# 2759 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -2760,15 +2763,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2766 "parsing/parser.ml" +# 2769 "parsing/parser.ml" in -# 3767 "parsing/parser.mly" +# 3770 "parsing/parser.mly" ( _1 ) -# 2772 "parsing/parser.ml" +# 2775 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2818,24 +2821,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 2822 "parsing/parser.ml" +# 2825 "parsing/parser.ml" in -# 1160 "parsing/parser.mly" +# 1163 "parsing/parser.mly" ( xs ) -# 2827 "parsing/parser.ml" +# 2830 "parsing/parser.ml" in -# 3796 "parsing/parser.mly" +# 3799 "parsing/parser.mly" ( _1 ) -# 2833 "parsing/parser.ml" +# 2836 "parsing/parser.ml" in -# 3757 "parsing/parser.mly" +# 3760 "parsing/parser.mly" ( Ptyp_variant(_3, Open, None) ) -# 2839 "parsing/parser.ml" +# 2842 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -2843,15 +2846,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2849 "parsing/parser.ml" +# 2852 "parsing/parser.ml" in -# 3767 "parsing/parser.mly" +# 3770 "parsing/parser.mly" ( _1 ) -# 2855 "parsing/parser.ml" +# 2858 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2882,24 +2885,24 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3759 "parsing/parser.mly" +# 3762 "parsing/parser.mly" ( Ptyp_variant([], Open, None) ) -# 2888 "parsing/parser.ml" +# 2891 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2897 "parsing/parser.ml" +# 2900 "parsing/parser.ml" in -# 3767 "parsing/parser.mly" +# 3770 "parsing/parser.mly" ( _1 ) -# 2903 "parsing/parser.ml" +# 2906 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2949,24 +2952,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 2953 "parsing/parser.ml" +# 2956 "parsing/parser.ml" in -# 1160 "parsing/parser.mly" +# 1163 "parsing/parser.mly" ( xs ) -# 2958 "parsing/parser.ml" +# 2961 "parsing/parser.ml" in -# 3796 "parsing/parser.mly" +# 3799 "parsing/parser.mly" ( _1 ) -# 2964 "parsing/parser.ml" +# 2967 "parsing/parser.ml" in -# 3761 "parsing/parser.mly" +# 3764 "parsing/parser.mly" ( Ptyp_variant(_3, Closed, Some []) ) -# 2970 "parsing/parser.ml" +# 2973 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -2974,15 +2977,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2980 "parsing/parser.ml" +# 2983 "parsing/parser.ml" in -# 3767 "parsing/parser.mly" +# 3770 "parsing/parser.mly" ( _1 ) -# 2986 "parsing/parser.ml" +# 2989 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3047,18 +3050,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 3051 "parsing/parser.ml" +# 3054 "parsing/parser.ml" in -# 1128 "parsing/parser.mly" +# 1131 "parsing/parser.mly" ( xs ) -# 3056 "parsing/parser.ml" +# 3059 "parsing/parser.ml" in -# 3824 "parsing/parser.mly" +# 3827 "parsing/parser.mly" ( _1 ) -# 3062 "parsing/parser.ml" +# 3065 "parsing/parser.ml" in let _3 = @@ -3066,24 +3069,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 3070 "parsing/parser.ml" +# 3073 "parsing/parser.ml" in -# 1160 "parsing/parser.mly" +# 1163 "parsing/parser.mly" ( xs ) -# 3075 "parsing/parser.ml" +# 3078 "parsing/parser.ml" in -# 3796 "parsing/parser.mly" +# 3799 "parsing/parser.mly" ( _1 ) -# 3081 "parsing/parser.ml" +# 3084 "parsing/parser.ml" in -# 3763 "parsing/parser.mly" +# 3766 "parsing/parser.mly" ( Ptyp_variant(_3, Closed, Some _5) ) -# 3087 "parsing/parser.ml" +# 3090 "parsing/parser.ml" in let _endpos__1_ = _endpos__6_ in @@ -3091,15 +3094,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 3097 "parsing/parser.ml" +# 3100 "parsing/parser.ml" in -# 3767 "parsing/parser.mly" +# 3770 "parsing/parser.mly" ( _1 ) -# 3103 "parsing/parser.ml" +# 3106 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3123,23 +3126,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3765 "parsing/parser.mly" +# 3768 "parsing/parser.mly" ( Ptyp_extension _1 ) -# 3129 "parsing/parser.ml" +# 3132 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 3137 "parsing/parser.ml" +# 3140 "parsing/parser.ml" in -# 3767 "parsing/parser.mly" +# 3770 "parsing/parser.mly" ( _1 ) -# 3143 "parsing/parser.ml" +# 3146 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3163,23 +3166,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string Asttypes.loc) = let _1 = let _1 = -# 4196 "parsing/parser.mly" +# 4199 "parsing/parser.mly" ( _1 ) -# 3169 "parsing/parser.ml" +# 3172 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1056 "parsing/parser.mly" +# 1059 "parsing/parser.mly" ( mkloc _1 (make_loc _sloc) ) -# 3177 "parsing/parser.ml" +# 3180 "parsing/parser.ml" in -# 4198 "parsing/parser.mly" +# 4201 "parsing/parser.mly" ( _1 ) -# 3183 "parsing/parser.ml" +# 3186 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3217,24 +3220,24 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (string Asttypes.loc) = let _1 = let _1 = -# 4197 "parsing/parser.mly" +# 4200 "parsing/parser.mly" ( _1 ^ "." ^ _3.txt ) -# 3223 "parsing/parser.ml" +# 3226 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1056 "parsing/parser.mly" +# 1059 "parsing/parser.mly" ( mkloc _1 (make_loc _sloc) ) -# 3232 "parsing/parser.ml" +# 3235 "parsing/parser.ml" in -# 4198 "parsing/parser.mly" +# 4201 "parsing/parser.mly" ( _1 ) -# 3238 "parsing/parser.ml" +# 3241 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3257,11 +3260,11 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.payload) = -# 4253 "parsing/parser.mly" +# 4256 "parsing/parser.mly" ( Builtin_attributes.mark_payload_attrs_used _1; _1 ) -# 3265 "parsing/parser.ml" +# 3268 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3308,9 +3311,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4202 "parsing/parser.mly" +# 4205 "parsing/parser.mly" ( mk_attr ~loc:(make_loc _sloc) _2 _3 ) -# 3314 "parsing/parser.ml" +# 3317 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3333,9 +3336,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.class_expr) = -# 2018 "parsing/parser.mly" +# 2021 "parsing/parser.mly" ( _1 ) -# 3339 "parsing/parser.ml" +# 3342 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3374,18 +3377,18 @@ module Tables = struct let _v : (Parsetree.class_expr) = let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 3380 "parsing/parser.ml" +# 3383 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2020 "parsing/parser.mly" +# 2023 "parsing/parser.mly" ( wrap_class_attrs ~loc:_sloc _3 _2 ) -# 3389 "parsing/parser.ml" +# 3392 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3425,9 +3428,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2022 "parsing/parser.mly" +# 2025 "parsing/parser.mly" ( class_of_let_bindings ~loc:_sloc _1 _3 ) -# 3431 "parsing/parser.ml" +# 3434 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3490,34 +3493,34 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 3496 "parsing/parser.ml" +# 3499 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined2_ in let _4 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 3505 "parsing/parser.ml" +# 3508 "parsing/parser.ml" in let _3 = -# 4119 "parsing/parser.mly" +# 4122 "parsing/parser.mly" ( Fresh ) -# 3511 "parsing/parser.ml" +# 3514 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2024 "parsing/parser.mly" +# 2027 "parsing/parser.mly" ( let loc = (_startpos__2_, _endpos__5_) in let od = Opn.mk ~override:_3 ~loc:(make_loc loc) _5 in mkclass ~loc:_sloc ~attrs:_4 (Pcl_open(od, _7)) ) -# 3521 "parsing/parser.ml" +# 3524 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3587,34 +3590,34 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 3593 "parsing/parser.ml" +# 3596 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined3_ in let _4 = let _1 = _1_inlined2 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 3602 "parsing/parser.ml" +# 3605 "parsing/parser.ml" in let _3 = -# 4120 "parsing/parser.mly" +# 4123 "parsing/parser.mly" ( Override ) -# 3608 "parsing/parser.ml" +# 3611 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2024 "parsing/parser.mly" +# 2027 "parsing/parser.mly" ( let loc = (_startpos__2_, _endpos__5_) in let od = Opn.mk ~override:_3 ~loc:(make_loc loc) _5 in mkclass ~loc:_sloc ~attrs:_4 (Pcl_open(od, _7)) ) -# 3618 "parsing/parser.ml" +# 3621 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3644,9 +3647,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.class_expr) = -# 2028 "parsing/parser.mly" +# 2031 "parsing/parser.mly" ( Cl.attr _1 _2 ) -# 3650 "parsing/parser.ml" +# 3653 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3681,18 +3684,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 3685 "parsing/parser.ml" +# 3688 "parsing/parser.ml" in -# 1128 "parsing/parser.mly" +# 1131 "parsing/parser.mly" ( xs ) -# 3690 "parsing/parser.ml" +# 3693 "parsing/parser.ml" in -# 2031 "parsing/parser.mly" +# 2034 "parsing/parser.mly" ( Pcl_apply(_1, _2) ) -# 3696 "parsing/parser.ml" +# 3699 "parsing/parser.ml" in let _endpos__1_ = _endpos_xs_ in @@ -3700,15 +3703,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1082 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 3706 "parsing/parser.ml" +# 3709 "parsing/parser.ml" in -# 2034 "parsing/parser.mly" +# 2037 "parsing/parser.mly" ( _1 ) -# 3712 "parsing/parser.ml" +# 3715 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3732,23 +3735,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.class_expr) = let _1 = let _1 = -# 2033 "parsing/parser.mly" +# 2036 "parsing/parser.mly" ( Pcl_extension _1 ) -# 3738 "parsing/parser.ml" +# 3741 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1082 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 3746 "parsing/parser.ml" +# 3749 "parsing/parser.ml" in -# 2034 "parsing/parser.mly" +# 2037 "parsing/parser.mly" ( _1 ) -# 3752 "parsing/parser.ml" +# 3755 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3801,33 +3804,33 @@ module Tables = struct let _v : (Parsetree.class_field) = let _6 = let _1 = _1_inlined2 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 3807 "parsing/parser.ml" +# 3810 "parsing/parser.ml" in let _endpos__6_ = _endpos__1_inlined2_ in let _3 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 3816 "parsing/parser.ml" +# 3819 "parsing/parser.ml" in let _2 = -# 4119 "parsing/parser.mly" +# 4122 "parsing/parser.mly" ( Fresh ) -# 3822 "parsing/parser.ml" +# 3825 "parsing/parser.ml" in let _endpos = _endpos__6_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2083 "parsing/parser.mly" +# 2086 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_inherit (_2, _4, self)) ~attrs:(_3@_6) ~docs ) -# 3831 "parsing/parser.ml" +# 3834 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3887,33 +3890,33 @@ module Tables = struct let _v : (Parsetree.class_field) = let _6 = let _1 = _1_inlined3 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 3893 "parsing/parser.ml" +# 3896 "parsing/parser.ml" in let _endpos__6_ = _endpos__1_inlined3_ in let _3 = let _1 = _1_inlined2 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 3902 "parsing/parser.ml" +# 3905 "parsing/parser.ml" in let _2 = -# 4120 "parsing/parser.mly" +# 4123 "parsing/parser.mly" ( Override ) -# 3908 "parsing/parser.ml" +# 3911 "parsing/parser.ml" in let _endpos = _endpos__6_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2083 "parsing/parser.mly" +# 2086 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_inherit (_2, _4, self)) ~attrs:(_3@_6) ~docs ) -# 3917 "parsing/parser.ml" +# 3920 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3954,9 +3957,9 @@ module Tables = struct let _v : (Parsetree.class_field) = let _3 = let _1 = _1_inlined1 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 3960 "parsing/parser.ml" +# 3963 "parsing/parser.ml" in let _endpos__3_ = _endpos__1_inlined1_ in @@ -3964,11 +3967,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2086 "parsing/parser.mly" +# 2089 "parsing/parser.mly" ( let v, attrs = _2 in let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_val v) ~attrs:(attrs@_3) ~docs ) -# 3972 "parsing/parser.ml" +# 3975 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4009,9 +4012,9 @@ module Tables = struct let _v : (Parsetree.class_field) = let _3 = let _1 = _1_inlined1 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 4015 "parsing/parser.ml" +# 4018 "parsing/parser.ml" in let _endpos__3_ = _endpos__1_inlined1_ in @@ -4019,11 +4022,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2090 "parsing/parser.mly" +# 2093 "parsing/parser.mly" ( let meth, attrs = _2 in let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_method meth) ~attrs:(attrs@_3) ~docs ) -# 4027 "parsing/parser.ml" +# 4030 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4069,28 +4072,28 @@ module Tables = struct let _v : (Parsetree.class_field) = let _4 = let _1 = _1_inlined2 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 4075 "parsing/parser.ml" +# 4078 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 4084 "parsing/parser.ml" +# 4087 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2094 "parsing/parser.mly" +# 2097 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_constraint _3) ~attrs:(_2@_4) ~docs ) -# 4094 "parsing/parser.ml" +# 4097 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4136,28 +4139,28 @@ module Tables = struct let _v : (Parsetree.class_field) = let _4 = let _1 = _1_inlined2 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 4142 "parsing/parser.ml" +# 4145 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 4151 "parsing/parser.ml" +# 4154 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2097 "parsing/parser.mly" +# 2100 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_initializer _3) ~attrs:(_2@_4) ~docs ) -# 4161 "parsing/parser.ml" +# 4164 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4189,9 +4192,9 @@ module Tables = struct let _v : (Parsetree.class_field) = let _2 = let _1 = _1_inlined1 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 4195 "parsing/parser.ml" +# 4198 "parsing/parser.ml" in let _endpos__2_ = _endpos__1_inlined1_ in @@ -4199,10 +4202,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2100 "parsing/parser.mly" +# 2103 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_extension _1) ~attrs:_2 ~docs ) -# 4206 "parsing/parser.ml" +# 4209 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4226,23 +4229,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.class_field) = let _1 = let _1 = -# 2103 "parsing/parser.mly" +# 2106 "parsing/parser.mly" ( Pcf_attribute _1 ) -# 4232 "parsing/parser.ml" +# 4235 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1077 "parsing/parser.mly" +# 1080 "parsing/parser.mly" ( mkcf ~loc:_sloc _1 ) -# 4240 "parsing/parser.ml" +# 4243 "parsing/parser.ml" in -# 2104 "parsing/parser.mly" +# 2107 "parsing/parser.mly" ( _1 ) -# 4246 "parsing/parser.ml" +# 4249 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4272,9 +4275,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.class_expr) = -# 1998 "parsing/parser.mly" +# 2001 "parsing/parser.mly" ( _2 ) -# 4278 "parsing/parser.ml" +# 4281 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4319,24 +4322,24 @@ module Tables = struct let _endpos = _endpos__4_ in let _v : (Parsetree.class_expr) = let _1 = let _1 = -# 2001 "parsing/parser.mly" +# 2004 "parsing/parser.mly" ( Pcl_constraint(_4, _2) ) -# 4325 "parsing/parser.ml" +# 4328 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1082 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 4334 "parsing/parser.ml" +# 4337 "parsing/parser.ml" in -# 2004 "parsing/parser.mly" +# 2007 "parsing/parser.mly" ( _1 ) -# 4340 "parsing/parser.ml" +# 4343 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4367,24 +4370,24 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Parsetree.class_expr) = let _1 = let _1 = -# 2003 "parsing/parser.mly" +# 2006 "parsing/parser.mly" ( let (l,o,p) = _1 in Pcl_fun(l, o, p, _2) ) -# 4373 "parsing/parser.ml" +# 4376 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1082 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 4382 "parsing/parser.ml" +# 4385 "parsing/parser.ml" in -# 2004 "parsing/parser.mly" +# 2007 "parsing/parser.mly" ( _1 ) -# 4388 "parsing/parser.ml" +# 4391 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4422,24 +4425,24 @@ module Tables = struct let _endpos = _endpos_e_ in let _v : (Parsetree.class_expr) = let _1 = let _1 = -# 2059 "parsing/parser.mly" +# 2062 "parsing/parser.mly" ( let (l,o,p) = _1 in Pcl_fun(l, o, p, e) ) -# 4428 "parsing/parser.ml" +# 4431 "parsing/parser.ml" in let _endpos__1_ = _endpos_e_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1082 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 4437 "parsing/parser.ml" +# 4440 "parsing/parser.ml" in -# 2060 "parsing/parser.mly" +# 2063 "parsing/parser.mly" ( _1 ) -# 4443 "parsing/parser.ml" +# 4446 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4470,24 +4473,24 @@ module Tables = struct let _endpos = _endpos_e_ in let _v : (Parsetree.class_expr) = let _1 = let _1 = -# 2059 "parsing/parser.mly" +# 2062 "parsing/parser.mly" ( let (l,o,p) = _1 in Pcl_fun(l, o, p, e) ) -# 4476 "parsing/parser.ml" +# 4479 "parsing/parser.ml" in let _endpos__1_ = _endpos_e_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1082 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 4485 "parsing/parser.ml" +# 4488 "parsing/parser.ml" in -# 2060 "parsing/parser.mly" +# 2063 "parsing/parser.mly" ( _1 ) -# 4491 "parsing/parser.ml" +# 4494 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4510,9 +4513,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 3990 "parsing/parser.mly" +# 3993 "parsing/parser.mly" ( _1 ) -# 4516 "parsing/parser.ml" +# 4519 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4552,9 +4555,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2068 "parsing/parser.mly" +# 2071 "parsing/parser.mly" ( reloc_pat ~loc:_sloc _2 ) -# 4558 "parsing/parser.ml" +# 4561 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4606,24 +4609,24 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 2070 "parsing/parser.mly" +# 2073 "parsing/parser.mly" ( Ppat_constraint(_2, _4) ) -# 4612 "parsing/parser.ml" +# 4615 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 4621 "parsing/parser.ml" +# 4624 "parsing/parser.ml" in -# 2071 "parsing/parser.mly" +# 2074 "parsing/parser.mly" ( _1 ) -# 4627 "parsing/parser.ml" +# 4630 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4642,9 +4645,9 @@ module Tables = struct let _symbolstartpos = _endpos in let _sloc = (_symbolstartpos, _endpos) in -# 2073 "parsing/parser.mly" +# 2076 "parsing/parser.mly" ( ghpat ~loc:_sloc Ppat_any ) -# 4648 "parsing/parser.ml" +# 4651 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4681,9 +4684,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.core_type) = -# 2198 "parsing/parser.mly" +# 2201 "parsing/parser.mly" ( _2 ) -# 4687 "parsing/parser.ml" +# 4690 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4700,24 +4703,24 @@ module Tables = struct let _endpos = _startpos in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 2199 "parsing/parser.mly" +# 2202 "parsing/parser.mly" ( Ptyp_any ) -# 4706 "parsing/parser.ml" +# 4709 "parsing/parser.ml" in let _endpos__1_ = _endpos__0_ in let _endpos = _endpos__1_ in let _symbolstartpos = _endpos in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 4715 "parsing/parser.ml" +# 4718 "parsing/parser.ml" in -# 2200 "parsing/parser.mly" +# 2203 "parsing/parser.mly" ( _1 ) -# 4721 "parsing/parser.ml" +# 4724 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4763,28 +4766,28 @@ module Tables = struct let _v : (Parsetree.class_type_field) = let _4 = let _1 = _1_inlined2 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 4769 "parsing/parser.ml" +# 4772 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 4778 "parsing/parser.ml" +# 4781 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2208 "parsing/parser.mly" +# 2211 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkctf ~loc:_sloc (Pctf_inherit _3) ~attrs:(_2@_4) ~docs ) -# 4788 "parsing/parser.ml" +# 4791 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4842,9 +4845,9 @@ module Tables = struct let ty : (Parsetree.core_type) = Obj.magic ty in let _3 : unit = Obj.magic _3 in let _1_inlined2 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 4848 "parsing/parser.ml" +# 4851 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let flags : (Asttypes.mutable_flag * Asttypes.virtual_flag) = Obj.magic flags in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in @@ -4855,9 +4858,9 @@ module Tables = struct let _v : (Parsetree.class_type_field) = let _4 = let _1 = _1_inlined3 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 4861 "parsing/parser.ml" +# 4864 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined3_ in @@ -4865,44 +4868,44 @@ module Tables = struct let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let label = let _1 = -# 3864 "parsing/parser.mly" +# 3867 "parsing/parser.mly" ( _1 ) -# 4871 "parsing/parser.ml" +# 4874 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 4879 "parsing/parser.ml" +# 4882 "parsing/parser.ml" in -# 2233 "parsing/parser.mly" +# 2236 "parsing/parser.mly" ( let mut, virt = flags in label, mut, virt, ty ) -# 4888 "parsing/parser.ml" +# 4891 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 4896 "parsing/parser.ml" +# 4899 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2211 "parsing/parser.mly" +# 2214 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkctf ~loc:_sloc (Pctf_val _3) ~attrs:(_2@_4) ~docs ) -# 4906 "parsing/parser.ml" +# 4909 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4960,9 +4963,9 @@ module Tables = struct let _1_inlined3 : (Parsetree.core_type) = Obj.magic _1_inlined3 in let _5 : unit = Obj.magic _5 in let _1_inlined2 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 4966 "parsing/parser.ml" +# 4969 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let _3 : (Asttypes.private_flag * Asttypes.virtual_flag) = Obj.magic _3 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in @@ -4973,53 +4976,53 @@ module Tables = struct let _v : (Parsetree.class_type_field) = let _7 = let _1 = _1_inlined4 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 4979 "parsing/parser.ml" +# 4982 "parsing/parser.ml" in let _endpos__7_ = _endpos__1_inlined4_ in let _6 = let _1 = _1_inlined3 in -# 3600 "parsing/parser.mly" +# 3603 "parsing/parser.mly" ( _1 ) -# 4988 "parsing/parser.ml" +# 4991 "parsing/parser.ml" in let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _1 = -# 3864 "parsing/parser.mly" +# 3867 "parsing/parser.mly" ( _1 ) -# 4996 "parsing/parser.ml" +# 4999 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 5004 "parsing/parser.ml" +# 5007 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 5012 "parsing/parser.ml" +# 5015 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2215 "parsing/parser.mly" +# 2218 "parsing/parser.mly" ( let (p, v) = _3 in let docs = symbol_docs _sloc in mkctf ~loc:_sloc (Pctf_method (_4, p, v, _6)) ~attrs:(_2@_7) ~docs ) -# 5023 "parsing/parser.ml" +# 5026 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5065,28 +5068,28 @@ module Tables = struct let _v : (Parsetree.class_type_field) = let _4 = let _1 = _1_inlined2 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 5071 "parsing/parser.ml" +# 5074 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 5080 "parsing/parser.ml" +# 5083 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2219 "parsing/parser.mly" +# 2222 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkctf ~loc:_sloc (Pctf_constraint _3) ~attrs:(_2@_4) ~docs ) -# 5090 "parsing/parser.ml" +# 5093 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5118,9 +5121,9 @@ module Tables = struct let _v : (Parsetree.class_type_field) = let _2 = let _1 = _1_inlined1 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 5124 "parsing/parser.ml" +# 5127 "parsing/parser.ml" in let _endpos__2_ = _endpos__1_inlined1_ in @@ -5128,10 +5131,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2222 "parsing/parser.mly" +# 2225 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkctf ~loc:_sloc (Pctf_extension _1) ~attrs:_2 ~docs ) -# 5135 "parsing/parser.ml" +# 5138 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5155,23 +5158,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.class_type_field) = let _1 = let _1 = -# 2225 "parsing/parser.mly" +# 2228 "parsing/parser.mly" ( Pctf_attribute _1 ) -# 5161 "parsing/parser.ml" +# 5164 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1075 "parsing/parser.mly" +# 1078 "parsing/parser.mly" ( mkctf ~loc:_sloc _1 ) -# 5169 "parsing/parser.ml" +# 5172 "parsing/parser.ml" in -# 2226 "parsing/parser.mly" +# 2229 "parsing/parser.mly" ( _1 ) -# 5175 "parsing/parser.ml" +# 5178 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5200,42 +5203,42 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 5206 "parsing/parser.ml" +# 5209 "parsing/parser.ml" in let tys = let tys = -# 2184 "parsing/parser.mly" +# 2187 "parsing/parser.mly" ( [] ) -# 5213 "parsing/parser.ml" +# 5216 "parsing/parser.ml" in -# 2190 "parsing/parser.mly" +# 2193 "parsing/parser.mly" ( tys ) -# 5218 "parsing/parser.ml" +# 5221 "parsing/parser.ml" in -# 2167 "parsing/parser.mly" +# 2170 "parsing/parser.mly" ( Pcty_constr (cid, tys) ) -# 5224 "parsing/parser.ml" +# 5227 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1073 "parsing/parser.mly" +# 1076 "parsing/parser.mly" ( mkcty ~loc:_sloc _1 ) -# 5233 "parsing/parser.ml" +# 5236 "parsing/parser.ml" in -# 2170 "parsing/parser.mly" +# 2173 "parsing/parser.mly" ( _1 ) -# 5239 "parsing/parser.ml" +# 5242 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5286,9 +5289,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 5292 "parsing/parser.ml" +# 5295 "parsing/parser.ml" in let tys = @@ -5297,30 +5300,30 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 5301 "parsing/parser.ml" +# 5304 "parsing/parser.ml" in -# 1160 "parsing/parser.mly" +# 1163 "parsing/parser.mly" ( xs ) -# 5306 "parsing/parser.ml" +# 5309 "parsing/parser.ml" in -# 2186 "parsing/parser.mly" +# 2189 "parsing/parser.mly" ( params ) -# 5312 "parsing/parser.ml" +# 5315 "parsing/parser.ml" in -# 2190 "parsing/parser.mly" +# 2193 "parsing/parser.mly" ( tys ) -# 5318 "parsing/parser.ml" +# 5321 "parsing/parser.ml" in -# 2167 "parsing/parser.mly" +# 2170 "parsing/parser.mly" ( Pcty_constr (cid, tys) ) -# 5324 "parsing/parser.ml" +# 5327 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -5328,15 +5331,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1073 "parsing/parser.mly" +# 1076 "parsing/parser.mly" ( mkcty ~loc:_sloc _1 ) -# 5334 "parsing/parser.ml" +# 5337 "parsing/parser.ml" in -# 2170 "parsing/parser.mly" +# 2173 "parsing/parser.mly" ( _1 ) -# 5340 "parsing/parser.ml" +# 5343 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5360,23 +5363,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.class_type) = let _1 = let _1 = -# 2169 "parsing/parser.mly" +# 2172 "parsing/parser.mly" ( Pcty_extension _1 ) -# 5366 "parsing/parser.ml" +# 5369 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1073 "parsing/parser.mly" +# 1076 "parsing/parser.mly" ( mkcty ~loc:_sloc _1 ) -# 5374 "parsing/parser.ml" +# 5377 "parsing/parser.ml" in -# 2170 "parsing/parser.mly" +# 2173 "parsing/parser.mly" ( _1 ) -# 5380 "parsing/parser.ml" +# 5383 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5433,44 +5436,44 @@ module Tables = struct let _1 = # 260 "" ( List.flatten xss ) -# 5437 "parsing/parser.ml" +# 5440 "parsing/parser.ml" in -# 2204 "parsing/parser.mly" +# 2207 "parsing/parser.mly" ( _1 ) -# 5442 "parsing/parser.ml" +# 5445 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1021 "parsing/parser.mly" +# 1024 "parsing/parser.mly" ( extra_csig _startpos _endpos _1 ) -# 5451 "parsing/parser.ml" +# 5454 "parsing/parser.ml" in -# 2194 "parsing/parser.mly" +# 2197 "parsing/parser.mly" ( Csig.mk _1 _2 ) -# 5457 "parsing/parser.ml" +# 5460 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 5465 "parsing/parser.ml" +# 5468 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2172 "parsing/parser.mly" +# 2175 "parsing/parser.mly" ( mkcty ~loc:_sloc ~attrs:_2 (Pcty_signature _3) ) -# 5474 "parsing/parser.ml" +# 5477 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5527,43 +5530,43 @@ module Tables = struct let _1 = # 260 "" ( List.flatten xss ) -# 5531 "parsing/parser.ml" +# 5534 "parsing/parser.ml" in -# 2204 "parsing/parser.mly" +# 2207 "parsing/parser.mly" ( _1 ) -# 5536 "parsing/parser.ml" +# 5539 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1021 "parsing/parser.mly" +# 1024 "parsing/parser.mly" ( extra_csig _startpos _endpos _1 ) -# 5545 "parsing/parser.ml" +# 5548 "parsing/parser.ml" in -# 2194 "parsing/parser.mly" +# 2197 "parsing/parser.mly" ( Csig.mk _1 _2 ) -# 5551 "parsing/parser.ml" +# 5554 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 5559 "parsing/parser.ml" +# 5562 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2174 "parsing/parser.mly" +# 2177 "parsing/parser.mly" ( unclosed "object" _loc__1_ "end" _loc__4_ ) -# 5567 "parsing/parser.ml" +# 5570 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5593,9 +5596,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.class_type) = -# 2176 "parsing/parser.mly" +# 2179 "parsing/parser.mly" ( Cty.attr _1 _2 ) -# 5599 "parsing/parser.ml" +# 5602 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5658,34 +5661,34 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 5664 "parsing/parser.ml" +# 5667 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined2_ in let _4 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 5673 "parsing/parser.ml" +# 5676 "parsing/parser.ml" in let _3 = -# 4119 "parsing/parser.mly" +# 4122 "parsing/parser.mly" ( Fresh ) -# 5679 "parsing/parser.ml" +# 5682 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2178 "parsing/parser.mly" +# 2181 "parsing/parser.mly" ( let loc = (_startpos__2_, _endpos__5_) in let od = Opn.mk ~override:_3 ~loc:(make_loc loc) _5 in mkcty ~loc:_sloc ~attrs:_4 (Pcty_open(od, _7)) ) -# 5689 "parsing/parser.ml" +# 5692 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5755,34 +5758,34 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 5761 "parsing/parser.ml" +# 5764 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined3_ in let _4 = let _1 = _1_inlined2 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 5770 "parsing/parser.ml" +# 5773 "parsing/parser.ml" in let _3 = -# 4120 "parsing/parser.mly" +# 4123 "parsing/parser.mly" ( Override ) -# 5776 "parsing/parser.ml" +# 5779 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2178 "parsing/parser.mly" +# 2181 "parsing/parser.mly" ( let loc = (_startpos__2_, _endpos__5_) in let od = Opn.mk ~override:_3 ~loc:(make_loc loc) _5 in mkcty ~loc:_sloc ~attrs:_4 (Pcty_open(od, _7)) ) -# 5786 "parsing/parser.ml" +# 5789 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5819,9 +5822,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.class_expr) = -# 2038 "parsing/parser.mly" +# 2041 "parsing/parser.mly" ( _2 ) -# 5825 "parsing/parser.ml" +# 5828 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5860,9 +5863,9 @@ module Tables = struct let _v : (Parsetree.class_expr) = let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2040 "parsing/parser.mly" +# 2043 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) -# 5866 "parsing/parser.ml" +# 5869 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5891,42 +5894,42 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 5897 "parsing/parser.ml" +# 5900 "parsing/parser.ml" in let tys = let tys = -# 2184 "parsing/parser.mly" +# 2187 "parsing/parser.mly" ( [] ) -# 5904 "parsing/parser.ml" +# 5907 "parsing/parser.ml" in -# 2190 "parsing/parser.mly" +# 2193 "parsing/parser.mly" ( tys ) -# 5909 "parsing/parser.ml" +# 5912 "parsing/parser.ml" in -# 2043 "parsing/parser.mly" +# 2046 "parsing/parser.mly" ( Pcl_constr(cid, tys) ) -# 5915 "parsing/parser.ml" +# 5918 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1082 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 5924 "parsing/parser.ml" +# 5927 "parsing/parser.ml" in -# 2050 "parsing/parser.mly" +# 2053 "parsing/parser.mly" ( _1 ) -# 5930 "parsing/parser.ml" +# 5933 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5977,9 +5980,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 5983 "parsing/parser.ml" +# 5986 "parsing/parser.ml" in let tys = @@ -5988,30 +5991,30 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 5992 "parsing/parser.ml" +# 5995 "parsing/parser.ml" in -# 1160 "parsing/parser.mly" +# 1163 "parsing/parser.mly" ( xs ) -# 5997 "parsing/parser.ml" +# 6000 "parsing/parser.ml" in -# 2186 "parsing/parser.mly" +# 2189 "parsing/parser.mly" ( params ) -# 6003 "parsing/parser.ml" +# 6006 "parsing/parser.ml" in -# 2190 "parsing/parser.mly" +# 2193 "parsing/parser.mly" ( tys ) -# 6009 "parsing/parser.ml" +# 6012 "parsing/parser.ml" in -# 2043 "parsing/parser.mly" +# 2046 "parsing/parser.mly" ( Pcl_constr(cid, tys) ) -# 6015 "parsing/parser.ml" +# 6018 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -6019,15 +6022,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1082 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 6025 "parsing/parser.ml" +# 6028 "parsing/parser.ml" in -# 2050 "parsing/parser.mly" +# 2053 "parsing/parser.mly" ( _1 ) -# 6031 "parsing/parser.ml" +# 6034 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6086,43 +6089,43 @@ module Tables = struct let _1 = # 260 "" ( List.flatten xss ) -# 6090 "parsing/parser.ml" +# 6093 "parsing/parser.ml" in -# 2077 "parsing/parser.mly" +# 2080 "parsing/parser.mly" ( _1 ) -# 6095 "parsing/parser.ml" +# 6098 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1020 "parsing/parser.mly" +# 1023 "parsing/parser.mly" ( extra_cstr _startpos _endpos _1 ) -# 6104 "parsing/parser.ml" +# 6107 "parsing/parser.ml" in -# 2064 "parsing/parser.mly" +# 2067 "parsing/parser.mly" ( Cstr.mk _1 _2 ) -# 6110 "parsing/parser.ml" +# 6113 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 6118 "parsing/parser.ml" +# 6121 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2045 "parsing/parser.mly" +# 2048 "parsing/parser.mly" ( unclosed "object" _loc__1_ "end" _loc__4_ ) -# 6126 "parsing/parser.ml" +# 6129 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -6130,15 +6133,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1082 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 6136 "parsing/parser.ml" +# 6139 "parsing/parser.ml" in -# 2050 "parsing/parser.mly" +# 2053 "parsing/parser.mly" ( _1 ) -# 6142 "parsing/parser.ml" +# 6145 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6190,24 +6193,24 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.class_expr) = let _1 = let _1 = -# 2047 "parsing/parser.mly" +# 2050 "parsing/parser.mly" ( Pcl_constraint(_2, _4) ) -# 6196 "parsing/parser.ml" +# 6199 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1082 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 6205 "parsing/parser.ml" +# 6208 "parsing/parser.ml" in -# 2050 "parsing/parser.mly" +# 2053 "parsing/parser.mly" ( _1 ) -# 6211 "parsing/parser.ml" +# 6214 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6262,9 +6265,9 @@ module Tables = struct let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2049 "parsing/parser.mly" +# 2052 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__5_ ) -# 6268 "parsing/parser.ml" +# 6271 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -6272,15 +6275,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1082 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 6278 "parsing/parser.ml" +# 6281 "parsing/parser.ml" in -# 2050 "parsing/parser.mly" +# 2053 "parsing/parser.mly" ( _1 ) -# 6284 "parsing/parser.ml" +# 6287 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6337,44 +6340,44 @@ module Tables = struct let _1 = # 260 "" ( List.flatten xss ) -# 6341 "parsing/parser.ml" +# 6344 "parsing/parser.ml" in -# 2077 "parsing/parser.mly" +# 2080 "parsing/parser.mly" ( _1 ) -# 6346 "parsing/parser.ml" +# 6349 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1020 "parsing/parser.mly" +# 1023 "parsing/parser.mly" ( extra_cstr _startpos _endpos _1 ) -# 6355 "parsing/parser.ml" +# 6358 "parsing/parser.ml" in -# 2064 "parsing/parser.mly" +# 2067 "parsing/parser.mly" ( Cstr.mk _1 _2 ) -# 6361 "parsing/parser.ml" +# 6364 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 6369 "parsing/parser.ml" +# 6372 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2052 "parsing/parser.mly" +# 2055 "parsing/parser.mly" ( mkclass ~loc:_sloc ~attrs:_2 (Pcl_structure _3) ) -# 6378 "parsing/parser.ml" +# 6381 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6397,9 +6400,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.class_type) = -# 2155 "parsing/parser.mly" +# 2158 "parsing/parser.mly" ( _1 ) -# 6403 "parsing/parser.ml" +# 6406 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6445,14 +6448,14 @@ module Tables = struct let _v : (Parsetree.class_type) = let _1 = let _1 = let label = -# 3683 "parsing/parser.mly" +# 3686 "parsing/parser.mly" ( Optional label ) -# 6451 "parsing/parser.ml" +# 6454 "parsing/parser.ml" in -# 2161 "parsing/parser.mly" +# 2164 "parsing/parser.mly" ( Pcty_arrow(label, domain, codomain) ) -# 6456 "parsing/parser.ml" +# 6459 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -6460,15 +6463,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1073 "parsing/parser.mly" +# 1076 "parsing/parser.mly" ( mkcty ~loc:_sloc _1 ) -# 6466 "parsing/parser.ml" +# 6469 "parsing/parser.ml" in -# 2162 "parsing/parser.mly" +# 2165 "parsing/parser.mly" ( _1 ) -# 6472 "parsing/parser.ml" +# 6475 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6515,9 +6518,9 @@ module Tables = struct let domain : (Parsetree.core_type) = Obj.magic domain in let _2 : unit = Obj.magic _2 in let label : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 6521 "parsing/parser.ml" +# 6524 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -6525,14 +6528,14 @@ module Tables = struct let _v : (Parsetree.class_type) = let _1 = let _1 = let label = -# 3685 "parsing/parser.mly" +# 3688 "parsing/parser.mly" ( Labelled label ) -# 6531 "parsing/parser.ml" +# 6534 "parsing/parser.ml" in -# 2161 "parsing/parser.mly" +# 2164 "parsing/parser.mly" ( Pcty_arrow(label, domain, codomain) ) -# 6536 "parsing/parser.ml" +# 6539 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -6540,15 +6543,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1073 "parsing/parser.mly" +# 1076 "parsing/parser.mly" ( mkcty ~loc:_sloc _1 ) -# 6546 "parsing/parser.ml" +# 6549 "parsing/parser.ml" in -# 2162 "parsing/parser.mly" +# 2165 "parsing/parser.mly" ( _1 ) -# 6552 "parsing/parser.ml" +# 6555 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6587,14 +6590,14 @@ module Tables = struct let _v : (Parsetree.class_type) = let _1 = let _1 = let label = -# 3687 "parsing/parser.mly" +# 3690 "parsing/parser.mly" ( Nolabel ) -# 6593 "parsing/parser.ml" +# 6596 "parsing/parser.ml" in -# 2161 "parsing/parser.mly" +# 2164 "parsing/parser.mly" ( Pcty_arrow(label, domain, codomain) ) -# 6598 "parsing/parser.ml" +# 6601 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_domain_) in @@ -6602,15 +6605,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1073 "parsing/parser.mly" +# 1076 "parsing/parser.mly" ( mkcty ~loc:_sloc _1 ) -# 6608 "parsing/parser.ml" +# 6611 "parsing/parser.ml" in -# 2162 "parsing/parser.mly" +# 2165 "parsing/parser.mly" ( _1 ) -# 6614 "parsing/parser.ml" +# 6617 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6693,9 +6696,9 @@ module Tables = struct let csig : (Parsetree.class_type) = Obj.magic csig in let _8 : unit = Obj.magic _8 in let _1_inlined2 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 6699 "parsing/parser.ml" +# 6702 "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 @@ -6711,9 +6714,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 6717 "parsing/parser.ml" +# 6720 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -6723,24 +6726,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 6729 "parsing/parser.ml" +# 6732 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 6737 "parsing/parser.ml" +# 6740 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2300 "parsing/parser.mly" +# 2303 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in @@ -6748,19 +6751,19 @@ module Tables = struct ext, Ci.mk id csig ~virt ~params ~attrs ~loc ~docs ) -# 6752 "parsing/parser.ml" +# 6755 "parsing/parser.ml" in -# 1257 "parsing/parser.mly" +# 1260 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 6758 "parsing/parser.ml" +# 6761 "parsing/parser.ml" in -# 2288 "parsing/parser.mly" +# 2291 "parsing/parser.mly" ( _1 ) -# 6764 "parsing/parser.ml" +# 6767 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6783,9 +6786,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 3987 "parsing/parser.mly" +# 3990 "parsing/parser.mly" ( _1 ) -# 6789 "parsing/parser.ml" +# 6792 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6818,18 +6821,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 6822 "parsing/parser.ml" +# 6825 "parsing/parser.ml" in -# 1160 "parsing/parser.mly" +# 1163 "parsing/parser.mly" ( xs ) -# 6827 "parsing/parser.ml" +# 6830 "parsing/parser.ml" in -# 2592 "parsing/parser.mly" +# 2595 "parsing/parser.mly" ( Extensions.Comprehensions.For _2 ) -# 6833 "parsing/parser.ml" +# 6836 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6859,9 +6862,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Extensions.Comprehensions.clause) = -# 2594 "parsing/parser.mly" +# 2597 "parsing/parser.mly" ( Extensions.Comprehensions.When _2 ) -# 6865 "parsing/parser.ml" +# 6868 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6898,14 +6901,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Extensions.Comprehensions.clause_binding) = let _1 = -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 6904 "parsing/parser.ml" +# 6907 "parsing/parser.ml" in -# 2575 "parsing/parser.mly" +# 2578 "parsing/parser.mly" ( Extensions.Comprehensions.{ pattern = _2 ; iterator = _3 ; attributes = _1 } ) -# 6909 "parsing/parser.ml" +# 6912 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6956,9 +6959,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Extensions.Comprehensions.clause_binding) = let _1 = -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 6962 "parsing/parser.ml" +# 6965 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = if _startpos__1_ != _endpos__1_ then @@ -6968,14 +6971,14 @@ module Tables = struct let _loc__2_ = (_startpos__2_, _endpos__2_) in let _sloc = (_symbolstartpos, _endpos) in -# 2582 "parsing/parser.mly" +# 2585 "parsing/parser.mly" ( Extensions.Comprehensions. { pattern = _3 ; iterator = In (mkexp_stack ~loc:_sloc ~kwd_loc:(_loc__2_) _5) ; attributes = _1 } ) -# 6979 "parsing/parser.ml" +# 6982 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7019,9 +7022,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Extensions.Comprehensions.iterator) = -# 2568 "parsing/parser.mly" +# 2571 "parsing/parser.mly" ( Extensions.Comprehensions.Range { start = _2 ; stop = _4 ; direction = _3 } ) -# 7025 "parsing/parser.ml" +# 7028 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7051,9 +7054,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Extensions.Comprehensions.iterator) = -# 2570 "parsing/parser.mly" +# 2573 "parsing/parser.mly" ( Extensions.Comprehensions.In _2 ) -# 7057 "parsing/parser.ml" +# 7060 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7072,17 +7075,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 825 "parsing/parser.mly" +# 828 "parsing/parser.mly" (string * char option) -# 7078 "parsing/parser.ml" +# 7081 "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) = -# 3870 "parsing/parser.mly" +# 3873 "parsing/parser.mly" ( let (n, m) = _1 in Pconst_integer (n, m) ) -# 7086 "parsing/parser.ml" +# 7089 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7101,17 +7104,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 782 "parsing/parser.mly" +# 785 "parsing/parser.mly" (char) -# 7107 "parsing/parser.ml" +# 7110 "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) = -# 3871 "parsing/parser.mly" +# 3874 "parsing/parser.mly" ( Pconst_char _1 ) -# 7115 "parsing/parser.ml" +# 7118 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7130,17 +7133,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 880 "parsing/parser.mly" +# 883 "parsing/parser.mly" (string * Location.t * string option) -# 7136 "parsing/parser.ml" +# 7139 "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) = -# 3872 "parsing/parser.mly" +# 3875 "parsing/parser.mly" ( let (s, strloc, d) = _1 in Pconst_string (s, strloc, d) ) -# 7144 "parsing/parser.ml" +# 7147 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7159,17 +7162,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 803 "parsing/parser.mly" +# 806 "parsing/parser.mly" (string * char option) -# 7165 "parsing/parser.ml" +# 7168 "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) = -# 3873 "parsing/parser.mly" +# 3876 "parsing/parser.mly" ( let (f, m) = _1 in Pconst_float (f, m) ) -# 7173 "parsing/parser.ml" +# 7176 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7199,9 +7202,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.label) = -# 3944 "parsing/parser.mly" +# 3947 "parsing/parser.mly" ( "[]" ) -# 7205 "parsing/parser.ml" +# 7208 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7231,9 +7234,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.label) = -# 3945 "parsing/parser.mly" +# 3948 "parsing/parser.mly" ( "()" ) -# 7237 "parsing/parser.ml" +# 7240 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7256,9 +7259,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = -# 3946 "parsing/parser.mly" +# 3949 "parsing/parser.mly" ( "false" ) -# 7262 "parsing/parser.ml" +# 7265 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7281,9 +7284,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = -# 3947 "parsing/parser.mly" +# 3950 "parsing/parser.mly" ( "true" ) -# 7287 "parsing/parser.ml" +# 7290 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7302,17 +7305,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 893 "parsing/parser.mly" +# 896 "parsing/parser.mly" (string) -# 7308 "parsing/parser.ml" +# 7311 "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) = -# 3950 "parsing/parser.mly" +# 3953 "parsing/parser.mly" ( _1 ) -# 7316 "parsing/parser.ml" +# 7319 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7349,14 +7352,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Asttypes.label) = let _1 = -# 3941 "parsing/parser.mly" +# 3944 "parsing/parser.mly" ( "::" ) -# 7355 "parsing/parser.ml" +# 7358 "parsing/parser.ml" in -# 3951 "parsing/parser.mly" +# 3954 "parsing/parser.mly" ( _1 ) -# 7360 "parsing/parser.ml" +# 7363 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7379,9 +7382,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = -# 3952 "parsing/parser.mly" +# 3955 "parsing/parser.mly" ( _1 ) -# 7385 "parsing/parser.ml" +# 7388 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7404,9 +7407,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 3955 "parsing/parser.mly" +# 3958 "parsing/parser.mly" ( _1 ) -# 7410 "parsing/parser.ml" +# 7413 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7457,14 +7460,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = let _3 = -# 3941 "parsing/parser.mly" +# 3944 "parsing/parser.mly" ( "::" ) -# 7463 "parsing/parser.ml" +# 7466 "parsing/parser.ml" in -# 3956 "parsing/parser.mly" +# 3959 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 7468 "parsing/parser.ml" +# 7471 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7501,14 +7504,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = let _1 = -# 3941 "parsing/parser.mly" +# 3944 "parsing/parser.mly" ( "::" ) -# 7507 "parsing/parser.ml" +# 7510 "parsing/parser.ml" in -# 3957 "parsing/parser.mly" +# 3960 "parsing/parser.mly" ( Lident _1 ) -# 7512 "parsing/parser.ml" +# 7515 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7531,9 +7534,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 3958 "parsing/parser.mly" +# 3961 "parsing/parser.mly" ( Lident _1 ) -# 7537 "parsing/parser.ml" +# 7540 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7570,9 +7573,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.core_type * Parsetree.core_type) = -# 2244 "parsing/parser.mly" +# 2247 "parsing/parser.mly" ( _1, _3 ) -# 7576 "parsing/parser.ml" +# 7579 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7599,42 +7602,42 @@ module Tables = struct let xs = let x = let gbl = -# 4075 "parsing/parser.mly" +# 4078 "parsing/parser.mly" ( Nothing ) -# 7605 "parsing/parser.ml" +# 7608 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__0_, _endpos__0_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3451 "parsing/parser.mly" +# 3454 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 7614 "parsing/parser.ml" +# 7617 "parsing/parser.ml" in -# 1144 "parsing/parser.mly" +# 1147 "parsing/parser.mly" ( [ x ] ) -# 7620 "parsing/parser.ml" +# 7623 "parsing/parser.ml" in # 253 "" ( List.rev xs ) -# 7626 "parsing/parser.ml" +# 7629 "parsing/parser.ml" in -# 1164 "parsing/parser.mly" +# 1167 "parsing/parser.mly" ( xs ) -# 7632 "parsing/parser.ml" +# 7635 "parsing/parser.ml" in -# 3459 "parsing/parser.mly" +# 3462 "parsing/parser.mly" ( Pcstr_tuple tys ) -# 7638 "parsing/parser.ml" +# 7641 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7668,42 +7671,42 @@ module Tables = struct let xs = let x = let gbl = -# 4076 "parsing/parser.mly" +# 4079 "parsing/parser.mly" ( Global ) -# 7674 "parsing/parser.ml" +# 7677 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3451 "parsing/parser.mly" +# 3454 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 7683 "parsing/parser.ml" +# 7686 "parsing/parser.ml" in -# 1144 "parsing/parser.mly" +# 1147 "parsing/parser.mly" ( [ x ] ) -# 7689 "parsing/parser.ml" +# 7692 "parsing/parser.ml" in # 253 "" ( List.rev xs ) -# 7695 "parsing/parser.ml" +# 7698 "parsing/parser.ml" in -# 1164 "parsing/parser.mly" +# 1167 "parsing/parser.mly" ( xs ) -# 7701 "parsing/parser.ml" +# 7704 "parsing/parser.ml" in -# 3459 "parsing/parser.mly" +# 3462 "parsing/parser.mly" ( Pcstr_tuple tys ) -# 7707 "parsing/parser.ml" +# 7710 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7737,42 +7740,42 @@ module Tables = struct let xs = let x = let gbl = -# 4077 "parsing/parser.mly" +# 4080 "parsing/parser.mly" ( Nonlocal ) -# 7743 "parsing/parser.ml" +# 7746 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3451 "parsing/parser.mly" +# 3454 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 7752 "parsing/parser.ml" +# 7755 "parsing/parser.ml" in -# 1144 "parsing/parser.mly" +# 1147 "parsing/parser.mly" ( [ x ] ) -# 7758 "parsing/parser.ml" +# 7761 "parsing/parser.ml" in # 253 "" ( List.rev xs ) -# 7764 "parsing/parser.ml" +# 7767 "parsing/parser.ml" in -# 1164 "parsing/parser.mly" +# 1167 "parsing/parser.mly" ( xs ) -# 7770 "parsing/parser.ml" +# 7773 "parsing/parser.ml" in -# 3459 "parsing/parser.mly" +# 3462 "parsing/parser.mly" ( Pcstr_tuple tys ) -# 7776 "parsing/parser.ml" +# 7779 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7814,42 +7817,42 @@ module Tables = struct let x = let _endpos__0_ = _endpos__2_ in let gbl = -# 4075 "parsing/parser.mly" +# 4078 "parsing/parser.mly" ( Nothing ) -# 7820 "parsing/parser.ml" +# 7823 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__0_, _endpos__0_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3451 "parsing/parser.mly" +# 3454 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 7829 "parsing/parser.ml" +# 7832 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1151 "parsing/parser.mly" ( x :: xs ) -# 7835 "parsing/parser.ml" +# 7838 "parsing/parser.ml" in # 253 "" ( List.rev xs ) -# 7841 "parsing/parser.ml" +# 7844 "parsing/parser.ml" in -# 1164 "parsing/parser.mly" +# 1167 "parsing/parser.mly" ( xs ) -# 7847 "parsing/parser.ml" +# 7850 "parsing/parser.ml" in -# 3459 "parsing/parser.mly" +# 3462 "parsing/parser.mly" ( Pcstr_tuple tys ) -# 7853 "parsing/parser.ml" +# 7856 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7897,42 +7900,42 @@ module Tables = struct let xs = let x = let gbl = -# 4076 "parsing/parser.mly" +# 4079 "parsing/parser.mly" ( Global ) -# 7903 "parsing/parser.ml" +# 7906 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3451 "parsing/parser.mly" +# 3454 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 7912 "parsing/parser.ml" +# 7915 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1151 "parsing/parser.mly" ( x :: xs ) -# 7918 "parsing/parser.ml" +# 7921 "parsing/parser.ml" in # 253 "" ( List.rev xs ) -# 7924 "parsing/parser.ml" +# 7927 "parsing/parser.ml" in -# 1164 "parsing/parser.mly" +# 1167 "parsing/parser.mly" ( xs ) -# 7930 "parsing/parser.ml" +# 7933 "parsing/parser.ml" in -# 3459 "parsing/parser.mly" +# 3462 "parsing/parser.mly" ( Pcstr_tuple tys ) -# 7936 "parsing/parser.ml" +# 7939 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7980,42 +7983,42 @@ module Tables = struct let xs = let x = let gbl = -# 4077 "parsing/parser.mly" +# 4080 "parsing/parser.mly" ( Nonlocal ) -# 7986 "parsing/parser.ml" +# 7989 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3451 "parsing/parser.mly" +# 3454 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 7995 "parsing/parser.ml" +# 7998 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1151 "parsing/parser.mly" ( x :: xs ) -# 8001 "parsing/parser.ml" +# 8004 "parsing/parser.ml" in # 253 "" ( List.rev xs ) -# 8007 "parsing/parser.ml" +# 8010 "parsing/parser.ml" in -# 1164 "parsing/parser.mly" +# 1167 "parsing/parser.mly" ( xs ) -# 8013 "parsing/parser.ml" +# 8016 "parsing/parser.ml" in -# 3459 "parsing/parser.mly" +# 3462 "parsing/parser.mly" ( Pcstr_tuple tys ) -# 8019 "parsing/parser.ml" +# 8022 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8052,9 +8055,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.constructor_arguments) = -# 3461 "parsing/parser.mly" +# 3464 "parsing/parser.mly" ( Pcstr_record _2 ) -# 8058 "parsing/parser.ml" +# 8061 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8077,9 +8080,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.constructor_declaration list) = -# 3369 "parsing/parser.mly" +# 3372 "parsing/parser.mly" ( [] ) -# 8083 "parsing/parser.ml" +# 8086 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8102,14 +8105,14 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_xs_ in let _v : (Parsetree.constructor_declaration list) = let cs = -# 1249 "parsing/parser.mly" +# 1252 "parsing/parser.mly" ( List.rev xs ) -# 8108 "parsing/parser.ml" +# 8111 "parsing/parser.ml" in -# 3371 "parsing/parser.mly" +# 3374 "parsing/parser.mly" ( cs ) -# 8113 "parsing/parser.ml" +# 8116 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8132,14 +8135,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = let _1 = -# 3625 "parsing/parser.mly" +# 3628 "parsing/parser.mly" ( _1 ) -# 8138 "parsing/parser.ml" +# 8141 "parsing/parser.ml" in -# 3615 "parsing/parser.mly" +# 3618 "parsing/parser.mly" ( _1 ) -# 8143 "parsing/parser.ml" +# 8146 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8169,9 +8172,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.core_type) = -# 3617 "parsing/parser.mly" +# 3620 "parsing/parser.mly" ( Typ.attr _1 _2 ) -# 8175 "parsing/parser.ml" +# 8178 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8194,9 +8197,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.direction_flag) = -# 4053 "parsing/parser.mly" +# 4056 "parsing/parser.mly" ( Upto ) -# 8200 "parsing/parser.ml" +# 8203 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8219,9 +8222,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.direction_flag) = -# 4054 "parsing/parser.mly" +# 4057 "parsing/parser.mly" ( Downto ) -# 8225 "parsing/parser.ml" +# 8228 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8244,9 +8247,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.expression) = -# 2438 "parsing/parser.mly" +# 2441 "parsing/parser.mly" ( _1 ) -# 8250 "parsing/parser.ml" +# 8253 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8324,9 +8327,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 8330 "parsing/parser.ml" +# 8333 "parsing/parser.ml" in let _3 = @@ -8334,21 +8337,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 8340 "parsing/parser.ml" +# 8343 "parsing/parser.ml" in -# 4232 "parsing/parser.mly" +# 4235 "parsing/parser.mly" ( _1, _2 ) -# 8346 "parsing/parser.ml" +# 8349 "parsing/parser.ml" in -# 2473 "parsing/parser.mly" +# 2476 "parsing/parser.mly" ( Pexp_letmodule(_4, _5, _7), _3 ) -# 8352 "parsing/parser.ml" +# 8355 "parsing/parser.ml" in let _endpos__1_ = _endpos__7_ in @@ -8356,10 +8359,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2440 "parsing/parser.mly" +# 2443 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 8363 "parsing/parser.ml" +# 8366 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8444,9 +8447,9 @@ module Tables = struct let _3 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 8450 "parsing/parser.ml" +# 8453 "parsing/parser.ml" in let _endpos__3_ = _endpos__1_inlined1_ in @@ -8455,19 +8458,19 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 8461 "parsing/parser.ml" +# 8464 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3433 "parsing/parser.mly" +# 3436 "parsing/parser.mly" ( let vars, args, res = _2 in Te.decl _1 ~vars ~args ?res ~attrs:_3 ~loc:(make_loc _sloc) ) -# 8471 "parsing/parser.ml" +# 8474 "parsing/parser.ml" in let _3 = @@ -8475,21 +8478,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 8481 "parsing/parser.ml" +# 8484 "parsing/parser.ml" in -# 4232 "parsing/parser.mly" +# 4235 "parsing/parser.mly" ( _1, _2 ) -# 8487 "parsing/parser.ml" +# 8490 "parsing/parser.ml" in -# 2475 "parsing/parser.mly" +# 2478 "parsing/parser.mly" ( Pexp_letexception(_4, _6), _3 ) -# 8493 "parsing/parser.ml" +# 8496 "parsing/parser.ml" in let _endpos__1_ = _endpos__6_ in @@ -8497,10 +8500,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2440 "parsing/parser.mly" +# 2443 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 8504 "parsing/parser.ml" +# 8507 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8570,28 +8573,28 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 8576 "parsing/parser.ml" +# 8579 "parsing/parser.ml" in -# 4232 "parsing/parser.mly" +# 4235 "parsing/parser.mly" ( _1, _2 ) -# 8582 "parsing/parser.ml" +# 8585 "parsing/parser.ml" in let _3 = -# 4119 "parsing/parser.mly" +# 4122 "parsing/parser.mly" ( Fresh ) -# 8588 "parsing/parser.ml" +# 8591 "parsing/parser.ml" in -# 2477 "parsing/parser.mly" +# 2480 "parsing/parser.mly" ( let open_loc = make_loc (_startpos__2_, _endpos__5_) in let od = Opn.mk _5 ~override:_3 ~loc:open_loc in Pexp_open(od, _7), _4 ) -# 8595 "parsing/parser.ml" +# 8598 "parsing/parser.ml" in let _endpos__1_ = _endpos__7_ in @@ -8599,10 +8602,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2440 "parsing/parser.mly" +# 2443 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 8606 "parsing/parser.ml" +# 8609 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8679,28 +8682,28 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 8685 "parsing/parser.ml" +# 8688 "parsing/parser.ml" in -# 4232 "parsing/parser.mly" +# 4235 "parsing/parser.mly" ( _1, _2 ) -# 8691 "parsing/parser.ml" +# 8694 "parsing/parser.ml" in let _3 = -# 4120 "parsing/parser.mly" +# 4123 "parsing/parser.mly" ( Override ) -# 8697 "parsing/parser.ml" +# 8700 "parsing/parser.ml" in -# 2477 "parsing/parser.mly" +# 2480 "parsing/parser.mly" ( let open_loc = make_loc (_startpos__2_, _endpos__5_) in let od = Opn.mk _5 ~override:_3 ~loc:open_loc in Pexp_open(od, _7), _4 ) -# 8704 "parsing/parser.ml" +# 8707 "parsing/parser.ml" in let _endpos__1_ = _endpos__7_ in @@ -8708,10 +8711,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2440 "parsing/parser.mly" +# 2443 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 8715 "parsing/parser.ml" +# 8718 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8760,18 +8763,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 8764 "parsing/parser.ml" +# 8767 "parsing/parser.ml" in -# 1221 "parsing/parser.mly" +# 1224 "parsing/parser.mly" ( xs ) -# 8769 "parsing/parser.ml" +# 8772 "parsing/parser.ml" in -# 2897 "parsing/parser.mly" +# 2900 "parsing/parser.mly" ( xs ) -# 8775 "parsing/parser.ml" +# 8778 "parsing/parser.ml" in let _2 = @@ -8779,21 +8782,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 8785 "parsing/parser.ml" +# 8788 "parsing/parser.ml" in -# 4232 "parsing/parser.mly" +# 4235 "parsing/parser.mly" ( _1, _2 ) -# 8791 "parsing/parser.ml" +# 8794 "parsing/parser.ml" in -# 2481 "parsing/parser.mly" +# 2484 "parsing/parser.mly" ( Pexp_function _3, _2 ) -# 8797 "parsing/parser.ml" +# 8800 "parsing/parser.ml" in let _endpos__1_ = _endpos_xs_ in @@ -8801,10 +8804,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2440 "parsing/parser.mly" +# 2443 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 8808 "parsing/parser.ml" +# 8811 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8860,22 +8863,22 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 8866 "parsing/parser.ml" +# 8869 "parsing/parser.ml" in -# 4232 "parsing/parser.mly" +# 4235 "parsing/parser.mly" ( _1, _2 ) -# 8872 "parsing/parser.ml" +# 8875 "parsing/parser.ml" in -# 2483 "parsing/parser.mly" +# 2486 "parsing/parser.mly" ( let (l,o,p) = _3 in Pexp_fun(l, o, p, _4), _2 ) -# 8879 "parsing/parser.ml" +# 8882 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -8883,10 +8886,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2440 "parsing/parser.mly" +# 2443 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 8890 "parsing/parser.ml" +# 8893 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8959,33 +8962,33 @@ module Tables = struct let _endpos = _endpos__7_ in let _v : (Parsetree.expression) = let _1 = let _5 = -# 2751 "parsing/parser.mly" +# 2754 "parsing/parser.mly" ( xs ) -# 8965 "parsing/parser.ml" +# 8968 "parsing/parser.ml" in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 8974 "parsing/parser.ml" +# 8977 "parsing/parser.ml" in -# 4232 "parsing/parser.mly" +# 4235 "parsing/parser.mly" ( _1, _2 ) -# 8980 "parsing/parser.ml" +# 8983 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2486 "parsing/parser.mly" +# 2489 "parsing/parser.mly" ( (mk_newtypes ~loc:_sloc _5 _7).pexp_desc, _2 ) -# 8989 "parsing/parser.ml" +# 8992 "parsing/parser.ml" in let _endpos__1_ = _endpos__7_ in @@ -8993,10 +8996,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2440 "parsing/parser.mly" +# 2443 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9000 "parsing/parser.ml" +# 9003 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9059,18 +9062,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 9063 "parsing/parser.ml" +# 9066 "parsing/parser.ml" in -# 1221 "parsing/parser.mly" +# 1224 "parsing/parser.mly" ( xs ) -# 9068 "parsing/parser.ml" +# 9071 "parsing/parser.ml" in -# 2897 "parsing/parser.mly" +# 2900 "parsing/parser.mly" ( xs ) -# 9074 "parsing/parser.ml" +# 9077 "parsing/parser.ml" in let _2 = @@ -9078,21 +9081,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 9084 "parsing/parser.ml" +# 9087 "parsing/parser.ml" in -# 4232 "parsing/parser.mly" +# 4235 "parsing/parser.mly" ( _1, _2 ) -# 9090 "parsing/parser.ml" +# 9093 "parsing/parser.ml" in -# 2488 "parsing/parser.mly" +# 2491 "parsing/parser.mly" ( Pexp_match(_3, _5), _2 ) -# 9096 "parsing/parser.ml" +# 9099 "parsing/parser.ml" in let _endpos__1_ = _endpos_xs_ in @@ -9100,10 +9103,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2440 "parsing/parser.mly" +# 2443 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9107 "parsing/parser.ml" +# 9110 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9166,18 +9169,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 9170 "parsing/parser.ml" +# 9173 "parsing/parser.ml" in -# 1221 "parsing/parser.mly" +# 1224 "parsing/parser.mly" ( xs ) -# 9175 "parsing/parser.ml" +# 9178 "parsing/parser.ml" in -# 2897 "parsing/parser.mly" +# 2900 "parsing/parser.mly" ( xs ) -# 9181 "parsing/parser.ml" +# 9184 "parsing/parser.ml" in let _2 = @@ -9185,21 +9188,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 9191 "parsing/parser.ml" +# 9194 "parsing/parser.ml" in -# 4232 "parsing/parser.mly" +# 4235 "parsing/parser.mly" ( _1, _2 ) -# 9197 "parsing/parser.ml" +# 9200 "parsing/parser.ml" in -# 2490 "parsing/parser.mly" +# 2493 "parsing/parser.mly" ( Pexp_try(_3, _5), _2 ) -# 9203 "parsing/parser.ml" +# 9206 "parsing/parser.ml" in let _endpos__1_ = _endpos_xs_ in @@ -9207,10 +9210,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2440 "parsing/parser.mly" +# 2443 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9214 "parsing/parser.ml" +# 9217 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9273,21 +9276,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 9279 "parsing/parser.ml" +# 9282 "parsing/parser.ml" in -# 4232 "parsing/parser.mly" +# 4235 "parsing/parser.mly" ( _1, _2 ) -# 9285 "parsing/parser.ml" +# 9288 "parsing/parser.ml" in -# 2492 "parsing/parser.mly" +# 2495 "parsing/parser.mly" ( syntax_error() ) -# 9291 "parsing/parser.ml" +# 9294 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -9295,10 +9298,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2440 "parsing/parser.mly" +# 2443 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9302 "parsing/parser.ml" +# 9305 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9375,21 +9378,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 9381 "parsing/parser.ml" +# 9384 "parsing/parser.ml" in -# 4232 "parsing/parser.mly" +# 4235 "parsing/parser.mly" ( _1, _2 ) -# 9387 "parsing/parser.ml" +# 9390 "parsing/parser.ml" in -# 2494 "parsing/parser.mly" +# 2497 "parsing/parser.mly" ( Pexp_ifthenelse(_3, _5, Some _7), _2 ) -# 9393 "parsing/parser.ml" +# 9396 "parsing/parser.ml" in let _endpos__1_ = _endpos__7_ in @@ -9397,10 +9400,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2440 "parsing/parser.mly" +# 2443 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9404 "parsing/parser.ml" +# 9407 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9463,21 +9466,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 9469 "parsing/parser.ml" +# 9472 "parsing/parser.ml" in -# 4232 "parsing/parser.mly" +# 4235 "parsing/parser.mly" ( _1, _2 ) -# 9475 "parsing/parser.ml" +# 9478 "parsing/parser.ml" in -# 2496 "parsing/parser.mly" +# 2499 "parsing/parser.mly" ( Pexp_ifthenelse(_3, _5, None), _2 ) -# 9481 "parsing/parser.ml" +# 9484 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -9485,10 +9488,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2440 "parsing/parser.mly" +# 2443 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9492 "parsing/parser.ml" +# 9495 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9558,21 +9561,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 9564 "parsing/parser.ml" +# 9567 "parsing/parser.ml" in -# 4232 "parsing/parser.mly" +# 4235 "parsing/parser.mly" ( _1, _2 ) -# 9570 "parsing/parser.ml" +# 9573 "parsing/parser.ml" in -# 2498 "parsing/parser.mly" +# 2501 "parsing/parser.mly" ( Pexp_while(_3, _5), _2 ) -# 9576 "parsing/parser.ml" +# 9579 "parsing/parser.ml" in let _endpos__1_ = _endpos__6_ in @@ -9580,10 +9583,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2440 "parsing/parser.mly" +# 2443 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9587 "parsing/parser.ml" +# 9590 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9681,21 +9684,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 9687 "parsing/parser.ml" +# 9690 "parsing/parser.ml" in -# 4232 "parsing/parser.mly" +# 4235 "parsing/parser.mly" ( _1, _2 ) -# 9693 "parsing/parser.ml" +# 9696 "parsing/parser.ml" in -# 2501 "parsing/parser.mly" +# 2504 "parsing/parser.mly" ( Pexp_for(_3, _5, _7, _6, _9), _2 ) -# 9699 "parsing/parser.ml" +# 9702 "parsing/parser.ml" in let _endpos__1_ = _endpos__10_ in @@ -9703,10 +9706,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2440 "parsing/parser.mly" +# 2443 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9710 "parsing/parser.ml" +# 9713 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9755,21 +9758,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 9761 "parsing/parser.ml" +# 9764 "parsing/parser.ml" in -# 4232 "parsing/parser.mly" +# 4235 "parsing/parser.mly" ( _1, _2 ) -# 9767 "parsing/parser.ml" +# 9770 "parsing/parser.ml" in -# 2503 "parsing/parser.mly" +# 2506 "parsing/parser.mly" ( Pexp_assert _3, _2 ) -# 9773 "parsing/parser.ml" +# 9776 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -9777,10 +9780,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2440 "parsing/parser.mly" +# 2443 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9784 "parsing/parser.ml" +# 9787 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9829,21 +9832,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 9835 "parsing/parser.ml" +# 9838 "parsing/parser.ml" in -# 4232 "parsing/parser.mly" +# 4235 "parsing/parser.mly" ( _1, _2 ) -# 9841 "parsing/parser.ml" +# 9844 "parsing/parser.ml" in -# 2505 "parsing/parser.mly" +# 2508 "parsing/parser.mly" ( Pexp_lazy _3, _2 ) -# 9847 "parsing/parser.ml" +# 9850 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -9851,10 +9854,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2440 "parsing/parser.mly" +# 2443 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9858 "parsing/parser.ml" +# 9861 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9889,18 +9892,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 9893 "parsing/parser.ml" +# 9896 "parsing/parser.ml" in -# 1128 "parsing/parser.mly" +# 1131 "parsing/parser.mly" ( xs ) -# 9898 "parsing/parser.ml" +# 9901 "parsing/parser.ml" in -# 2509 "parsing/parser.mly" +# 2512 "parsing/parser.mly" ( Pexp_apply(_1, _2) ) -# 9904 "parsing/parser.ml" +# 9907 "parsing/parser.ml" in let _endpos__1_ = _endpos_xs_ in @@ -9908,15 +9911,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 9914 "parsing/parser.ml" +# 9917 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2446 "parsing/parser.mly" ( _1 ) -# 9920 "parsing/parser.ml" +# 9923 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9945,24 +9948,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 9949 "parsing/parser.ml" +# 9952 "parsing/parser.ml" in -# 1188 "parsing/parser.mly" +# 1191 "parsing/parser.mly" ( xs ) -# 9954 "parsing/parser.ml" +# 9957 "parsing/parser.ml" in -# 2924 "parsing/parser.mly" +# 2927 "parsing/parser.mly" ( es ) -# 9960 "parsing/parser.ml" +# 9963 "parsing/parser.ml" in -# 2511 "parsing/parser.mly" +# 2514 "parsing/parser.mly" ( Pexp_tuple(_1) ) -# 9966 "parsing/parser.ml" +# 9969 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_xs_) in @@ -9970,15 +9973,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 9976 "parsing/parser.ml" +# 9979 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2446 "parsing/parser.mly" ( _1 ) -# 9982 "parsing/parser.ml" +# 9985 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10014,15 +10017,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 10020 "parsing/parser.ml" +# 10023 "parsing/parser.ml" in -# 2513 "parsing/parser.mly" +# 2516 "parsing/parser.mly" ( Pexp_construct(_1, Some _2) ) -# 10026 "parsing/parser.ml" +# 10029 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -10030,15 +10033,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10036 "parsing/parser.ml" +# 10039 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2446 "parsing/parser.mly" ( _1 ) -# 10042 "parsing/parser.ml" +# 10045 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10069,24 +10072,24 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = let _1 = let _1 = -# 2515 "parsing/parser.mly" +# 2518 "parsing/parser.mly" ( Pexp_variant(_1, Some _2) ) -# 10075 "parsing/parser.ml" +# 10078 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10084 "parsing/parser.ml" +# 10087 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2446 "parsing/parser.mly" ( _1 ) -# 10090 "parsing/parser.ml" +# 10093 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10118,9 +10121,9 @@ module Tables = struct } = _menhir_stack in let e2 : (Parsetree.expression) = Obj.magic e2 in let op : ( -# 815 "parsing/parser.mly" +# 818 "parsing/parser.mly" (string) -# 10124 "parsing/parser.ml" +# 10127 "parsing/parser.ml" ) = Obj.magic op in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -10130,24 +10133,24 @@ module Tables = struct let _1 = let op = let _1 = -# 3914 "parsing/parser.mly" +# 3917 "parsing/parser.mly" ( op ) -# 10136 "parsing/parser.ml" +# 10139 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_op_, _startpos_op_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1053 "parsing/parser.mly" +# 1056 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10145 "parsing/parser.ml" +# 10148 "parsing/parser.ml" in -# 2517 "parsing/parser.mly" +# 2520 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10151 "parsing/parser.ml" +# 10154 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10155,15 +10158,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10161 "parsing/parser.ml" +# 10164 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2446 "parsing/parser.mly" ( _1 ) -# 10167 "parsing/parser.ml" +# 10170 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10195,9 +10198,9 @@ module Tables = struct } = _menhir_stack in let e2 : (Parsetree.expression) = Obj.magic e2 in let op : ( -# 816 "parsing/parser.mly" +# 819 "parsing/parser.mly" (string) -# 10201 "parsing/parser.ml" +# 10204 "parsing/parser.ml" ) = Obj.magic op in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -10207,24 +10210,24 @@ module Tables = struct let _1 = let op = let _1 = -# 3915 "parsing/parser.mly" +# 3918 "parsing/parser.mly" ( op ) -# 10213 "parsing/parser.ml" +# 10216 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_op_, _startpos_op_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1053 "parsing/parser.mly" +# 1056 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10222 "parsing/parser.ml" +# 10225 "parsing/parser.ml" in -# 2517 "parsing/parser.mly" +# 2520 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10228 "parsing/parser.ml" +# 10231 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10232,15 +10235,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10238 "parsing/parser.ml" +# 10241 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2446 "parsing/parser.mly" ( _1 ) -# 10244 "parsing/parser.ml" +# 10247 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10272,9 +10275,9 @@ module Tables = struct } = _menhir_stack in let e2 : (Parsetree.expression) = Obj.magic e2 in let op : ( -# 817 "parsing/parser.mly" +# 820 "parsing/parser.mly" (string) -# 10278 "parsing/parser.ml" +# 10281 "parsing/parser.ml" ) = Obj.magic op in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -10284,24 +10287,24 @@ module Tables = struct let _1 = let op = let _1 = -# 3916 "parsing/parser.mly" +# 3919 "parsing/parser.mly" ( op ) -# 10290 "parsing/parser.ml" +# 10293 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_op_, _startpos_op_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1053 "parsing/parser.mly" +# 1056 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10299 "parsing/parser.ml" +# 10302 "parsing/parser.ml" in -# 2517 "parsing/parser.mly" +# 2520 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10305 "parsing/parser.ml" +# 10308 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10309,15 +10312,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10315 "parsing/parser.ml" +# 10318 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2446 "parsing/parser.mly" ( _1 ) -# 10321 "parsing/parser.ml" +# 10324 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10349,9 +10352,9 @@ module Tables = struct } = _menhir_stack in let e2 : (Parsetree.expression) = Obj.magic e2 in let op : ( -# 818 "parsing/parser.mly" +# 821 "parsing/parser.mly" (string) -# 10355 "parsing/parser.ml" +# 10358 "parsing/parser.ml" ) = Obj.magic op in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -10361,24 +10364,24 @@ module Tables = struct let _1 = let op = let _1 = -# 3917 "parsing/parser.mly" +# 3920 "parsing/parser.mly" ( op ) -# 10367 "parsing/parser.ml" +# 10370 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_op_, _startpos_op_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1053 "parsing/parser.mly" +# 1056 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10376 "parsing/parser.ml" +# 10379 "parsing/parser.ml" in -# 2517 "parsing/parser.mly" +# 2520 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10382 "parsing/parser.ml" +# 10385 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10386,15 +10389,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10392 "parsing/parser.ml" +# 10395 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2446 "parsing/parser.mly" ( _1 ) -# 10398 "parsing/parser.ml" +# 10401 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10426,9 +10429,9 @@ module Tables = struct } = _menhir_stack in let e2 : (Parsetree.expression) = Obj.magic e2 in let op : ( -# 819 "parsing/parser.mly" +# 822 "parsing/parser.mly" (string) -# 10432 "parsing/parser.ml" +# 10435 "parsing/parser.ml" ) = Obj.magic op in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -10438,24 +10441,24 @@ module Tables = struct let _1 = let op = let _1 = -# 3918 "parsing/parser.mly" +# 3921 "parsing/parser.mly" ( op ) -# 10444 "parsing/parser.ml" +# 10447 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_op_, _startpos_op_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1053 "parsing/parser.mly" +# 1056 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10453 "parsing/parser.ml" +# 10456 "parsing/parser.ml" in -# 2517 "parsing/parser.mly" +# 2520 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10459 "parsing/parser.ml" +# 10462 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10463,15 +10466,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10469 "parsing/parser.ml" +# 10472 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2446 "parsing/parser.mly" ( _1 ) -# 10475 "parsing/parser.ml" +# 10478 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10511,23 +10514,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3919 "parsing/parser.mly" +# 3922 "parsing/parser.mly" ("+") -# 10517 "parsing/parser.ml" +# 10520 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1053 "parsing/parser.mly" +# 1056 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10525 "parsing/parser.ml" +# 10528 "parsing/parser.ml" in -# 2517 "parsing/parser.mly" +# 2520 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10531 "parsing/parser.ml" +# 10534 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10535,15 +10538,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10541 "parsing/parser.ml" +# 10544 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2446 "parsing/parser.mly" ( _1 ) -# 10547 "parsing/parser.ml" +# 10550 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10583,23 +10586,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3920 "parsing/parser.mly" +# 3923 "parsing/parser.mly" ("+.") -# 10589 "parsing/parser.ml" +# 10592 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1053 "parsing/parser.mly" +# 1056 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10597 "parsing/parser.ml" +# 10600 "parsing/parser.ml" in -# 2517 "parsing/parser.mly" +# 2520 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10603 "parsing/parser.ml" +# 10606 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10607,15 +10610,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10613 "parsing/parser.ml" +# 10616 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2446 "parsing/parser.mly" ( _1 ) -# 10619 "parsing/parser.ml" +# 10622 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10655,23 +10658,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3921 "parsing/parser.mly" +# 3924 "parsing/parser.mly" ("+=") -# 10661 "parsing/parser.ml" +# 10664 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1053 "parsing/parser.mly" +# 1056 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10669 "parsing/parser.ml" +# 10672 "parsing/parser.ml" in -# 2517 "parsing/parser.mly" +# 2520 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10675 "parsing/parser.ml" +# 10678 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10679,15 +10682,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10685 "parsing/parser.ml" +# 10688 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2446 "parsing/parser.mly" ( _1 ) -# 10691 "parsing/parser.ml" +# 10694 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10727,23 +10730,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3922 "parsing/parser.mly" +# 3925 "parsing/parser.mly" ("-") -# 10733 "parsing/parser.ml" +# 10736 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1053 "parsing/parser.mly" +# 1056 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10741 "parsing/parser.ml" +# 10744 "parsing/parser.ml" in -# 2517 "parsing/parser.mly" +# 2520 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10747 "parsing/parser.ml" +# 10750 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10751,15 +10754,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10757 "parsing/parser.ml" +# 10760 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2446 "parsing/parser.mly" ( _1 ) -# 10763 "parsing/parser.ml" +# 10766 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10799,23 +10802,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3923 "parsing/parser.mly" +# 3926 "parsing/parser.mly" ("-.") -# 10805 "parsing/parser.ml" +# 10808 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1053 "parsing/parser.mly" +# 1056 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10813 "parsing/parser.ml" +# 10816 "parsing/parser.ml" in -# 2517 "parsing/parser.mly" +# 2520 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10819 "parsing/parser.ml" +# 10822 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10823,15 +10826,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10829 "parsing/parser.ml" +# 10832 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2446 "parsing/parser.mly" ( _1 ) -# 10835 "parsing/parser.ml" +# 10838 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10871,23 +10874,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3924 "parsing/parser.mly" +# 3927 "parsing/parser.mly" ("*") -# 10877 "parsing/parser.ml" +# 10880 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1053 "parsing/parser.mly" +# 1056 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10885 "parsing/parser.ml" +# 10888 "parsing/parser.ml" in -# 2517 "parsing/parser.mly" +# 2520 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10891 "parsing/parser.ml" +# 10894 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10895,15 +10898,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10901 "parsing/parser.ml" +# 10904 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2446 "parsing/parser.mly" ( _1 ) -# 10907 "parsing/parser.ml" +# 10910 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10943,23 +10946,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3925 "parsing/parser.mly" +# 3928 "parsing/parser.mly" ("%") -# 10949 "parsing/parser.ml" +# 10952 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1053 "parsing/parser.mly" +# 1056 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10957 "parsing/parser.ml" +# 10960 "parsing/parser.ml" in -# 2517 "parsing/parser.mly" +# 2520 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10963 "parsing/parser.ml" +# 10966 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10967,15 +10970,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10973 "parsing/parser.ml" +# 10976 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2446 "parsing/parser.mly" ( _1 ) -# 10979 "parsing/parser.ml" +# 10982 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11015,23 +11018,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3926 "parsing/parser.mly" +# 3929 "parsing/parser.mly" ("=") -# 11021 "parsing/parser.ml" +# 11024 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1053 "parsing/parser.mly" +# 1056 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 11029 "parsing/parser.ml" +# 11032 "parsing/parser.ml" in -# 2517 "parsing/parser.mly" +# 2520 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 11035 "parsing/parser.ml" +# 11038 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -11039,15 +11042,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11045 "parsing/parser.ml" +# 11048 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2446 "parsing/parser.mly" ( _1 ) -# 11051 "parsing/parser.ml" +# 11054 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11087,23 +11090,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3927 "parsing/parser.mly" +# 3930 "parsing/parser.mly" ("<") -# 11093 "parsing/parser.ml" +# 11096 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1053 "parsing/parser.mly" +# 1056 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 11101 "parsing/parser.ml" +# 11104 "parsing/parser.ml" in -# 2517 "parsing/parser.mly" +# 2520 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 11107 "parsing/parser.ml" +# 11110 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -11111,15 +11114,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11117 "parsing/parser.ml" +# 11120 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2446 "parsing/parser.mly" ( _1 ) -# 11123 "parsing/parser.ml" +# 11126 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11159,23 +11162,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3928 "parsing/parser.mly" +# 3931 "parsing/parser.mly" (">") -# 11165 "parsing/parser.ml" +# 11168 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1053 "parsing/parser.mly" +# 1056 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 11173 "parsing/parser.ml" +# 11176 "parsing/parser.ml" in -# 2517 "parsing/parser.mly" +# 2520 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 11179 "parsing/parser.ml" +# 11182 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -11183,15 +11186,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11189 "parsing/parser.ml" +# 11192 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2446 "parsing/parser.mly" ( _1 ) -# 11195 "parsing/parser.ml" +# 11198 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11231,23 +11234,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3929 "parsing/parser.mly" +# 3932 "parsing/parser.mly" ("or") -# 11237 "parsing/parser.ml" +# 11240 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1053 "parsing/parser.mly" +# 1056 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 11245 "parsing/parser.ml" +# 11248 "parsing/parser.ml" in -# 2517 "parsing/parser.mly" +# 2520 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 11251 "parsing/parser.ml" +# 11254 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -11255,15 +11258,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11261 "parsing/parser.ml" +# 11264 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2446 "parsing/parser.mly" ( _1 ) -# 11267 "parsing/parser.ml" +# 11270 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11303,23 +11306,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3930 "parsing/parser.mly" +# 3933 "parsing/parser.mly" ("||") -# 11309 "parsing/parser.ml" +# 11312 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1053 "parsing/parser.mly" +# 1056 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 11317 "parsing/parser.ml" +# 11320 "parsing/parser.ml" in -# 2517 "parsing/parser.mly" +# 2520 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 11323 "parsing/parser.ml" +# 11326 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -11327,15 +11330,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11333 "parsing/parser.ml" +# 11336 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2446 "parsing/parser.mly" ( _1 ) -# 11339 "parsing/parser.ml" +# 11342 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11375,23 +11378,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3931 "parsing/parser.mly" +# 3934 "parsing/parser.mly" ("&") -# 11381 "parsing/parser.ml" +# 11384 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1053 "parsing/parser.mly" +# 1056 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 11389 "parsing/parser.ml" +# 11392 "parsing/parser.ml" in -# 2517 "parsing/parser.mly" +# 2520 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 11395 "parsing/parser.ml" +# 11398 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -11399,15 +11402,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11405 "parsing/parser.ml" +# 11408 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2446 "parsing/parser.mly" ( _1 ) -# 11411 "parsing/parser.ml" +# 11414 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11447,23 +11450,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3932 "parsing/parser.mly" +# 3935 "parsing/parser.mly" ("&&") -# 11453 "parsing/parser.ml" +# 11456 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1053 "parsing/parser.mly" +# 1056 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 11461 "parsing/parser.ml" +# 11464 "parsing/parser.ml" in -# 2517 "parsing/parser.mly" +# 2520 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 11467 "parsing/parser.ml" +# 11470 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -11471,15 +11474,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11477 "parsing/parser.ml" +# 11480 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2446 "parsing/parser.mly" ( _1 ) -# 11483 "parsing/parser.ml" +# 11486 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11519,23 +11522,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3933 "parsing/parser.mly" +# 3936 "parsing/parser.mly" (":=") -# 11525 "parsing/parser.ml" +# 11528 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1053 "parsing/parser.mly" +# 1056 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 11533 "parsing/parser.ml" +# 11536 "parsing/parser.ml" in -# 2517 "parsing/parser.mly" +# 2520 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 11539 "parsing/parser.ml" +# 11542 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -11543,15 +11546,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11549 "parsing/parser.ml" +# 11552 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2446 "parsing/parser.mly" ( _1 ) -# 11555 "parsing/parser.ml" +# 11558 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11584,9 +11587,9 @@ module Tables = struct let _1 = let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2519 "parsing/parser.mly" +# 2522 "parsing/parser.mly" ( mkuminus ~oploc:_loc__1_ _1 _2 ) -# 11590 "parsing/parser.ml" +# 11593 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -11594,15 +11597,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11600 "parsing/parser.ml" +# 11603 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2446 "parsing/parser.mly" ( _1 ) -# 11606 "parsing/parser.ml" +# 11609 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11635,9 +11638,9 @@ module Tables = struct let _1 = let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2521 "parsing/parser.mly" +# 2524 "parsing/parser.mly" ( mkuplus ~oploc:_loc__1_ _1 _2 ) -# 11641 "parsing/parser.ml" +# 11644 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -11645,15 +11648,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11651 "parsing/parser.ml" +# 11654 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2446 "parsing/parser.mly" ( _1 ) -# 11657 "parsing/parser.ml" +# 11660 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11693,9 +11696,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2445 "parsing/parser.mly" +# 2448 "parsing/parser.mly" ( expr_of_let_bindings ~loc:_sloc _1 _3 ) -# 11699 "parsing/parser.ml" +# 11702 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11735,9 +11738,9 @@ module Tables = struct let _3 : unit = Obj.magic _3 in let bindings : (Parsetree.pattern * Parsetree.expression * Parsetree.binding_op list) = Obj.magic bindings in let _1 : ( -# 821 "parsing/parser.mly" +# 824 "parsing/parser.mly" (string) -# 11741 "parsing/parser.ml" +# 11744 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -11747,9 +11750,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 11753 "parsing/parser.ml" +# 11756 "parsing/parser.ml" in let _startpos_pbop_op_ = _startpos__1_ in @@ -11757,13 +11760,13 @@ module Tables = struct let _symbolstartpos = _startpos_pbop_op_ in let _sloc = (_symbolstartpos, _endpos) in -# 2447 "parsing/parser.mly" +# 2450 "parsing/parser.mly" ( let (pbop_pat, pbop_exp, rev_ands) = bindings in let ands = List.rev rev_ands in let pbop_loc = make_loc _sloc in let let_ = {pbop_op; pbop_pat; pbop_exp; pbop_loc} in mkexp ~loc:_sloc (Pexp_letop{ let_; ands; body}) ) -# 11767 "parsing/parser.ml" +# 11770 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11804,9 +11807,9 @@ module Tables = struct let _loc__2_ = (_startpos__2_, _endpos__2_) in let _sloc = (_symbolstartpos, _endpos) in -# 2453 "parsing/parser.mly" +# 2456 "parsing/parser.mly" ( mkexp_cons ~loc:_sloc _loc__2_ (ghexp ~loc:_sloc (Pexp_tuple[_1;_3])) ) -# 11810 "parsing/parser.ml" +# 11813 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11839,35 +11842,35 @@ module Tables = struct let _3 : (Parsetree.expression) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 11845 "parsing/parser.ml" +# 11848 "parsing/parser.ml" ) = 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 : (Parsetree.expression) = let _1 = let _1 = -# 3864 "parsing/parser.mly" +# 3867 "parsing/parser.mly" ( _1 ) -# 11854 "parsing/parser.ml" +# 11857 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 11862 "parsing/parser.ml" +# 11865 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2455 "parsing/parser.mly" +# 2458 "parsing/parser.mly" ( mkexp ~loc:_sloc (Pexp_setinstvar(_1, _3)) ) -# 11871 "parsing/parser.ml" +# 11874 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11923,18 +11926,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 11929 "parsing/parser.ml" +# 11932 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2457 "parsing/parser.mly" +# 2460 "parsing/parser.mly" ( mkexp ~loc:_sloc (Pexp_setfield(_1, _3, _5)) ) -# 11938 "parsing/parser.ml" +# 11941 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12000,14 +12003,14 @@ module Tables = struct let _endpos = _endpos_v_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2458 "parsing/parser.mly" +# 2461 "parsing/parser.mly" (Some v) -# 12006 "parsing/parser.ml" +# 12009 "parsing/parser.ml" in -# 2418 "parsing/parser.mly" +# 2421 "parsing/parser.mly" ( array, d, Paren, i, r ) -# 12011 "parsing/parser.ml" +# 12014 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in @@ -12015,9 +12018,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2459 "parsing/parser.mly" +# 2462 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 12021 "parsing/parser.ml" +# 12024 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12083,14 +12086,14 @@ module Tables = struct let _endpos = _endpos_v_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2458 "parsing/parser.mly" +# 2461 "parsing/parser.mly" (Some v) -# 12089 "parsing/parser.ml" +# 12092 "parsing/parser.ml" in -# 2420 "parsing/parser.mly" +# 2423 "parsing/parser.mly" ( array, d, Brace, i, r ) -# 12094 "parsing/parser.ml" +# 12097 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in @@ -12098,9 +12101,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2459 "parsing/parser.mly" +# 2462 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 12104 "parsing/parser.ml" +# 12107 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12166,14 +12169,14 @@ module Tables = struct let _endpos = _endpos_v_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2458 "parsing/parser.mly" +# 2461 "parsing/parser.mly" (Some v) -# 12172 "parsing/parser.ml" +# 12175 "parsing/parser.ml" in -# 2422 "parsing/parser.mly" +# 2425 "parsing/parser.mly" ( array, d, Bracket, i, r ) -# 12177 "parsing/parser.ml" +# 12180 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in @@ -12181,9 +12184,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2459 "parsing/parser.mly" +# 2462 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 12187 "parsing/parser.ml" +# 12190 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12243,9 +12246,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 820 "parsing/parser.mly" +# 823 "parsing/parser.mly" (string) -# 12249 "parsing/parser.ml" +# 12252 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -12253,31 +12256,31 @@ module Tables = struct let _endpos = _endpos_v_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2460 "parsing/parser.mly" +# 2463 "parsing/parser.mly" (Some v) -# 12259 "parsing/parser.ml" +# 12262 "parsing/parser.ml" in let i = -# 2964 "parsing/parser.mly" +# 2967 "parsing/parser.mly" ( es ) -# 12264 "parsing/parser.ml" +# 12267 "parsing/parser.ml" in let d = let _1 = # 124 "" ( None ) -# 12270 "parsing/parser.ml" +# 12273 "parsing/parser.ml" in -# 2434 "parsing/parser.mly" +# 2437 "parsing/parser.mly" ( _1, _2 ) -# 12275 "parsing/parser.ml" +# 12278 "parsing/parser.ml" in -# 2418 "parsing/parser.mly" +# 2421 "parsing/parser.mly" ( array, d, Paren, i, r ) -# 12281 "parsing/parser.ml" +# 12284 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in @@ -12285,9 +12288,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2461 "parsing/parser.mly" +# 2464 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 12291 "parsing/parser.ml" +# 12294 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12359,9 +12362,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 820 "parsing/parser.mly" +# 823 "parsing/parser.mly" (string) -# 12365 "parsing/parser.ml" +# 12368 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -12371,39 +12374,39 @@ module Tables = struct let _endpos = _endpos_v_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2460 "parsing/parser.mly" +# 2463 "parsing/parser.mly" (Some v) -# 12377 "parsing/parser.ml" +# 12380 "parsing/parser.ml" in let i = -# 2964 "parsing/parser.mly" +# 2967 "parsing/parser.mly" ( es ) -# 12382 "parsing/parser.ml" +# 12385 "parsing/parser.ml" in let d = let _1 = let _2 = _2_inlined1 in let x = -# 2434 "parsing/parser.mly" +# 2437 "parsing/parser.mly" (_2) -# 12390 "parsing/parser.ml" +# 12393 "parsing/parser.ml" in # 126 "" ( Some x ) -# 12395 "parsing/parser.ml" +# 12398 "parsing/parser.ml" in -# 2434 "parsing/parser.mly" +# 2437 "parsing/parser.mly" ( _1, _2 ) -# 12401 "parsing/parser.ml" +# 12404 "parsing/parser.ml" in -# 2418 "parsing/parser.mly" +# 2421 "parsing/parser.mly" ( array, d, Paren, i, r ) -# 12407 "parsing/parser.ml" +# 12410 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in @@ -12411,9 +12414,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2461 "parsing/parser.mly" +# 2464 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 12417 "parsing/parser.ml" +# 12420 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12473,9 +12476,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 820 "parsing/parser.mly" +# 823 "parsing/parser.mly" (string) -# 12479 "parsing/parser.ml" +# 12482 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -12483,31 +12486,31 @@ module Tables = struct let _endpos = _endpos_v_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2460 "parsing/parser.mly" +# 2463 "parsing/parser.mly" (Some v) -# 12489 "parsing/parser.ml" +# 12492 "parsing/parser.ml" in let i = -# 2964 "parsing/parser.mly" +# 2967 "parsing/parser.mly" ( es ) -# 12494 "parsing/parser.ml" +# 12497 "parsing/parser.ml" in let d = let _1 = # 124 "" ( None ) -# 12500 "parsing/parser.ml" +# 12503 "parsing/parser.ml" in -# 2434 "parsing/parser.mly" +# 2437 "parsing/parser.mly" ( _1, _2 ) -# 12505 "parsing/parser.ml" +# 12508 "parsing/parser.ml" in -# 2420 "parsing/parser.mly" +# 2423 "parsing/parser.mly" ( array, d, Brace, i, r ) -# 12511 "parsing/parser.ml" +# 12514 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in @@ -12515,9 +12518,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2461 "parsing/parser.mly" +# 2464 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 12521 "parsing/parser.ml" +# 12524 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12589,9 +12592,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 820 "parsing/parser.mly" +# 823 "parsing/parser.mly" (string) -# 12595 "parsing/parser.ml" +# 12598 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -12601,39 +12604,39 @@ module Tables = struct let _endpos = _endpos_v_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2460 "parsing/parser.mly" +# 2463 "parsing/parser.mly" (Some v) -# 12607 "parsing/parser.ml" +# 12610 "parsing/parser.ml" in let i = -# 2964 "parsing/parser.mly" +# 2967 "parsing/parser.mly" ( es ) -# 12612 "parsing/parser.ml" +# 12615 "parsing/parser.ml" in let d = let _1 = let _2 = _2_inlined1 in let x = -# 2434 "parsing/parser.mly" +# 2437 "parsing/parser.mly" (_2) -# 12620 "parsing/parser.ml" +# 12623 "parsing/parser.ml" in # 126 "" ( Some x ) -# 12625 "parsing/parser.ml" +# 12628 "parsing/parser.ml" in -# 2434 "parsing/parser.mly" +# 2437 "parsing/parser.mly" ( _1, _2 ) -# 12631 "parsing/parser.ml" +# 12634 "parsing/parser.ml" in -# 2420 "parsing/parser.mly" +# 2423 "parsing/parser.mly" ( array, d, Brace, i, r ) -# 12637 "parsing/parser.ml" +# 12640 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in @@ -12641,9 +12644,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2461 "parsing/parser.mly" +# 2464 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 12647 "parsing/parser.ml" +# 12650 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12703,9 +12706,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 820 "parsing/parser.mly" +# 823 "parsing/parser.mly" (string) -# 12709 "parsing/parser.ml" +# 12712 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -12713,31 +12716,31 @@ module Tables = struct let _endpos = _endpos_v_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2460 "parsing/parser.mly" +# 2463 "parsing/parser.mly" (Some v) -# 12719 "parsing/parser.ml" +# 12722 "parsing/parser.ml" in let i = -# 2964 "parsing/parser.mly" +# 2967 "parsing/parser.mly" ( es ) -# 12724 "parsing/parser.ml" +# 12727 "parsing/parser.ml" in let d = let _1 = # 124 "" ( None ) -# 12730 "parsing/parser.ml" +# 12733 "parsing/parser.ml" in -# 2434 "parsing/parser.mly" +# 2437 "parsing/parser.mly" ( _1, _2 ) -# 12735 "parsing/parser.ml" +# 12738 "parsing/parser.ml" in -# 2422 "parsing/parser.mly" +# 2425 "parsing/parser.mly" ( array, d, Bracket, i, r ) -# 12741 "parsing/parser.ml" +# 12744 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in @@ -12745,9 +12748,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2461 "parsing/parser.mly" +# 2464 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 12751 "parsing/parser.ml" +# 12754 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12819,9 +12822,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 820 "parsing/parser.mly" +# 823 "parsing/parser.mly" (string) -# 12825 "parsing/parser.ml" +# 12828 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -12831,39 +12834,39 @@ module Tables = struct let _endpos = _endpos_v_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2460 "parsing/parser.mly" +# 2463 "parsing/parser.mly" (Some v) -# 12837 "parsing/parser.ml" +# 12840 "parsing/parser.ml" in let i = -# 2964 "parsing/parser.mly" +# 2967 "parsing/parser.mly" ( es ) -# 12842 "parsing/parser.ml" +# 12845 "parsing/parser.ml" in let d = let _1 = let _2 = _2_inlined1 in let x = -# 2434 "parsing/parser.mly" +# 2437 "parsing/parser.mly" (_2) -# 12850 "parsing/parser.ml" +# 12853 "parsing/parser.ml" in # 126 "" ( Some x ) -# 12855 "parsing/parser.ml" +# 12858 "parsing/parser.ml" in -# 2434 "parsing/parser.mly" +# 2437 "parsing/parser.mly" ( _1, _2 ) -# 12861 "parsing/parser.ml" +# 12864 "parsing/parser.ml" in -# 2422 "parsing/parser.mly" +# 2425 "parsing/parser.mly" ( array, d, Bracket, i, r ) -# 12867 "parsing/parser.ml" +# 12870 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in @@ -12871,9 +12874,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2461 "parsing/parser.mly" +# 2464 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 12877 "parsing/parser.ml" +# 12880 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12903,9 +12906,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = -# 2463 "parsing/parser.mly" +# 2466 "parsing/parser.mly" ( Exp.attr _1 _2 ) -# 12909 "parsing/parser.ml" +# 12912 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12929,9 +12932,9 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.expression) = let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2466 "parsing/parser.mly" +# 2469 "parsing/parser.mly" ( not_expecting _loc__1_ "wildcard \"_\"" ) -# 12935 "parsing/parser.ml" +# 12938 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12965,9 +12968,9 @@ module Tables = struct let _loc__1_ = (_startpos__1_, _endpos__1_) in let _sloc = (_symbolstartpos, _endpos) in -# 2469 "parsing/parser.mly" +# 2472 "parsing/parser.mly" ( mkexp_stack ~loc:_sloc ~kwd_loc:(_loc__1_) _2 ) -# 12971 "parsing/parser.ml" +# 12974 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12983,9 +12986,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (string Asttypes.loc option) = -# 4222 "parsing/parser.mly" +# 4225 "parsing/parser.mly" ( None ) -# 12989 "parsing/parser.ml" +# 12992 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13015,9 +13018,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (string Asttypes.loc option) = -# 4223 "parsing/parser.mly" +# 4226 "parsing/parser.mly" ( Some _2 ) -# 13021 "parsing/parser.ml" +# 13024 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13061,9 +13064,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Parsetree.extension) = -# 4235 "parsing/parser.mly" +# 4238 "parsing/parser.mly" ( (_2, _3) ) -# 13067 "parsing/parser.ml" +# 13070 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13082,9 +13085,9 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 882 "parsing/parser.mly" +# 885 "parsing/parser.mly" (string * Location.t * string * Location.t * string option) -# 13088 "parsing/parser.ml" +# 13091 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -13093,9 +13096,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4237 "parsing/parser.mly" +# 4240 "parsing/parser.mly" ( mk_quotedext ~loc:_sloc _1 ) -# 13099 "parsing/parser.ml" +# 13102 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13148,9 +13151,9 @@ module Tables = struct let _v : (Parsetree.extension_constructor) = let attrs = let _1 = _1_inlined3 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 13154 "parsing/parser.ml" +# 13157 "parsing/parser.ml" in let _endpos_attrs_ = _endpos__1_inlined3_ in @@ -13160,9 +13163,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 13166 "parsing/parser.ml" +# 13169 "parsing/parser.ml" in let cid = @@ -13171,19 +13174,19 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 13177 "parsing/parser.ml" +# 13180 "parsing/parser.ml" in let _endpos = _endpos_attrs_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3535 "parsing/parser.mly" +# 3538 "parsing/parser.mly" ( let info = symbol_info _endpos in Te.rebind cid lid ~attrs ~loc:(make_loc _sloc) ~info ) -# 13187 "parsing/parser.ml" +# 13190 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13229,9 +13232,9 @@ module Tables = struct let _v : (Parsetree.extension_constructor) = let attrs = let _1 = _1_inlined2 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 13235 "parsing/parser.ml" +# 13238 "parsing/parser.ml" in let _endpos_attrs_ = _endpos__1_inlined2_ in @@ -13241,9 +13244,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 13247 "parsing/parser.ml" +# 13250 "parsing/parser.ml" in let cid = @@ -13251,25 +13254,25 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 13257 "parsing/parser.ml" +# 13260 "parsing/parser.ml" in let _startpos_cid_ = _startpos__1_ in let _1 = -# 4027 "parsing/parser.mly" +# 4030 "parsing/parser.mly" ( () ) -# 13264 "parsing/parser.ml" +# 13267 "parsing/parser.ml" in let _endpos = _endpos_attrs_ in let _symbolstartpos = _startpos_cid_ in let _sloc = (_symbolstartpos, _endpos) in -# 3535 "parsing/parser.mly" +# 3538 "parsing/parser.mly" ( let info = symbol_info _endpos in Te.rebind cid lid ~attrs ~loc:(make_loc _sloc) ~info ) -# 13273 "parsing/parser.ml" +# 13276 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13316,10 +13319,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4210 "parsing/parser.mly" +# 4213 "parsing/parser.mly" ( mark_symbol_docs _sloc; mk_attr ~loc:(make_loc _sloc) _2 _3 ) -# 13323 "parsing/parser.ml" +# 13326 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13335,14 +13338,14 @@ 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) = let params = -# 2184 "parsing/parser.mly" +# 2187 "parsing/parser.mly" ( [] ) -# 13341 "parsing/parser.ml" +# 13344 "parsing/parser.ml" in -# 2009 "parsing/parser.mly" +# 2012 "parsing/parser.mly" ( params ) -# 13346 "parsing/parser.ml" +# 13349 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13383,24 +13386,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 13387 "parsing/parser.ml" +# 13390 "parsing/parser.ml" in -# 1160 "parsing/parser.mly" +# 1163 "parsing/parser.mly" ( xs ) -# 13392 "parsing/parser.ml" +# 13395 "parsing/parser.ml" in -# 2186 "parsing/parser.mly" +# 2189 "parsing/parser.mly" ( params ) -# 13398 "parsing/parser.ml" +# 13401 "parsing/parser.ml" in -# 2009 "parsing/parser.mly" +# 2012 "parsing/parser.mly" ( params ) -# 13404 "parsing/parser.ml" +# 13407 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13423,9 +13426,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.expression) = -# 2869 "parsing/parser.mly" +# 2872 "parsing/parser.mly" ( _1 ) -# 13429 "parsing/parser.ml" +# 13432 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13465,9 +13468,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2871 "parsing/parser.mly" +# 2874 "parsing/parser.mly" ( mkexp_constraint ~loc:_sloc _3 _1 ) -# 13471 "parsing/parser.ml" +# 13474 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13497,9 +13500,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = -# 2909 "parsing/parser.mly" +# 2912 "parsing/parser.mly" ( _2 ) -# 13503 "parsing/parser.ml" +# 13506 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13544,24 +13547,24 @@ module Tables = struct let _endpos = _endpos__4_ in let _v : (Parsetree.expression) = let _1 = let _1 = -# 2911 "parsing/parser.mly" +# 2914 "parsing/parser.mly" ( Pexp_constraint (_4, _2) ) -# 13550 "parsing/parser.ml" +# 13553 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 13559 "parsing/parser.ml" +# 13562 "parsing/parser.ml" in -# 2912 "parsing/parser.mly" +# 2915 "parsing/parser.mly" ( _1 ) -# 13565 "parsing/parser.ml" +# 13568 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13594,12 +13597,12 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2915 "parsing/parser.mly" +# 2918 "parsing/parser.mly" ( let (l,o,p) = _1 in ghexp ~loc:_sloc (Pexp_fun(l, o, p, _2)) ) -# 13603 "parsing/parser.ml" +# 13606 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13650,17 +13653,17 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _3 = -# 2751 "parsing/parser.mly" +# 2754 "parsing/parser.mly" ( xs ) -# 13656 "parsing/parser.ml" +# 13659 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2920 "parsing/parser.mly" +# 2923 "parsing/parser.mly" ( mk_newtypes ~loc:_sloc _3 _5 ) -# 13664 "parsing/parser.ml" +# 13667 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13683,9 +13686,9 @@ module Tables = struct let _startpos = _startpos_ty_ in let _endpos = _endpos_ty_ in let _v : (Parsetree.core_type) = -# 3651 "parsing/parser.mly" +# 3654 "parsing/parser.mly" ( ty ) -# 13689 "parsing/parser.ml" +# 13692 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13708,9 +13711,9 @@ module Tables = struct let _startpos = _startpos_ty_ in let _endpos = _endpos_ty_ in let _v : (Parsetree.core_type) = -# 3653 "parsing/parser.mly" +# 3656 "parsing/parser.mly" ( ty ) -# 13714 "parsing/parser.ml" +# 13717 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13741,9 +13744,9 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Lexing.position * Parsetree.functor_parameter) = let _startpos = _startpos__1_ in -# 1414 "parsing/parser.mly" +# 1417 "parsing/parser.mly" ( _startpos, Unit ) -# 13747 "parsing/parser.ml" +# 13750 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13799,16 +13802,16 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 13805 "parsing/parser.ml" +# 13808 "parsing/parser.ml" in let _startpos = _startpos__1_ in -# 1417 "parsing/parser.mly" +# 1420 "parsing/parser.mly" ( _startpos, Named (x, mty) ) -# 13812 "parsing/parser.ml" +# 13815 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13825,9 +13828,9 @@ module Tables = struct let _endpos = _startpos in let _v : (string Asttypes.loc list * Parsetree.constructor_arguments * Parsetree.core_type option) = -# 3437 "parsing/parser.mly" +# 3440 "parsing/parser.mly" ( ([],Pcstr_tuple [],None) ) -# 13831 "parsing/parser.ml" +# 13834 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13858,9 +13861,9 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (string Asttypes.loc list * Parsetree.constructor_arguments * Parsetree.core_type option) = -# 3438 "parsing/parser.mly" +# 3441 "parsing/parser.mly" ( ([],_2,None) ) -# 13864 "parsing/parser.ml" +# 13867 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13905,9 +13908,9 @@ module Tables = struct let _endpos = _endpos__4_ in let _v : (string Asttypes.loc list * Parsetree.constructor_arguments * Parsetree.core_type option) = -# 3440 "parsing/parser.mly" +# 3443 "parsing/parser.mly" ( ([],_2,Some _4) ) -# 13911 "parsing/parser.ml" +# 13914 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13970,24 +13973,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 13974 "parsing/parser.ml" +# 13977 "parsing/parser.ml" in -# 1128 "parsing/parser.mly" +# 1131 "parsing/parser.mly" ( xs ) -# 13979 "parsing/parser.ml" +# 13982 "parsing/parser.ml" in -# 3586 "parsing/parser.mly" +# 3589 "parsing/parser.mly" ( _1 ) -# 13985 "parsing/parser.ml" +# 13988 "parsing/parser.ml" in -# 3443 "parsing/parser.mly" +# 3446 "parsing/parser.mly" ( (_2,_4,Some _6) ) -# 13991 "parsing/parser.ml" +# 13994 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14018,9 +14021,9 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (string Asttypes.loc list * Parsetree.constructor_arguments * Parsetree.core_type option) = -# 3445 "parsing/parser.mly" +# 3448 "parsing/parser.mly" ( ([],Pcstr_tuple [],Some _2) ) -# 14024 "parsing/parser.ml" +# 14027 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14069,24 +14072,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 14073 "parsing/parser.ml" +# 14076 "parsing/parser.ml" in -# 1128 "parsing/parser.mly" +# 1131 "parsing/parser.mly" ( xs ) -# 14078 "parsing/parser.ml" +# 14081 "parsing/parser.ml" in -# 3586 "parsing/parser.mly" +# 3589 "parsing/parser.mly" ( _1 ) -# 14084 "parsing/parser.ml" +# 14087 "parsing/parser.ml" in -# 3447 "parsing/parser.mly" +# 3450 "parsing/parser.mly" ( (_2,Pcstr_tuple [],Some _4) ) -# 14090 "parsing/parser.ml" +# 14093 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14135,9 +14138,9 @@ module Tables = struct Parsetree.attributes * Location.t * Docstrings.info) = let attrs = let _1 = _1_inlined2 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 14141 "parsing/parser.ml" +# 14144 "parsing/parser.ml" in let _endpos_attrs_ = _endpos__1_inlined2_ in @@ -14147,23 +14150,23 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 14153 "parsing/parser.ml" +# 14156 "parsing/parser.ml" in let _endpos = _endpos_attrs_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3385 "parsing/parser.mly" +# 3388 "parsing/parser.mly" ( let vars, args, res = vars_args_res in let info = symbol_info _endpos in let loc = make_loc _sloc in cid, vars, args, res, attrs, loc, info ) -# 14167 "parsing/parser.ml" +# 14170 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14205,9 +14208,9 @@ module Tables = struct Parsetree.attributes * Location.t * Docstrings.info) = let attrs = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 14211 "parsing/parser.ml" +# 14214 "parsing/parser.ml" in let _endpos_attrs_ = _endpos__1_inlined1_ in @@ -14216,29 +14219,29 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 14222 "parsing/parser.ml" +# 14225 "parsing/parser.ml" in let _startpos_cid_ = _startpos__1_ in let _1 = -# 4027 "parsing/parser.mly" +# 4030 "parsing/parser.mly" ( () ) -# 14229 "parsing/parser.ml" +# 14232 "parsing/parser.ml" in let _endpos = _endpos_attrs_ in let _symbolstartpos = _startpos_cid_ in let _sloc = (_symbolstartpos, _endpos) in -# 3385 "parsing/parser.mly" +# 3388 "parsing/parser.mly" ( let vars, args, res = vars_args_res in let info = symbol_info _endpos in let loc = make_loc _sloc in cid, vars, args, res, attrs, loc, info ) -# 14242 "parsing/parser.ml" +# 14245 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14309,9 +14312,9 @@ module Tables = struct let _2 : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = Obj.magic _2 in let _1_inlined3 : unit = Obj.magic _1_inlined3 in let _1_inlined2 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 14315 "parsing/parser.ml" +# 14318 "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 @@ -14324,9 +14327,9 @@ module Tables = struct Parsetree.type_declaration) = let attrs2 = let _1 = _1_inlined4 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 14330 "parsing/parser.ml" +# 14333 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in @@ -14335,24 +14338,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 14339 "parsing/parser.ml" +# 14342 "parsing/parser.ml" in -# 1110 "parsing/parser.mly" +# 1113 "parsing/parser.mly" ( xs ) -# 14344 "parsing/parser.ml" +# 14347 "parsing/parser.ml" in -# 3275 "parsing/parser.mly" +# 3278 "parsing/parser.mly" ( _1 ) -# 14350 "parsing/parser.ml" +# 14353 "parsing/parser.ml" in let kind_priv_manifest = -# 3310 "parsing/parser.mly" +# 3313 "parsing/parser.mly" ( _2 ) -# 14356 "parsing/parser.ml" +# 14359 "parsing/parser.ml" in let id = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in @@ -14360,29 +14363,29 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 14366 "parsing/parser.ml" +# 14369 "parsing/parser.ml" in let flag = -# 4047 "parsing/parser.mly" +# 4050 "parsing/parser.mly" ( Recursive ) -# 14372 "parsing/parser.ml" +# 14375 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 14379 "parsing/parser.ml" +# 14382 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3247 "parsing/parser.mly" +# 3250 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in @@ -14391,7 +14394,7 @@ module Tables = struct (flag, ext), Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ) -# 14395 "parsing/parser.ml" +# 14398 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14468,9 +14471,9 @@ module Tables = struct let _2 : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = Obj.magic _2 in let _1_inlined4 : unit = Obj.magic _1_inlined4 in let _1_inlined3 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 14474 "parsing/parser.ml" +# 14477 "parsing/parser.ml" ) = Obj.magic _1_inlined3 in let params : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic params in let _1_inlined2 : unit = Obj.magic _1_inlined2 in @@ -14484,9 +14487,9 @@ module Tables = struct Parsetree.type_declaration) = let attrs2 = let _1 = _1_inlined5 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 14490 "parsing/parser.ml" +# 14493 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined5_ in @@ -14495,24 +14498,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 14499 "parsing/parser.ml" +# 14502 "parsing/parser.ml" in -# 1110 "parsing/parser.mly" +# 1113 "parsing/parser.mly" ( xs ) -# 14504 "parsing/parser.ml" +# 14507 "parsing/parser.ml" in -# 3275 "parsing/parser.mly" +# 3278 "parsing/parser.mly" ( _1 ) -# 14510 "parsing/parser.ml" +# 14513 "parsing/parser.ml" in let kind_priv_manifest = -# 3310 "parsing/parser.mly" +# 3313 "parsing/parser.mly" ( _2 ) -# 14516 "parsing/parser.ml" +# 14519 "parsing/parser.ml" in let id = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in @@ -14520,9 +14523,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 14526 "parsing/parser.ml" +# 14529 "parsing/parser.ml" in let flag = @@ -14531,24 +14534,24 @@ module Tables = struct let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in -# 4049 "parsing/parser.mly" +# 4052 "parsing/parser.mly" ( not_expecting _loc "nonrec flag" ) -# 14537 "parsing/parser.ml" +# 14540 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 14545 "parsing/parser.ml" +# 14548 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3247 "parsing/parser.mly" +# 3250 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in @@ -14557,7 +14560,7 @@ module Tables = struct (flag, ext), Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ) -# 14561 "parsing/parser.ml" +# 14564 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14621,9 +14624,9 @@ module Tables = struct let xs : ((Parsetree.core_type * Parsetree.core_type * Ast_helper.loc) list) = Obj.magic xs in let kind_priv_manifest : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = Obj.magic kind_priv_manifest in let _1_inlined2 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 14627 "parsing/parser.ml" +# 14630 "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 @@ -14636,9 +14639,9 @@ module Tables = struct Parsetree.type_declaration) = let attrs2 = let _1 = _1_inlined3 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 14642 "parsing/parser.ml" +# 14645 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -14647,18 +14650,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 14651 "parsing/parser.ml" +# 14654 "parsing/parser.ml" in -# 1110 "parsing/parser.mly" +# 1113 "parsing/parser.mly" ( xs ) -# 14656 "parsing/parser.ml" +# 14659 "parsing/parser.ml" in -# 3275 "parsing/parser.mly" +# 3278 "parsing/parser.mly" ( _1 ) -# 14662 "parsing/parser.ml" +# 14665 "parsing/parser.ml" in let id = @@ -14667,29 +14670,29 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 14673 "parsing/parser.ml" +# 14676 "parsing/parser.ml" in let flag = -# 4043 "parsing/parser.mly" +# 4046 "parsing/parser.mly" ( Recursive ) -# 14679 "parsing/parser.ml" +# 14682 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 14686 "parsing/parser.ml" +# 14689 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3247 "parsing/parser.mly" +# 3250 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in @@ -14698,7 +14701,7 @@ module Tables = struct (flag, ext), Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ) -# 14702 "parsing/parser.ml" +# 14705 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14768,9 +14771,9 @@ module Tables = struct let xs : ((Parsetree.core_type * Parsetree.core_type * Ast_helper.loc) list) = Obj.magic xs in let kind_priv_manifest : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = Obj.magic kind_priv_manifest in let _1_inlined3 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 14774 "parsing/parser.ml" +# 14777 "parsing/parser.ml" ) = Obj.magic _1_inlined3 in let params : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic params in let _1_inlined2 : unit = Obj.magic _1_inlined2 in @@ -14784,9 +14787,9 @@ module Tables = struct Parsetree.type_declaration) = let attrs2 = let _1 = _1_inlined4 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 14790 "parsing/parser.ml" +# 14793 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in @@ -14795,18 +14798,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 14799 "parsing/parser.ml" +# 14802 "parsing/parser.ml" in -# 1110 "parsing/parser.mly" +# 1113 "parsing/parser.mly" ( xs ) -# 14804 "parsing/parser.ml" +# 14807 "parsing/parser.ml" in -# 3275 "parsing/parser.mly" +# 3278 "parsing/parser.mly" ( _1 ) -# 14810 "parsing/parser.ml" +# 14813 "parsing/parser.ml" in let id = @@ -14815,29 +14818,29 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 14821 "parsing/parser.ml" +# 14824 "parsing/parser.ml" in let flag = -# 4044 "parsing/parser.mly" +# 4047 "parsing/parser.mly" ( Nonrecursive ) -# 14827 "parsing/parser.ml" +# 14830 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 14834 "parsing/parser.ml" +# 14837 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3247 "parsing/parser.mly" +# 3250 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in @@ -14846,7 +14849,7 @@ module Tables = struct (flag, ext), Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ) -# 14850 "parsing/parser.ml" +# 14853 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14865,17 +14868,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 893 "parsing/parser.mly" +# 896 "parsing/parser.mly" (string) -# 14871 "parsing/parser.ml" +# 14874 "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) = -# 3886 "parsing/parser.mly" +# 3889 "parsing/parser.mly" ( _1 ) -# 14879 "parsing/parser.ml" +# 14882 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14894,17 +14897,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 14900 "parsing/parser.ml" +# 14903 "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) = -# 3887 "parsing/parser.mly" +# 3890 "parsing/parser.mly" ( _1 ) -# 14908 "parsing/parser.ml" +# 14911 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14934,9 +14937,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.structure) = -# 1281 "parsing/parser.mly" +# 1284 "parsing/parser.mly" ( _1 ) -# 14940 "parsing/parser.ml" +# 14943 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14959,9 +14962,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.attribute list) = -# 1657 "parsing/parser.mly" +# 1660 "parsing/parser.mly" ( [] ) -# 14965 "parsing/parser.ml" +# 14968 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14994,9 +14997,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in -# 1659 "parsing/parser.mly" +# 1662 "parsing/parser.mly" ( [include_functor_attr (make_loc _loc)] ) -# 15000 "parsing/parser.ml" +# 15003 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15012,9 +15015,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (string) = -# 3936 "parsing/parser.mly" +# 3939 "parsing/parser.mly" ( "" ) -# 15018 "parsing/parser.ml" +# 15021 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15044,9 +15047,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (string) = -# 3937 "parsing/parser.mly" +# 3940 "parsing/parser.mly" ( ";.." ) -# 15050 "parsing/parser.ml" +# 15053 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15076,9 +15079,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.signature) = -# 1288 "parsing/parser.mly" +# 1291 "parsing/parser.mly" ( _1 ) -# 15082 "parsing/parser.ml" +# 15085 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15122,9 +15125,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Parsetree.extension) = -# 4240 "parsing/parser.mly" +# 4243 "parsing/parser.mly" ( (_2, _3) ) -# 15128 "parsing/parser.ml" +# 15131 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15143,9 +15146,9 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 884 "parsing/parser.mly" +# 887 "parsing/parser.mly" (string * Location.t * string * Location.t * string option) -# 15149 "parsing/parser.ml" +# 15152 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -15154,9 +15157,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4242 "parsing/parser.mly" +# 4245 "parsing/parser.mly" ( mk_quotedext ~loc:_sloc _1 ) -# 15160 "parsing/parser.ml" +# 15163 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15202,9 +15205,9 @@ module Tables = struct let _1_inlined2 : (Parsetree.core_type) = Obj.magic _1_inlined2 in let _3 : unit = Obj.magic _3 in let _1_inlined1 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 15208 "parsing/parser.ml" +# 15211 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _1 : (Asttypes.mutable_flag * Asttypes.global_flag) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -15213,34 +15216,34 @@ module Tables = struct let _v : (Parsetree.label_declaration) = let _5 = let _1 = _1_inlined3 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 15219 "parsing/parser.ml" +# 15222 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined3_ in let _4 = let _1 = _1_inlined2 in -# 3604 "parsing/parser.mly" +# 3607 "parsing/parser.mly" ( _1 ) -# 15228 "parsing/parser.ml" +# 15231 "parsing/parser.ml" in let _2 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = -# 3864 "parsing/parser.mly" +# 3867 "parsing/parser.mly" ( _1 ) -# 15236 "parsing/parser.ml" +# 15239 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 15244 "parsing/parser.ml" +# 15247 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_inlined1_ in @@ -15252,13 +15255,13 @@ module Tables = struct let _loc__1_ = (_startpos__1_, _endpos__1_) in let _sloc = (_symbolstartpos, _endpos) in -# 3470 "parsing/parser.mly" +# 3473 "parsing/parser.mly" ( let info = symbol_info _endpos in let mut, gbl = _1 in mkld_global_maybe gbl (Type.field _2 _4 ~mut ~attrs:_5 ~loc:(make_loc _sloc) ~info) (make_loc _loc__1_) ) -# 15262 "parsing/parser.ml" +# 15265 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15318,9 +15321,9 @@ module Tables = struct let _1_inlined2 : (Parsetree.core_type) = Obj.magic _1_inlined2 in let _3 : unit = Obj.magic _3 in let _1_inlined1 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 15324 "parsing/parser.ml" +# 15327 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _1 : (Asttypes.mutable_flag * Asttypes.global_flag) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -15329,43 +15332,43 @@ module Tables = struct let _v : (Parsetree.label_declaration) = let _7 = let _1 = _1_inlined4 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 15335 "parsing/parser.ml" +# 15338 "parsing/parser.ml" in let _endpos__7_ = _endpos__1_inlined4_ in let _5 = let _1 = _1_inlined3 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 15344 "parsing/parser.ml" +# 15347 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined3_ in let _4 = let _1 = _1_inlined2 in -# 3604 "parsing/parser.mly" +# 3607 "parsing/parser.mly" ( _1 ) -# 15353 "parsing/parser.ml" +# 15356 "parsing/parser.ml" in let _2 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = -# 3864 "parsing/parser.mly" +# 3867 "parsing/parser.mly" ( _1 ) -# 15361 "parsing/parser.ml" +# 15364 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 15369 "parsing/parser.ml" +# 15372 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_inlined1_ in @@ -15377,7 +15380,7 @@ module Tables = struct let _loc__1_ = (_startpos__1_, _endpos__1_) in let _sloc = (_symbolstartpos, _endpos) in -# 3479 "parsing/parser.mly" +# 3482 "parsing/parser.mly" ( let info = match rhs_info _endpos__5_ with | Some _ as info_before_semi -> info_before_semi @@ -15387,7 +15390,7 @@ module Tables = struct mkld_global_maybe gbl (Type.field _2 _4 ~mut ~attrs:(_5 @ _7) ~loc:(make_loc _sloc) ~info) (make_loc _loc__1_) ) -# 15391 "parsing/parser.ml" +# 15394 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15410,9 +15413,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.label_declaration list) = -# 3464 "parsing/parser.mly" +# 3467 "parsing/parser.mly" ( [_1] ) -# 15416 "parsing/parser.ml" +# 15419 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15435,9 +15438,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.label_declaration list) = -# 3465 "parsing/parser.mly" +# 3468 "parsing/parser.mly" ( [_1] ) -# 15441 "parsing/parser.ml" +# 15444 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15467,9 +15470,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.label_declaration list) = -# 3466 "parsing/parser.mly" +# 3469 "parsing/parser.mly" ( _1 :: _2 ) -# 15473 "parsing/parser.ml" +# 15476 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15488,9 +15491,9 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 15494 "parsing/parser.ml" +# 15497 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -15501,24 +15504,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 15507 "parsing/parser.ml" +# 15510 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2395 "parsing/parser.mly" +# 2398 "parsing/parser.mly" ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) -# 15516 "parsing/parser.ml" +# 15519 "parsing/parser.ml" in -# 2382 "parsing/parser.mly" +# 2385 "parsing/parser.mly" ( x ) -# 15522 "parsing/parser.ml" +# 15525 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15551,9 +15554,9 @@ module Tables = struct let cty : (Parsetree.core_type) = Obj.magic cty in let _2 : unit = Obj.magic _2 in let _1 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 15557 "parsing/parser.ml" +# 15560 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -15564,18 +15567,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 15570 "parsing/parser.ml" +# 15573 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2395 "parsing/parser.mly" +# 2398 "parsing/parser.mly" ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) -# 15579 "parsing/parser.ml" +# 15582 "parsing/parser.ml" in let _startpos_x_ = _startpos__1_ in @@ -15583,11 +15586,11 @@ module Tables = struct let _symbolstartpos = _startpos_x_ in let _sloc = (_symbolstartpos, _endpos) in -# 2384 "parsing/parser.mly" +# 2387 "parsing/parser.mly" ( let lab, pat = x in lab, mkpat ~loc:_sloc (Ppat_constraint (pat, cty)) ) -# 15591 "parsing/parser.ml" +# 15594 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15634,9 +15637,9 @@ module Tables = struct let xs : (Asttypes.label Asttypes.loc list) = Obj.magic xs in let _2 : unit = Obj.magic _2 in let _1 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 15640 "parsing/parser.ml" +# 15643 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -15648,24 +15651,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 15652 "parsing/parser.ml" +# 15655 "parsing/parser.ml" in -# 1128 "parsing/parser.mly" +# 1131 "parsing/parser.mly" ( xs ) -# 15657 "parsing/parser.ml" +# 15660 "parsing/parser.ml" in -# 3586 "parsing/parser.mly" +# 3589 "parsing/parser.mly" ( _1 ) -# 15663 "parsing/parser.ml" +# 15666 "parsing/parser.ml" in -# 2388 "parsing/parser.mly" +# 2391 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 15669 "parsing/parser.ml" +# 15672 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_xs_) in @@ -15673,9 +15676,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 15679 "parsing/parser.ml" +# 15682 "parsing/parser.ml" in let _endpos_cty_ = _endpos_ty_ in @@ -15685,18 +15688,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 15691 "parsing/parser.ml" +# 15694 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2395 "parsing/parser.mly" +# 2398 "parsing/parser.mly" ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) -# 15700 "parsing/parser.ml" +# 15703 "parsing/parser.ml" in let _startpos_x_ = _startpos__1_ in @@ -15704,11 +15707,11 @@ module Tables = struct let _symbolstartpos = _startpos_x_ in let _sloc = (_symbolstartpos, _endpos) in -# 2389 "parsing/parser.mly" +# 2392 "parsing/parser.mly" ( let lab, pat = x in lab, mkpat ~loc:_sloc (Ppat_constraint (pat, cty)) ) -# 15712 "parsing/parser.ml" +# 15715 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15731,9 +15734,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 3968 "parsing/parser.mly" +# 3971 "parsing/parser.mly" ( _1 ) -# 15737 "parsing/parser.ml" +# 15740 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15756,9 +15759,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.arg_label * Parsetree.expression) = -# 2734 "parsing/parser.mly" +# 2737 "parsing/parser.mly" ( (Nolabel, _1) ) -# 15762 "parsing/parser.ml" +# 15765 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15784,17 +15787,17 @@ module Tables = struct } = _menhir_stack in let _2 : (Parsetree.expression) = Obj.magic _2 in let _1 : ( -# 826 "parsing/parser.mly" +# 829 "parsing/parser.mly" (string) -# 15790 "parsing/parser.ml" +# 15793 "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 : (Asttypes.arg_label * Parsetree.expression) = -# 2736 "parsing/parser.mly" +# 2739 "parsing/parser.mly" ( (Labelled _1, _2) ) -# 15798 "parsing/parser.ml" +# 15801 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15819,9 +15822,9 @@ module Tables = struct }; } = _menhir_stack in let label : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 15825 "parsing/parser.ml" +# 15828 "parsing/parser.ml" ) = Obj.magic label in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -15829,10 +15832,10 @@ module Tables = struct let _endpos = _endpos_label_ in let _v : (Asttypes.arg_label * Parsetree.expression) = let _loc_label_ = (_startpos_label_, _endpos_label_) in -# 2738 "parsing/parser.mly" +# 2741 "parsing/parser.mly" ( let loc = _loc_label_ in (Labelled label, mkexpvar ~loc label) ) -# 15836 "parsing/parser.ml" +# 15839 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15877,9 +15880,9 @@ module Tables = struct let _5 : unit = Obj.magic _5 in let ty : (Parsetree.core_type option * Parsetree.core_type option) = Obj.magic ty in let label : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 15883 "parsing/parser.ml" +# 15886 "parsing/parser.ml" ) = Obj.magic label in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in @@ -15889,10 +15892,10 @@ module Tables = struct let _v : (Asttypes.arg_label * Parsetree.expression) = let _endpos = _endpos__5_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in -# 2741 "parsing/parser.mly" +# 2744 "parsing/parser.mly" ( (Labelled label, mkexp_constraint ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_label_ label) ty) ) -# 15896 "parsing/parser.ml" +# 15899 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15917,9 +15920,9 @@ module Tables = struct }; } = _menhir_stack in let label : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 15923 "parsing/parser.ml" +# 15926 "parsing/parser.ml" ) = Obj.magic label in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -15927,10 +15930,10 @@ module Tables = struct let _endpos = _endpos_label_ in let _v : (Asttypes.arg_label * Parsetree.expression) = let _loc_label_ = (_startpos_label_, _endpos_label_) in -# 2744 "parsing/parser.mly" +# 2747 "parsing/parser.mly" ( let loc = _loc_label_ in (Optional label, mkexpvar ~loc label) ) -# 15934 "parsing/parser.ml" +# 15937 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15956,17 +15959,17 @@ module Tables = struct } = _menhir_stack in let _2 : (Parsetree.expression) = Obj.magic _2 in let _1 : ( -# 859 "parsing/parser.mly" +# 862 "parsing/parser.mly" (string) -# 15962 "parsing/parser.ml" +# 15965 "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 : (Asttypes.arg_label * Parsetree.expression) = -# 2747 "parsing/parser.mly" +# 2750 "parsing/parser.mly" ( (Optional _1, _2) ) -# 15970 "parsing/parser.ml" +# 15973 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16019,22 +16022,22 @@ module Tables = struct let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _5 = let _1 = _1_inlined1 in -# 2378 "parsing/parser.mly" +# 2381 "parsing/parser.mly" ( _1 ) -# 16025 "parsing/parser.ml" +# 16028 "parsing/parser.ml" in let _3 = -# 3691 "parsing/parser.mly" +# 3694 "parsing/parser.mly" ( false ) -# 16031 "parsing/parser.ml" +# 16034 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__2_, _endpos__2_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2341 "parsing/parser.mly" +# 2344 "parsing/parser.mly" ( (Optional (fst _4), _5, mkpat_local_if _3 (snd _4) _loc__3_) ) -# 16038 "parsing/parser.ml" +# 16041 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16094,22 +16097,22 @@ module Tables = struct let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _5 = let _1 = _1_inlined2 in -# 2378 "parsing/parser.mly" +# 2381 "parsing/parser.mly" ( _1 ) -# 16100 "parsing/parser.ml" +# 16103 "parsing/parser.ml" in let _3 = -# 3693 "parsing/parser.mly" +# 3696 "parsing/parser.mly" ( true ) -# 16106 "parsing/parser.ml" +# 16109 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2341 "parsing/parser.mly" +# 2344 "parsing/parser.mly" ( (Optional (fst _4), _5, mkpat_local_if _3 (snd _4) _loc__3_) ) -# 16113 "parsing/parser.ml" +# 16116 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16134,9 +16137,9 @@ module Tables = struct }; } = _menhir_stack in let _1_inlined1 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 16140 "parsing/parser.ml" +# 16143 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -16149,24 +16152,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 16155 "parsing/parser.ml" +# 16158 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2395 "parsing/parser.mly" +# 2398 "parsing/parser.mly" ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) -# 16164 "parsing/parser.ml" +# 16167 "parsing/parser.ml" in -# 2343 "parsing/parser.mly" +# 2346 "parsing/parser.mly" ( (Optional (fst _2), None, snd _2) ) -# 16170 "parsing/parser.ml" +# 16173 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16213,9 +16216,9 @@ module Tables = struct let _4 : (Parsetree.pattern) = Obj.magic _4 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 859 "parsing/parser.mly" +# 862 "parsing/parser.mly" (string) -# 16219 "parsing/parser.ml" +# 16222 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -16223,22 +16226,22 @@ module Tables = struct let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _5 = let _1 = _1_inlined1 in -# 2378 "parsing/parser.mly" +# 2381 "parsing/parser.mly" ( _1 ) -# 16229 "parsing/parser.ml" +# 16232 "parsing/parser.ml" in let _3 = -# 3691 "parsing/parser.mly" +# 3694 "parsing/parser.mly" ( false ) -# 16235 "parsing/parser.ml" +# 16238 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__2_, _endpos__2_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2345 "parsing/parser.mly" +# 2348 "parsing/parser.mly" ( (Optional _1, _5, mkpat_local_if _3 _4 _loc__3_) ) -# 16242 "parsing/parser.ml" +# 16245 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16292,9 +16295,9 @@ module Tables = struct let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 859 "parsing/parser.mly" +# 862 "parsing/parser.mly" (string) -# 16298 "parsing/parser.ml" +# 16301 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -16302,22 +16305,22 @@ module Tables = struct let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _5 = let _1 = _1_inlined2 in -# 2378 "parsing/parser.mly" +# 2381 "parsing/parser.mly" ( _1 ) -# 16308 "parsing/parser.ml" +# 16311 "parsing/parser.ml" in let _3 = -# 3693 "parsing/parser.mly" +# 3696 "parsing/parser.mly" ( true ) -# 16314 "parsing/parser.ml" +# 16317 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2345 "parsing/parser.mly" +# 2348 "parsing/parser.mly" ( (Optional _1, _5, mkpat_local_if _3 _4 _loc__3_) ) -# 16321 "parsing/parser.ml" +# 16324 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16343,17 +16346,17 @@ module Tables = struct } = _menhir_stack in let _2 : (Parsetree.pattern) = Obj.magic _2 in let _1 : ( -# 859 "parsing/parser.mly" +# 862 "parsing/parser.mly" (string) -# 16349 "parsing/parser.ml" +# 16352 "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 : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = -# 2347 "parsing/parser.mly" +# 2350 "parsing/parser.mly" ( (Optional _1, None, _2) ) -# 16357 "parsing/parser.ml" +# 16360 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16397,17 +16400,17 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _3 = -# 3691 "parsing/parser.mly" +# 3694 "parsing/parser.mly" ( false ) -# 16403 "parsing/parser.ml" +# 16406 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__2_, _endpos__2_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2349 "parsing/parser.mly" +# 2352 "parsing/parser.mly" ( (Labelled (fst _4), None, mkpat_local_if _3 (snd _4) _loc__3_) ) -# 16411 "parsing/parser.ml" +# 16414 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16458,17 +16461,17 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _3 = -# 3693 "parsing/parser.mly" +# 3696 "parsing/parser.mly" ( true ) -# 16464 "parsing/parser.ml" +# 16467 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2349 "parsing/parser.mly" +# 2352 "parsing/parser.mly" ( (Labelled (fst _4), None, mkpat_local_if _3 (snd _4) _loc__3_) ) -# 16472 "parsing/parser.ml" +# 16475 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16493,9 +16496,9 @@ module Tables = struct }; } = _menhir_stack in let _1_inlined1 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 16499 "parsing/parser.ml" +# 16502 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -16508,24 +16511,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 16514 "parsing/parser.ml" +# 16517 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2395 "parsing/parser.mly" +# 2398 "parsing/parser.mly" ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) -# 16523 "parsing/parser.ml" +# 16526 "parsing/parser.ml" in -# 2352 "parsing/parser.mly" +# 2355 "parsing/parser.mly" ( (Labelled (fst _2), None, snd _2) ) -# 16529 "parsing/parser.ml" +# 16532 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16551,17 +16554,17 @@ module Tables = struct } = _menhir_stack in let _2 : (Parsetree.pattern) = Obj.magic _2 in let _1 : ( -# 826 "parsing/parser.mly" +# 829 "parsing/parser.mly" (string) -# 16557 "parsing/parser.ml" +# 16560 "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 : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = -# 2354 "parsing/parser.mly" +# 2357 "parsing/parser.mly" ( (Labelled _1, None, _2) ) -# 16565 "parsing/parser.ml" +# 16568 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16608,18 +16611,18 @@ module Tables = struct let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 826 "parsing/parser.mly" +# 829 "parsing/parser.mly" (string) -# 16614 "parsing/parser.ml" +# 16617 "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.arg_label * Parsetree.expression option * Parsetree.pattern) = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2356 "parsing/parser.mly" +# 2359 "parsing/parser.mly" ( (Labelled _1, None, mkpat_stack _4 (make_loc _loc__3_)) ) -# 16623 "parsing/parser.ml" +# 16626 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16642,9 +16645,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = -# 2358 "parsing/parser.mly" +# 2361 "parsing/parser.mly" ( (Nolabel, None, _1) ) -# 16648 "parsing/parser.ml" +# 16651 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16689,9 +16692,9 @@ module Tables = struct let _endpos = _endpos__4_ in let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _loc__2_ = (_startpos__2_, _endpos__2_) in -# 2360 "parsing/parser.mly" +# 2363 "parsing/parser.mly" ( (Nolabel, None, mkpat_stack _3 (make_loc _loc__2_)) ) -# 16695 "parsing/parser.ml" +# 16698 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16759,9 +16762,9 @@ module Tables = struct let pat : (Parsetree.pattern) = Obj.magic pat in let _2 : unit = Obj.magic _2 in let _1 : ( -# 826 "parsing/parser.mly" +# 829 "parsing/parser.mly" (string) -# 16765 "parsing/parser.ml" +# 16768 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -16776,24 +16779,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 16780 "parsing/parser.ml" +# 16783 "parsing/parser.ml" in -# 1128 "parsing/parser.mly" +# 1131 "parsing/parser.mly" ( xs ) -# 16785 "parsing/parser.ml" +# 16788 "parsing/parser.ml" in -# 3586 "parsing/parser.mly" +# 3589 "parsing/parser.mly" ( _1 ) -# 16791 "parsing/parser.ml" +# 16794 "parsing/parser.ml" in -# 2411 "parsing/parser.mly" +# 2414 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 16797 "parsing/parser.ml" +# 16800 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_xs_) in @@ -16801,15 +16804,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 16807 "parsing/parser.ml" +# 16810 "parsing/parser.ml" in -# 2412 "parsing/parser.mly" +# 2415 "parsing/parser.mly" ( Ppat_constraint(pat, cty) ) -# 16813 "parsing/parser.ml" +# 16816 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_pat_) in @@ -16817,21 +16820,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 16823 "parsing/parser.ml" +# 16826 "parsing/parser.ml" in -# 2413 "parsing/parser.mly" +# 2416 "parsing/parser.mly" ( _1 ) -# 16829 "parsing/parser.ml" +# 16832 "parsing/parser.ml" in -# 2362 "parsing/parser.mly" +# 2365 "parsing/parser.mly" ( (Labelled _1, None, _3) ) -# 16835 "parsing/parser.ml" +# 16838 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16906,9 +16909,9 @@ module Tables = struct let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 826 "parsing/parser.mly" +# 829 "parsing/parser.mly" (string) -# 16912 "parsing/parser.ml" +# 16915 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -16923,24 +16926,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 16927 "parsing/parser.ml" +# 16930 "parsing/parser.ml" in -# 1128 "parsing/parser.mly" +# 1131 "parsing/parser.mly" ( xs ) -# 16932 "parsing/parser.ml" +# 16935 "parsing/parser.ml" in -# 3586 "parsing/parser.mly" +# 3589 "parsing/parser.mly" ( _1 ) -# 16938 "parsing/parser.ml" +# 16941 "parsing/parser.ml" in -# 2411 "parsing/parser.mly" +# 2414 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 16944 "parsing/parser.ml" +# 16947 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_xs_) in @@ -16948,15 +16951,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 16954 "parsing/parser.ml" +# 16957 "parsing/parser.ml" in -# 2412 "parsing/parser.mly" +# 2415 "parsing/parser.mly" ( Ppat_constraint(pat, cty) ) -# 16960 "parsing/parser.ml" +# 16963 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_pat_) in @@ -16964,22 +16967,22 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 16970 "parsing/parser.ml" +# 16973 "parsing/parser.ml" in -# 2413 "parsing/parser.mly" +# 2416 "parsing/parser.mly" ( _1 ) -# 16976 "parsing/parser.ml" +# 16979 "parsing/parser.ml" in let _loc__2_ = (_startpos__2_, _endpos__2_) in -# 2364 "parsing/parser.mly" +# 2367 "parsing/parser.mly" ( (Labelled _1, None, mkpat_stack _4 (make_loc _loc__2_)) ) -# 16983 "parsing/parser.ml" +# 16986 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17053,24 +17056,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 17057 "parsing/parser.ml" +# 17060 "parsing/parser.ml" in -# 1128 "parsing/parser.mly" +# 1131 "parsing/parser.mly" ( xs ) -# 17062 "parsing/parser.ml" +# 17065 "parsing/parser.ml" in -# 3586 "parsing/parser.mly" +# 3589 "parsing/parser.mly" ( _1 ) -# 17068 "parsing/parser.ml" +# 17071 "parsing/parser.ml" in -# 2411 "parsing/parser.mly" +# 2414 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 17074 "parsing/parser.ml" +# 17077 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_xs_) in @@ -17078,15 +17081,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 17084 "parsing/parser.ml" +# 17087 "parsing/parser.ml" in -# 2412 "parsing/parser.mly" +# 2415 "parsing/parser.mly" ( Ppat_constraint(pat, cty) ) -# 17090 "parsing/parser.ml" +# 17093 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_pat_) in @@ -17094,21 +17097,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 17100 "parsing/parser.ml" +# 17103 "parsing/parser.ml" in -# 2413 "parsing/parser.mly" +# 2416 "parsing/parser.mly" ( _1 ) -# 17106 "parsing/parser.ml" +# 17109 "parsing/parser.ml" in -# 2366 "parsing/parser.mly" +# 2369 "parsing/parser.mly" ( (Nolabel, None, _2) ) -# 17112 "parsing/parser.ml" +# 17115 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17132,9 +17135,9 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.attribute) = let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 3324 "parsing/parser.mly" +# 3327 "parsing/parser.mly" ( check_layout _loc__1_ _1 ) -# 17138 "parsing/parser.ml" +# 17141 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17157,9 +17160,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern * Parsetree.expression * bool) = -# 2806 "parsing/parser.mly" +# 2809 "parsing/parser.mly" ( let p,e = _1 in (p,e,false) ) -# 17163 "parsing/parser.ml" +# 17166 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17185,9 +17188,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in -# 2809 "parsing/parser.mly" +# 2812 "parsing/parser.mly" ( (mkpatvar ~loc:_loc _1, mkexpvar ~loc:_loc _1, true) ) -# 17191 "parsing/parser.ml" +# 17194 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17221,15 +17224,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2754 "parsing/parser.mly" +# 2757 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 17227 "parsing/parser.ml" +# 17230 "parsing/parser.ml" in -# 2758 "parsing/parser.mly" +# 2761 "parsing/parser.mly" ( (_1, _2) ) -# 17233 "parsing/parser.ml" +# 17236 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17277,16 +17280,16 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2754 "parsing/parser.mly" +# 2757 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 17283 "parsing/parser.ml" +# 17286 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_ in let _1 = -# 3691 "parsing/parser.mly" +# 3694 "parsing/parser.mly" ( false ) -# 17290 "parsing/parser.ml" +# 17293 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__0_, _endpos__0_) in let _endpos = _endpos__5_ in @@ -17297,7 +17300,7 @@ module Tables = struct let _loc__1_ = (_startpos__1_, _endpos__1_) in let _sloc = (_symbolstartpos, _endpos) in -# 2760 "parsing/parser.mly" +# 2763 "parsing/parser.mly" ( let v = _2 in (* PR#7344 *) let t = match _3 with @@ -17319,7 +17322,7 @@ module Tables = struct local_loc) in (pat, exp) ) -# 17323 "parsing/parser.ml" +# 17326 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17375,16 +17378,16 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2754 "parsing/parser.mly" +# 2757 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 17381 "parsing/parser.ml" +# 17384 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_inlined1_ in let _1 = -# 3693 "parsing/parser.mly" +# 3696 "parsing/parser.mly" ( true ) -# 17388 "parsing/parser.ml" +# 17391 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = if _startpos__1_ != _endpos__1_ then @@ -17394,7 +17397,7 @@ module Tables = struct let _loc__1_ = (_startpos__1_, _endpos__1_) in let _sloc = (_symbolstartpos, _endpos) in -# 2760 "parsing/parser.mly" +# 2763 "parsing/parser.mly" ( let v = _2 in (* PR#7344 *) let t = match _3 with @@ -17416,7 +17419,7 @@ module Tables = struct local_loc) in (pat, exp) ) -# 17420 "parsing/parser.ml" +# 17423 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17487,24 +17490,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 17491 "parsing/parser.ml" +# 17494 "parsing/parser.ml" in -# 1128 "parsing/parser.mly" +# 1131 "parsing/parser.mly" ( xs ) -# 17496 "parsing/parser.ml" +# 17499 "parsing/parser.ml" in -# 3586 "parsing/parser.mly" +# 3589 "parsing/parser.mly" ( _1 ) -# 17502 "parsing/parser.ml" +# 17505 "parsing/parser.ml" in -# 3590 "parsing/parser.mly" +# 3593 "parsing/parser.mly" ( Ptyp_poly(_1, _3) ) -# 17508 "parsing/parser.ml" +# 17511 "parsing/parser.ml" in let (_endpos__4_, _startpos__4_) = (_endpos__3_inlined1_, _startpos_xs_) in @@ -17513,16 +17516,16 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2754 "parsing/parser.mly" +# 2757 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 17519 "parsing/parser.ml" +# 17522 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_ in let _1 = -# 3691 "parsing/parser.mly" +# 3694 "parsing/parser.mly" ( false ) -# 17526 "parsing/parser.ml" +# 17529 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__0_, _endpos__0_) in let _endpos = _endpos__6_ in @@ -17534,7 +17537,7 @@ module Tables = struct let _loc__1_ = (_startpos__1_, _endpos__1_) in let _sloc = (_symbolstartpos, _endpos) in -# 2782 "parsing/parser.mly" +# 2785 "parsing/parser.mly" ( let patloc = (_startpos__2_, _endpos__4_) in let pat = mkpat_local_if _1 @@ -17544,7 +17547,7 @@ module Tables = struct in let exp = mkexp_local_if _1 ~loc:_sloc ~kwd_loc:(_loc__1_) _6 in (pat, exp) ) -# 17548 "parsing/parser.ml" +# 17551 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17622,24 +17625,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 17626 "parsing/parser.ml" +# 17629 "parsing/parser.ml" in -# 1128 "parsing/parser.mly" +# 1131 "parsing/parser.mly" ( xs ) -# 17631 "parsing/parser.ml" +# 17634 "parsing/parser.ml" in -# 3586 "parsing/parser.mly" +# 3589 "parsing/parser.mly" ( _1 ) -# 17637 "parsing/parser.ml" +# 17640 "parsing/parser.ml" in -# 3590 "parsing/parser.mly" +# 3593 "parsing/parser.mly" ( Ptyp_poly(_1, _3) ) -# 17643 "parsing/parser.ml" +# 17646 "parsing/parser.ml" in let (_endpos__4_, _startpos__4_) = (_endpos__3_inlined1_, _startpos_xs_) in @@ -17649,16 +17652,16 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2754 "parsing/parser.mly" +# 2757 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 17655 "parsing/parser.ml" +# 17658 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_inlined1_ in let _1 = -# 3693 "parsing/parser.mly" +# 3696 "parsing/parser.mly" ( true ) -# 17662 "parsing/parser.ml" +# 17665 "parsing/parser.ml" in let _endpos = _endpos__6_ in let _symbolstartpos = if _startpos__1_ != _endpos__1_ then @@ -17669,7 +17672,7 @@ module Tables = struct let _loc__1_ = (_startpos__1_, _endpos__1_) in let _sloc = (_symbolstartpos, _endpos) in -# 2782 "parsing/parser.mly" +# 2785 "parsing/parser.mly" ( let patloc = (_startpos__2_, _endpos__4_) in let pat = mkpat_local_if _1 @@ -17679,7 +17682,7 @@ module Tables = struct in let exp = mkexp_local_if _1 ~loc:_sloc ~kwd_loc:(_loc__1_) _6 in (pat, exp) ) -# 17683 "parsing/parser.ml" +# 17686 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17751,30 +17754,30 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__8_ in let _v : (Parsetree.pattern * Parsetree.expression) = let _4 = -# 2751 "parsing/parser.mly" +# 2754 "parsing/parser.mly" ( xs ) -# 17757 "parsing/parser.ml" +# 17760 "parsing/parser.ml" in let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2754 "parsing/parser.mly" +# 2757 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 17766 "parsing/parser.ml" +# 17769 "parsing/parser.ml" in let _endpos = _endpos__8_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2792 "parsing/parser.mly" +# 2795 "parsing/parser.mly" ( let exp, poly = wrap_type_annotation ~loc:_sloc _4 _6 _8 in let loc = (_startpos__1_, _endpos__6_) in (ghpat ~loc (Ppat_constraint(_1, poly)), exp) ) -# 17778 "parsing/parser.ml" +# 17781 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17811,9 +17814,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.pattern * Parsetree.expression) = -# 2797 "parsing/parser.mly" +# 2800 "parsing/parser.mly" ( (_1, _3) ) -# 17817 "parsing/parser.ml" +# 17820 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17864,10 +17867,10 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Parsetree.pattern * Parsetree.expression) = -# 2799 "parsing/parser.mly" +# 2802 "parsing/parser.mly" ( let loc = (_startpos__1_, _endpos__3_) in (ghpat ~loc (Ppat_constraint(_1, _3)), _5) ) -# 17871 "parsing/parser.ml" +# 17874 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17909,9 +17912,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2754 "parsing/parser.mly" +# 2757 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 17915 "parsing/parser.ml" +# 17918 "parsing/parser.ml" in let _endpos = _endpos__3_ in @@ -17919,9 +17922,9 @@ module Tables = struct let _loc__1_ = (_startpos__1_, _endpos__1_) in let _sloc = (_symbolstartpos, _endpos) in -# 2802 "parsing/parser.mly" +# 2805 "parsing/parser.mly" ( (_2, mkexp_stack ~loc:_sloc ~kwd_loc:(_loc__1_) _3) ) -# 17925 "parsing/parser.ml" +# 17928 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17982,36 +17985,36 @@ module Tables = struct let attrs2 = let _1 = _1_inlined2 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 17988 "parsing/parser.ml" +# 17991 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined2_ in let attrs1 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 17997 "parsing/parser.ml" +# 18000 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2829 "parsing/parser.mly" +# 2832 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in mklbs ext rec_flag (mklb ~loc:_sloc true body attrs) ) -# 18009 "parsing/parser.ml" +# 18012 "parsing/parser.ml" in -# 2819 "parsing/parser.mly" +# 2822 "parsing/parser.mly" ( _1 ) -# 18015 "parsing/parser.ml" +# 18018 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18041,9 +18044,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (let_bindings) = -# 2820 "parsing/parser.mly" +# 2823 "parsing/parser.mly" ( addlb _1 _2 ) -# 18047 "parsing/parser.ml" +# 18050 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18097,41 +18100,41 @@ module Tables = struct let attrs2 = let _1 = _1_inlined2 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 18103 "parsing/parser.ml" +# 18106 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined2_ in let attrs1 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 18112 "parsing/parser.ml" +# 18115 "parsing/parser.ml" in let ext = -# 4226 "parsing/parser.mly" +# 4229 "parsing/parser.mly" ( None ) -# 18118 "parsing/parser.ml" +# 18121 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2829 "parsing/parser.mly" +# 2832 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in mklbs ext rec_flag (mklb ~loc:_sloc true body attrs) ) -# 18129 "parsing/parser.ml" +# 18132 "parsing/parser.ml" in -# 2819 "parsing/parser.mly" +# 2822 "parsing/parser.mly" ( _1 ) -# 18135 "parsing/parser.ml" +# 18138 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18199,18 +18202,18 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 18205 "parsing/parser.ml" +# 18208 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let attrs1 = let _1 = _1_inlined2 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 18214 "parsing/parser.ml" +# 18217 "parsing/parser.ml" in let ext = @@ -18219,27 +18222,27 @@ module Tables = struct let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in -# 4228 "parsing/parser.mly" +# 4231 "parsing/parser.mly" ( not_expecting _loc "extension" ) -# 18225 "parsing/parser.ml" +# 18228 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2829 "parsing/parser.mly" +# 2832 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in mklbs ext rec_flag (mklb ~loc:_sloc true body attrs) ) -# 18237 "parsing/parser.ml" +# 18240 "parsing/parser.ml" in -# 2819 "parsing/parser.mly" +# 2822 "parsing/parser.mly" ( _1 ) -# 18243 "parsing/parser.ml" +# 18246 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18269,9 +18272,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (let_bindings) = -# 2820 "parsing/parser.mly" +# 2823 "parsing/parser.mly" ( addlb _1 _2 ) -# 18275 "parsing/parser.ml" +# 18278 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18294,9 +18297,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = -# 2399 "parsing/parser.mly" +# 2402 "parsing/parser.mly" ( _1 ) -# 18300 "parsing/parser.ml" +# 18303 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18334,24 +18337,24 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 2401 "parsing/parser.mly" +# 2404 "parsing/parser.mly" ( Ppat_constraint(_1, _3) ) -# 18340 "parsing/parser.ml" +# 18343 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 18349 "parsing/parser.ml" +# 18352 "parsing/parser.ml" in -# 2402 "parsing/parser.mly" +# 2405 "parsing/parser.mly" ( _1 ) -# 18355 "parsing/parser.ml" +# 18358 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18411,24 +18414,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 18415 "parsing/parser.ml" +# 18418 "parsing/parser.ml" in -# 1128 "parsing/parser.mly" +# 1131 "parsing/parser.mly" ( xs ) -# 18420 "parsing/parser.ml" +# 18423 "parsing/parser.ml" in -# 3586 "parsing/parser.mly" +# 3589 "parsing/parser.mly" ( _1 ) -# 18426 "parsing/parser.ml" +# 18429 "parsing/parser.ml" in -# 2411 "parsing/parser.mly" +# 2414 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 18432 "parsing/parser.ml" +# 18435 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_xs_) in @@ -18436,15 +18439,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 18442 "parsing/parser.ml" +# 18445 "parsing/parser.ml" in -# 2412 "parsing/parser.mly" +# 2415 "parsing/parser.mly" ( Ppat_constraint(pat, cty) ) -# 18448 "parsing/parser.ml" +# 18451 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_pat_) in @@ -18452,21 +18455,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 18458 "parsing/parser.ml" +# 18461 "parsing/parser.ml" in -# 2413 "parsing/parser.mly" +# 2416 "parsing/parser.mly" ( _1 ) -# 18464 "parsing/parser.ml" +# 18467 "parsing/parser.ml" in -# 2404 "parsing/parser.mly" +# 2407 "parsing/parser.mly" ( _1 ) -# 18470 "parsing/parser.ml" +# 18473 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18500,15 +18503,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2754 "parsing/parser.mly" +# 2757 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 18506 "parsing/parser.ml" +# 18509 "parsing/parser.ml" in -# 2846 "parsing/parser.mly" +# 2849 "parsing/parser.mly" ( (pat, exp) ) -# 18512 "parsing/parser.ml" +# 18515 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18534,9 +18537,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in -# 2849 "parsing/parser.mly" +# 2852 "parsing/parser.mly" ( (mkpatvar ~loc:_loc _1, mkexpvar ~loc:_loc _1) ) -# 18540 "parsing/parser.ml" +# 18543 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18587,10 +18590,10 @@ module Tables = struct let _startpos = _startpos_pat_ in let _endpos = _endpos_exp_ in let _v : (Parsetree.pattern * Parsetree.expression) = -# 2851 "parsing/parser.mly" +# 2854 "parsing/parser.mly" ( let loc = (_startpos_pat_, _endpos_typ_) in (ghpat ~loc (Ppat_constraint(pat, typ)), exp) ) -# 18594 "parsing/parser.ml" +# 18597 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18627,9 +18630,9 @@ module Tables = struct let _startpos = _startpos_pat_ in let _endpos = _endpos_exp_ in let _v : (Parsetree.pattern * Parsetree.expression) = -# 2854 "parsing/parser.mly" +# 2857 "parsing/parser.mly" ( (pat, exp) ) -# 18633 "parsing/parser.ml" +# 18636 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18652,10 +18655,10 @@ module Tables = struct let _startpos = _startpos_body_ in let _endpos = _endpos_body_ in let _v : (Parsetree.pattern * Parsetree.expression * Parsetree.binding_op list) = -# 2858 "parsing/parser.mly" +# 2861 "parsing/parser.mly" ( let let_pat, let_exp = body in let_pat, let_exp, [] ) -# 18659 "parsing/parser.ml" +# 18662 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18687,9 +18690,9 @@ module Tables = struct } = _menhir_stack in let body : (Parsetree.pattern * Parsetree.expression) = Obj.magic body in let _1 : ( -# 822 "parsing/parser.mly" +# 825 "parsing/parser.mly" (string) -# 18693 "parsing/parser.ml" +# 18696 "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 @@ -18700,22 +18703,22 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 18706 "parsing/parser.ml" +# 18709 "parsing/parser.ml" in let _endpos = _endpos_body_ in let _symbolstartpos = _startpos_bindings_ in let _sloc = (_symbolstartpos, _endpos) in -# 2861 "parsing/parser.mly" +# 2864 "parsing/parser.mly" ( let let_pat, let_exp, rev_ands = bindings in let pbop_pat, pbop_exp = body in 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 ) -# 18719 "parsing/parser.ml" +# 18722 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18733,7 +18736,7 @@ module Tables = struct let _v : (Parsetree.class_declaration list) = # 211 "" ( [] ) -# 18737 "parsing/parser.ml" +# 18740 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18797,9 +18800,9 @@ module Tables = struct let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let body : (Parsetree.class_expr) = Obj.magic body in let _1_inlined2 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 18803 "parsing/parser.ml" +# 18806 "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 @@ -18812,9 +18815,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 18818 "parsing/parser.ml" +# 18821 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -18824,24 +18827,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 18830 "parsing/parser.ml" +# 18833 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 18838 "parsing/parser.ml" +# 18841 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1987 "parsing/parser.mly" +# 1990 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in @@ -18849,13 +18852,13 @@ module Tables = struct let text = symbol_text _symbolstartpos in Ci.mk id body ~virt ~params ~attrs ~loc ~text ~docs ) -# 18853 "parsing/parser.ml" +# 18856 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 18859 "parsing/parser.ml" +# 18862 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18873,7 +18876,7 @@ module Tables = struct let _v : (Parsetree.class_description list) = # 211 "" ( [] ) -# 18877 "parsing/parser.ml" +# 18880 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18944,9 +18947,9 @@ module Tables = struct let cty : (Parsetree.class_type) = Obj.magic cty in let _6 : unit = Obj.magic _6 in let _1_inlined2 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 18950 "parsing/parser.ml" +# 18953 "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 @@ -18959,9 +18962,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 18965 "parsing/parser.ml" +# 18968 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -18971,24 +18974,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 18977 "parsing/parser.ml" +# 18980 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 18985 "parsing/parser.ml" +# 18988 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2278 "parsing/parser.mly" +# 2281 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in @@ -18996,13 +18999,13 @@ module Tables = struct let text = symbol_text _symbolstartpos in Ci.mk id cty ~virt ~params ~attrs ~loc ~text ~docs ) -# 19000 "parsing/parser.ml" +# 19003 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 19006 "parsing/parser.ml" +# 19009 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19020,7 +19023,7 @@ module Tables = struct let _v : (Parsetree.class_type_declaration list) = # 211 "" ( [] ) -# 19024 "parsing/parser.ml" +# 19027 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19091,9 +19094,9 @@ module Tables = struct let csig : (Parsetree.class_type) = Obj.magic csig in let _6 : unit = Obj.magic _6 in let _1_inlined2 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 19097 "parsing/parser.ml" +# 19100 "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 @@ -19106,9 +19109,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 19112 "parsing/parser.ml" +# 19115 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -19118,24 +19121,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 19124 "parsing/parser.ml" +# 19127 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 19132 "parsing/parser.ml" +# 19135 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2317 "parsing/parser.mly" +# 2320 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in @@ -19143,13 +19146,13 @@ module Tables = struct let text = symbol_text _symbolstartpos in Ci.mk id csig ~virt ~params ~attrs ~loc ~text ~docs ) -# 19147 "parsing/parser.ml" +# 19150 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 19153 "parsing/parser.ml" +# 19156 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19167,7 +19170,7 @@ module Tables = struct let _v : (Parsetree.module_binding list) = # 211 "" ( [] ) -# 19171 "parsing/parser.ml" +# 19174 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19228,9 +19231,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 19234 "parsing/parser.ml" +# 19237 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -19240,24 +19243,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 19246 "parsing/parser.ml" +# 19249 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 19254 "parsing/parser.ml" +# 19257 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1642 "parsing/parser.mly" +# 1645 "parsing/parser.mly" ( let loc = make_loc _sloc in let attrs = attrs1 @ attrs2 in @@ -19265,13 +19268,13 @@ module Tables = struct let text = symbol_text _symbolstartpos in Mb.mk name body ~attrs ~loc ~text ~docs ) -# 19269 "parsing/parser.ml" +# 19272 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 19275 "parsing/parser.ml" +# 19278 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19289,7 +19292,7 @@ module Tables = struct let _v : (Parsetree.module_declaration list) = # 211 "" ( [] ) -# 19293 "parsing/parser.ml" +# 19296 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19357,9 +19360,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 19363 "parsing/parser.ml" +# 19366 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -19369,24 +19372,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 19375 "parsing/parser.ml" +# 19378 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 19383 "parsing/parser.ml" +# 19386 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1928 "parsing/parser.mly" +# 1931 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let docs = symbol_docs _sloc in @@ -19394,13 +19397,13 @@ module Tables = struct let text = symbol_text _symbolstartpos in Md.mk name mty ~attrs ~loc ~text ~docs ) -# 19398 "parsing/parser.ml" +# 19401 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 19404 "parsing/parser.ml" +# 19407 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19418,7 +19421,7 @@ module Tables = struct let _v : (Parsetree.attributes) = # 211 "" ( [] ) -# 19422 "parsing/parser.ml" +# 19425 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19450,7 +19453,7 @@ module Tables = struct let _v : (Parsetree.attributes) = # 213 "" ( x :: xs ) -# 19454 "parsing/parser.ml" +# 19457 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19468,7 +19471,7 @@ module Tables = struct let _v : (Parsetree.type_declaration list) = # 211 "" ( [] ) -# 19472 "parsing/parser.ml" +# 19475 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19533,9 +19536,9 @@ module Tables = struct let xs_inlined1 : ((Parsetree.core_type * Parsetree.core_type * Ast_helper.loc) list) = Obj.magic xs_inlined1 in let kind_priv_manifest : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = Obj.magic kind_priv_manifest in let _1_inlined2 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 19539 "parsing/parser.ml" +# 19542 "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 @@ -19548,9 +19551,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 19554 "parsing/parser.ml" +# 19557 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -19559,18 +19562,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 19563 "parsing/parser.ml" +# 19566 "parsing/parser.ml" in -# 1110 "parsing/parser.mly" +# 1113 "parsing/parser.mly" ( xs ) -# 19568 "parsing/parser.ml" +# 19571 "parsing/parser.ml" in -# 3275 "parsing/parser.mly" +# 3278 "parsing/parser.mly" ( _1 ) -# 19574 "parsing/parser.ml" +# 19577 "parsing/parser.ml" in let id = @@ -19579,24 +19582,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 19585 "parsing/parser.ml" +# 19588 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 19593 "parsing/parser.ml" +# 19596 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3264 "parsing/parser.mly" +# 3267 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in @@ -19605,13 +19608,13 @@ module Tables = struct let text = symbol_text _symbolstartpos in Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ~text ) -# 19609 "parsing/parser.ml" +# 19612 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 19615 "parsing/parser.ml" +# 19618 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19629,7 +19632,7 @@ module Tables = struct let _v : (Parsetree.type_declaration list) = # 211 "" ( [] ) -# 19633 "parsing/parser.ml" +# 19636 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19701,9 +19704,9 @@ module Tables = struct let _2 : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = Obj.magic _2 in let _1_inlined3 : unit = Obj.magic _1_inlined3 in let _1_inlined2 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 19707 "parsing/parser.ml" +# 19710 "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 @@ -19716,9 +19719,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined4 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 19722 "parsing/parser.ml" +# 19725 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in @@ -19727,24 +19730,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 19731 "parsing/parser.ml" +# 19734 "parsing/parser.ml" in -# 1110 "parsing/parser.mly" +# 1113 "parsing/parser.mly" ( xs ) -# 19736 "parsing/parser.ml" +# 19739 "parsing/parser.ml" in -# 3275 "parsing/parser.mly" +# 3278 "parsing/parser.mly" ( _1 ) -# 19742 "parsing/parser.ml" +# 19745 "parsing/parser.ml" in let kind_priv_manifest = -# 3310 "parsing/parser.mly" +# 3313 "parsing/parser.mly" ( _2 ) -# 19748 "parsing/parser.ml" +# 19751 "parsing/parser.ml" in let id = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in @@ -19752,24 +19755,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 19758 "parsing/parser.ml" +# 19761 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 19766 "parsing/parser.ml" +# 19769 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3264 "parsing/parser.mly" +# 3267 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in @@ -19778,13 +19781,13 @@ module Tables = struct let text = symbol_text _symbolstartpos in Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ~text ) -# 19782 "parsing/parser.ml" +# 19785 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 19788 "parsing/parser.ml" +# 19791 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19802,7 +19805,7 @@ module Tables = struct let _v : (Parsetree.attributes) = # 211 "" ( [] ) -# 19806 "parsing/parser.ml" +# 19809 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19834,7 +19837,7 @@ module Tables = struct let _v : (Parsetree.attributes) = # 213 "" ( x :: xs ) -# 19838 "parsing/parser.ml" +# 19841 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19852,7 +19855,7 @@ module Tables = struct let _v : (Parsetree.signature_item list list) = # 211 "" ( [] ) -# 19856 "parsing/parser.ml" +# 19859 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19885,21 +19888,21 @@ module Tables = struct let _1 = let _startpos = _startpos__1_ in -# 1036 "parsing/parser.mly" +# 1039 "parsing/parser.mly" ( text_sig _startpos ) -# 19891 "parsing/parser.ml" +# 19894 "parsing/parser.ml" in -# 1787 "parsing/parser.mly" +# 1790 "parsing/parser.mly" ( _1 ) -# 19897 "parsing/parser.ml" +# 19900 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 19903 "parsing/parser.ml" +# 19906 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19932,21 +19935,21 @@ module Tables = struct let _1 = let _startpos = _startpos__1_ in -# 1034 "parsing/parser.mly" +# 1037 "parsing/parser.mly" ( text_sig _startpos @ [_1] ) -# 19938 "parsing/parser.ml" +# 19941 "parsing/parser.ml" in -# 1787 "parsing/parser.mly" +# 1790 "parsing/parser.mly" ( _1 ) -# 19944 "parsing/parser.ml" +# 19947 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 19950 "parsing/parser.ml" +# 19953 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19964,7 +19967,7 @@ module Tables = struct let _v : (Parsetree.structure_item list list) = # 211 "" ( [] ) -# 19968 "parsing/parser.ml" +# 19971 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19997,40 +20000,40 @@ module Tables = struct let _1 = let ys = let items = -# 1096 "parsing/parser.mly" +# 1099 "parsing/parser.mly" ( [] ) -# 20003 "parsing/parser.ml" +# 20006 "parsing/parser.ml" in -# 1525 "parsing/parser.mly" +# 1528 "parsing/parser.mly" ( items ) -# 20008 "parsing/parser.ml" +# 20011 "parsing/parser.ml" in let xs = let _startpos = _startpos__1_ in -# 1032 "parsing/parser.mly" +# 1035 "parsing/parser.mly" ( text_str _startpos ) -# 20016 "parsing/parser.ml" +# 20019 "parsing/parser.ml" in # 267 "" ( xs @ ys ) -# 20022 "parsing/parser.ml" +# 20025 "parsing/parser.ml" in -# 1541 "parsing/parser.mly" +# 1544 "parsing/parser.mly" ( _1 ) -# 20028 "parsing/parser.ml" +# 20031 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20034 "parsing/parser.ml" +# 20037 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20082,70 +20085,70 @@ module Tables = struct let _1 = let _1 = let attrs = -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 20088 "parsing/parser.ml" +# 20091 "parsing/parser.ml" in -# 1532 "parsing/parser.mly" +# 1535 "parsing/parser.mly" ( mkstrexp e attrs ) -# 20093 "parsing/parser.ml" +# 20096 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _startpos = _startpos__1_ in -# 1030 "parsing/parser.mly" +# 1033 "parsing/parser.mly" ( text_str _startpos @ [_1] ) -# 20101 "parsing/parser.ml" +# 20104 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1049 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mark_rhs_docs _startpos _endpos; _1 ) -# 20111 "parsing/parser.ml" +# 20114 "parsing/parser.ml" in -# 1098 "parsing/parser.mly" +# 1101 "parsing/parser.mly" ( x ) -# 20117 "parsing/parser.ml" +# 20120 "parsing/parser.ml" in -# 1525 "parsing/parser.mly" +# 1528 "parsing/parser.mly" ( items ) -# 20123 "parsing/parser.ml" +# 20126 "parsing/parser.ml" in let xs = let _startpos = _startpos__1_ in -# 1032 "parsing/parser.mly" +# 1035 "parsing/parser.mly" ( text_str _startpos ) -# 20131 "parsing/parser.ml" +# 20134 "parsing/parser.ml" in # 267 "" ( xs @ ys ) -# 20137 "parsing/parser.ml" +# 20140 "parsing/parser.ml" in -# 1541 "parsing/parser.mly" +# 1544 "parsing/parser.mly" ( _1 ) -# 20143 "parsing/parser.ml" +# 20146 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20149 "parsing/parser.ml" +# 20152 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20178,21 +20181,21 @@ module Tables = struct let _1 = let _startpos = _startpos__1_ in -# 1030 "parsing/parser.mly" +# 1033 "parsing/parser.mly" ( text_str _startpos @ [_1] ) -# 20184 "parsing/parser.ml" +# 20187 "parsing/parser.ml" in -# 1541 "parsing/parser.mly" +# 1544 "parsing/parser.mly" ( _1 ) -# 20190 "parsing/parser.ml" +# 20193 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20196 "parsing/parser.ml" +# 20199 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20210,7 +20213,7 @@ module Tables = struct let _v : (Parsetree.class_type_field list list) = # 211 "" ( [] ) -# 20214 "parsing/parser.ml" +# 20217 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20242,15 +20245,15 @@ module Tables = struct let _v : (Parsetree.class_type_field list list) = let x = let _startpos = _startpos__1_ in -# 1044 "parsing/parser.mly" +# 1047 "parsing/parser.mly" ( text_csig _startpos @ [_1] ) -# 20248 "parsing/parser.ml" +# 20251 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20254 "parsing/parser.ml" +# 20257 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20268,7 +20271,7 @@ module Tables = struct let _v : (Parsetree.class_field list list) = # 211 "" ( [] ) -# 20272 "parsing/parser.ml" +# 20275 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20300,15 +20303,15 @@ module Tables = struct let _v : (Parsetree.class_field list list) = let x = let _startpos = _startpos__1_ in -# 1042 "parsing/parser.mly" +# 1045 "parsing/parser.mly" ( text_cstr _startpos @ [_1] ) -# 20306 "parsing/parser.ml" +# 20309 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20312 "parsing/parser.ml" +# 20315 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20326,7 +20329,7 @@ module Tables = struct let _v : (Parsetree.structure_item list list) = # 211 "" ( [] ) -# 20330 "parsing/parser.ml" +# 20333 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20358,15 +20361,15 @@ module Tables = struct let _v : (Parsetree.structure_item list list) = let x = let _startpos = _startpos__1_ in -# 1030 "parsing/parser.mly" +# 1033 "parsing/parser.mly" ( text_str _startpos @ [_1] ) -# 20364 "parsing/parser.ml" +# 20367 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20370 "parsing/parser.ml" +# 20373 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20384,7 +20387,7 @@ module Tables = struct let _v : (Parsetree.toplevel_phrase list list) = # 211 "" ( [] ) -# 20388 "parsing/parser.ml" +# 20391 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20417,32 +20420,32 @@ module Tables = struct let _1 = let x = let _1 = -# 1096 "parsing/parser.mly" +# 1099 "parsing/parser.mly" ( [] ) -# 20423 "parsing/parser.ml" +# 20426 "parsing/parser.ml" in -# 1328 "parsing/parser.mly" +# 1331 "parsing/parser.mly" ( _1 ) -# 20428 "parsing/parser.ml" +# 20431 "parsing/parser.ml" in # 183 "" ( x ) -# 20434 "parsing/parser.ml" +# 20437 "parsing/parser.ml" in -# 1340 "parsing/parser.mly" +# 1343 "parsing/parser.mly" ( _1 ) -# 20440 "parsing/parser.ml" +# 20443 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20446 "parsing/parser.ml" +# 20449 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20494,58 +20497,58 @@ module Tables = struct let _1 = let _1 = let attrs = -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 20500 "parsing/parser.ml" +# 20503 "parsing/parser.ml" in -# 1532 "parsing/parser.mly" +# 1535 "parsing/parser.mly" ( mkstrexp e attrs ) -# 20505 "parsing/parser.ml" +# 20508 "parsing/parser.ml" in -# 1040 "parsing/parser.mly" +# 1043 "parsing/parser.mly" ( Ptop_def [_1] ) -# 20511 "parsing/parser.ml" +# 20514 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _startpos = _startpos__1_ in -# 1038 "parsing/parser.mly" +# 1041 "parsing/parser.mly" ( text_def _startpos @ [_1] ) -# 20519 "parsing/parser.ml" +# 20522 "parsing/parser.ml" in -# 1098 "parsing/parser.mly" +# 1101 "parsing/parser.mly" ( x ) -# 20525 "parsing/parser.ml" +# 20528 "parsing/parser.ml" in -# 1328 "parsing/parser.mly" +# 1331 "parsing/parser.mly" ( _1 ) -# 20531 "parsing/parser.ml" +# 20534 "parsing/parser.ml" in # 183 "" ( x ) -# 20537 "parsing/parser.ml" +# 20540 "parsing/parser.ml" in -# 1340 "parsing/parser.mly" +# 1343 "parsing/parser.mly" ( _1 ) -# 20543 "parsing/parser.ml" +# 20546 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20549 "parsing/parser.ml" +# 20552 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20577,27 +20580,27 @@ module Tables = struct let _v : (Parsetree.toplevel_phrase list list) = let x = let _1 = let _1 = -# 1040 "parsing/parser.mly" +# 1043 "parsing/parser.mly" ( Ptop_def [_1] ) -# 20583 "parsing/parser.ml" +# 20586 "parsing/parser.ml" in let _startpos = _startpos__1_ in -# 1038 "parsing/parser.mly" +# 1041 "parsing/parser.mly" ( text_def _startpos @ [_1] ) -# 20589 "parsing/parser.ml" +# 20592 "parsing/parser.ml" in -# 1340 "parsing/parser.mly" +# 1343 "parsing/parser.mly" ( _1 ) -# 20595 "parsing/parser.ml" +# 20598 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20601 "parsing/parser.ml" +# 20604 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20632,29 +20635,29 @@ module Tables = struct let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1049 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mark_rhs_docs _startpos _endpos; _1 ) -# 20639 "parsing/parser.ml" +# 20642 "parsing/parser.ml" in let _startpos = _startpos__1_ in -# 1038 "parsing/parser.mly" +# 1041 "parsing/parser.mly" ( text_def _startpos @ [_1] ) -# 20646 "parsing/parser.ml" +# 20649 "parsing/parser.ml" in -# 1340 "parsing/parser.mly" +# 1343 "parsing/parser.mly" ( _1 ) -# 20652 "parsing/parser.ml" +# 20655 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20658 "parsing/parser.ml" +# 20661 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20693,7 +20696,7 @@ module Tables = struct let _v : ((Longident.t Asttypes.loc * Parsetree.pattern) list * unit option) = let _2 = # 124 "" ( None ) -# 20697 "parsing/parser.ml" +# 20700 "parsing/parser.ml" in let x = let label = @@ -20701,9 +20704,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 20707 "parsing/parser.ml" +# 20710 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in @@ -20711,7 +20714,7 @@ module Tables = struct let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in -# 3150 "parsing/parser.mly" +# 3153 "parsing/parser.mly" ( let constraint_loc, label, pat = match opat with | None -> @@ -20725,13 +20728,13 @@ module Tables = struct in label, mkpat_opt_constraint ~loc:constraint_loc pat octy ) -# 20729 "parsing/parser.ml" +# 20732 "parsing/parser.ml" in -# 1265 "parsing/parser.mly" +# 1268 "parsing/parser.mly" ( [x], None ) -# 20735 "parsing/parser.ml" +# 20738 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20777,7 +20780,7 @@ module Tables = struct let _v : ((Longident.t Asttypes.loc * Parsetree.pattern) list * unit option) = let _2 = # 126 "" ( Some x ) -# 20781 "parsing/parser.ml" +# 20784 "parsing/parser.ml" in let x = let label = @@ -20785,9 +20788,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 20791 "parsing/parser.ml" +# 20794 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in @@ -20795,7 +20798,7 @@ module Tables = struct let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in -# 3150 "parsing/parser.mly" +# 3153 "parsing/parser.mly" ( let constraint_loc, label, pat = match opat with | None -> @@ -20809,13 +20812,13 @@ module Tables = struct in label, mkpat_opt_constraint ~loc:constraint_loc pat octy ) -# 20813 "parsing/parser.ml" +# 20816 "parsing/parser.ml" in -# 1265 "parsing/parser.mly" +# 1268 "parsing/parser.mly" ( [x], None ) -# 20819 "parsing/parser.ml" +# 20822 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20878,9 +20881,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 20884 "parsing/parser.ml" +# 20887 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in @@ -20888,7 +20891,7 @@ module Tables = struct let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in -# 3150 "parsing/parser.mly" +# 3153 "parsing/parser.mly" ( let constraint_loc, label, pat = match opat with | None -> @@ -20902,13 +20905,13 @@ module Tables = struct in label, mkpat_opt_constraint ~loc:constraint_loc pat octy ) -# 20906 "parsing/parser.ml" +# 20909 "parsing/parser.ml" in -# 1267 "parsing/parser.mly" +# 1270 "parsing/parser.mly" ( [x], Some y ) -# 20912 "parsing/parser.ml" +# 20915 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20964,9 +20967,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 20970 "parsing/parser.ml" +# 20973 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in @@ -20974,7 +20977,7 @@ module Tables = struct let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in -# 3150 "parsing/parser.mly" +# 3153 "parsing/parser.mly" ( let constraint_loc, label, pat = match opat with | None -> @@ -20988,14 +20991,14 @@ module Tables = struct in label, mkpat_opt_constraint ~loc:constraint_loc pat octy ) -# 20992 "parsing/parser.ml" +# 20995 "parsing/parser.ml" in -# 1271 "parsing/parser.mly" +# 1274 "parsing/parser.mly" ( let xs, y = tail in x :: xs, y ) -# 20999 "parsing/parser.ml" +# 21002 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21018,9 +21021,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.expression) = -# 2883 "parsing/parser.mly" +# 2886 "parsing/parser.mly" ( _1 ) -# 21024 "parsing/parser.ml" +# 21027 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21060,9 +21063,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2885 "parsing/parser.mly" +# 2888 "parsing/parser.mly" ( wrap_exp_stack (mkexp_constraint ~loc:_sloc _3 _1) (make_loc _sloc) ) -# 21066 "parsing/parser.ml" +# 21069 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21092,9 +21095,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = -# 2889 "parsing/parser.mly" +# 2892 "parsing/parser.mly" ( _2 ) -# 21098 "parsing/parser.ml" +# 21101 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21127,9 +21130,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2891 "parsing/parser.mly" +# 2894 "parsing/parser.mly" ( let (l, o, p) = _1 in ghexp ~loc:_sloc (Pexp_fun(l, o, p, _2)) ) -# 21133 "parsing/parser.ml" +# 21136 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21180,17 +21183,17 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _3 = -# 2751 "parsing/parser.mly" +# 2754 "parsing/parser.mly" ( xs ) -# 21186 "parsing/parser.ml" +# 21189 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2893 "parsing/parser.mly" +# 2896 "parsing/parser.mly" ( mk_newtypes ~loc:_sloc _3 _5 ) -# 21194 "parsing/parser.ml" +# 21197 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21227,9 +21230,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.case) = -# 2901 "parsing/parser.mly" +# 2904 "parsing/parser.mly" ( Exp.case _1 _3 ) -# 21233 "parsing/parser.ml" +# 21236 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21280,9 +21283,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Parsetree.case) = -# 2903 "parsing/parser.mly" +# 2906 "parsing/parser.mly" ( Exp.case _1 ~guard:_3 _5 ) -# 21286 "parsing/parser.ml" +# 21289 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21320,9 +21323,9 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.case) = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2905 "parsing/parser.mly" +# 2908 "parsing/parser.mly" ( Exp.case _1 (Exp.unreachable ~loc:(make_loc _loc__3_) ()) ) -# 21326 "parsing/parser.ml" +# 21329 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21383,9 +21386,9 @@ module Tables = struct let _1_inlined1 : (Parsetree.core_type) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 21389 "parsing/parser.ml" +# 21392 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -21394,49 +21397,49 @@ module Tables = struct let _6 = let _1 = _1_inlined3 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 21400 "parsing/parser.ml" +# 21403 "parsing/parser.ml" in let _endpos__6_ = _endpos__1_inlined3_ in let _4 = let _1 = _1_inlined2 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 21409 "parsing/parser.ml" +# 21412 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _3 = let _1 = _1_inlined1 in -# 3604 "parsing/parser.mly" +# 3607 "parsing/parser.mly" ( _1 ) -# 21418 "parsing/parser.ml" +# 21421 "parsing/parser.ml" in let _1 = let _1 = -# 3864 "parsing/parser.mly" +# 3867 "parsing/parser.mly" ( _1 ) -# 21425 "parsing/parser.ml" +# 21428 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 21433 "parsing/parser.ml" +# 21436 "parsing/parser.ml" in let _endpos = _endpos__6_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3849 "parsing/parser.mly" +# 3852 "parsing/parser.mly" ( let info = match rhs_info _endpos__4_ with | Some _ as info_before_semi -> info_before_semi @@ -21444,13 +21447,13 @@ module Tables = struct in let attrs = add_info_attrs info (_4 @ _6) in Of.tag ~loc:(make_loc _sloc) ~attrs _1 _3 ) -# 21448 "parsing/parser.ml" +# 21451 "parsing/parser.ml" in -# 3830 "parsing/parser.mly" +# 3833 "parsing/parser.mly" ( let (f, c) = tail in (head :: f, c) ) -# 21454 "parsing/parser.ml" +# 21457 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21491,15 +21494,15 @@ module Tables = struct let _symbolstartpos = _startpos_ty_ in let _sloc = (_symbolstartpos, _endpos) in -# 3860 "parsing/parser.mly" +# 3863 "parsing/parser.mly" ( Of.inherit_ ~loc:(make_loc _sloc) ty ) -# 21497 "parsing/parser.ml" +# 21500 "parsing/parser.ml" in -# 3830 "parsing/parser.mly" +# 3833 "parsing/parser.mly" ( let (f, c) = tail in (head :: f, c) ) -# 21503 "parsing/parser.ml" +# 21506 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21553,9 +21556,9 @@ module Tables = struct let _1_inlined1 : (Parsetree.core_type) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 21559 "parsing/parser.ml" +# 21562 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -21564,49 +21567,49 @@ module Tables = struct let _6 = let _1 = _1_inlined3 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 21570 "parsing/parser.ml" +# 21573 "parsing/parser.ml" in let _endpos__6_ = _endpos__1_inlined3_ in let _4 = let _1 = _1_inlined2 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 21579 "parsing/parser.ml" +# 21582 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _3 = let _1 = _1_inlined1 in -# 3604 "parsing/parser.mly" +# 3607 "parsing/parser.mly" ( _1 ) -# 21588 "parsing/parser.ml" +# 21591 "parsing/parser.ml" in let _1 = let _1 = -# 3864 "parsing/parser.mly" +# 3867 "parsing/parser.mly" ( _1 ) -# 21595 "parsing/parser.ml" +# 21598 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 21603 "parsing/parser.ml" +# 21606 "parsing/parser.ml" in let _endpos = _endpos__6_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3849 "parsing/parser.mly" +# 3852 "parsing/parser.mly" ( let info = match rhs_info _endpos__4_ with | Some _ as info_before_semi -> info_before_semi @@ -21614,13 +21617,13 @@ module Tables = struct in let attrs = add_info_attrs info (_4 @ _6) in Of.tag ~loc:(make_loc _sloc) ~attrs _1 _3 ) -# 21618 "parsing/parser.ml" +# 21621 "parsing/parser.ml" in -# 3833 "parsing/parser.mly" +# 3836 "parsing/parser.mly" ( [head], Closed ) -# 21624 "parsing/parser.ml" +# 21627 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21654,15 +21657,15 @@ module Tables = struct let _symbolstartpos = _startpos_ty_ in let _sloc = (_symbolstartpos, _endpos) in -# 3860 "parsing/parser.mly" +# 3863 "parsing/parser.mly" ( Of.inherit_ ~loc:(make_loc _sloc) ty ) -# 21660 "parsing/parser.ml" +# 21663 "parsing/parser.ml" in -# 3833 "parsing/parser.mly" +# 3836 "parsing/parser.mly" ( [head], Closed ) -# 21666 "parsing/parser.ml" +# 21669 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21702,9 +21705,9 @@ module Tables = struct let _1_inlined1 : (Parsetree.core_type) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 21708 "parsing/parser.ml" +# 21711 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -21713,50 +21716,50 @@ module Tables = struct let _4 = let _1 = _1_inlined2 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 21719 "parsing/parser.ml" +# 21722 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _3 = let _1 = _1_inlined1 in -# 3604 "parsing/parser.mly" +# 3607 "parsing/parser.mly" ( _1 ) -# 21728 "parsing/parser.ml" +# 21731 "parsing/parser.ml" in let _1 = let _1 = -# 3864 "parsing/parser.mly" +# 3867 "parsing/parser.mly" ( _1 ) -# 21735 "parsing/parser.ml" +# 21738 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 21743 "parsing/parser.ml" +# 21746 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3842 "parsing/parser.mly" +# 3845 "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 ) -# 21754 "parsing/parser.ml" +# 21757 "parsing/parser.ml" in -# 3836 "parsing/parser.mly" +# 3839 "parsing/parser.mly" ( [head], Closed ) -# 21760 "parsing/parser.ml" +# 21763 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21783,15 +21786,15 @@ module Tables = struct let _symbolstartpos = _startpos_ty_ in let _sloc = (_symbolstartpos, _endpos) in -# 3860 "parsing/parser.mly" +# 3863 "parsing/parser.mly" ( Of.inherit_ ~loc:(make_loc _sloc) ty ) -# 21789 "parsing/parser.ml" +# 21792 "parsing/parser.ml" in -# 3836 "parsing/parser.mly" +# 3839 "parsing/parser.mly" ( [head], Closed ) -# 21795 "parsing/parser.ml" +# 21798 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21814,9 +21817,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.object_field list * Asttypes.closed_flag) = -# 3838 "parsing/parser.mly" +# 3841 "parsing/parser.mly" ( [], Open ) -# 21820 "parsing/parser.ml" +# 21823 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21861,9 +21864,9 @@ module Tables = struct let _1_inlined2 : (Parsetree.core_type) = Obj.magic _1_inlined2 in let _5 : unit = Obj.magic _5 in let _1_inlined1 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 21867 "parsing/parser.ml" +# 21870 "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 @@ -21875,41 +21878,41 @@ module Tables = struct Parsetree.attributes) = let ty = let _1 = _1_inlined2 in -# 3600 "parsing/parser.mly" +# 3603 "parsing/parser.mly" ( _1 ) -# 21881 "parsing/parser.ml" +# 21884 "parsing/parser.ml" in let label = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = -# 3864 "parsing/parser.mly" +# 3867 "parsing/parser.mly" ( _1 ) -# 21889 "parsing/parser.ml" +# 21892 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 21897 "parsing/parser.ml" +# 21900 "parsing/parser.ml" in let attrs = -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 21903 "parsing/parser.ml" +# 21906 "parsing/parser.ml" in let _1 = -# 4116 "parsing/parser.mly" +# 4119 "parsing/parser.mly" ( Fresh ) -# 21908 "parsing/parser.ml" +# 21911 "parsing/parser.ml" in -# 2125 "parsing/parser.mly" +# 2128 "parsing/parser.mly" ( (label, private_, Cfk_virtual ty), attrs ) -# 21913 "parsing/parser.ml" +# 21916 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21947,9 +21950,9 @@ module Tables = struct } = _menhir_stack in let _5 : (Parsetree.expression) = Obj.magic _5 in let _1_inlined1 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 21953 "parsing/parser.ml" +# 21956 "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 @@ -21961,36 +21964,36 @@ module Tables = struct Parsetree.attributes) = let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = -# 3864 "parsing/parser.mly" +# 3867 "parsing/parser.mly" ( _1 ) -# 21967 "parsing/parser.ml" +# 21970 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 21975 "parsing/parser.ml" +# 21978 "parsing/parser.ml" in let _2 = -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 21981 "parsing/parser.ml" +# 21984 "parsing/parser.ml" in let _1 = -# 4119 "parsing/parser.mly" +# 4122 "parsing/parser.mly" ( Fresh ) -# 21986 "parsing/parser.ml" +# 21989 "parsing/parser.ml" in -# 2127 "parsing/parser.mly" +# 2130 "parsing/parser.mly" ( let e = _5 in 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 ) -# 21994 "parsing/parser.ml" +# 21997 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22034,9 +22037,9 @@ module Tables = struct } = _menhir_stack in let _5 : (Parsetree.expression) = Obj.magic _5 in let _1_inlined2 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 22040 "parsing/parser.ml" +# 22043 "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 @@ -22049,39 +22052,39 @@ module Tables = struct Parsetree.attributes) = let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _1 = -# 3864 "parsing/parser.mly" +# 3867 "parsing/parser.mly" ( _1 ) -# 22055 "parsing/parser.ml" +# 22058 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 22063 "parsing/parser.ml" +# 22066 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 22071 "parsing/parser.ml" +# 22074 "parsing/parser.ml" in let _1 = -# 4120 "parsing/parser.mly" +# 4123 "parsing/parser.mly" ( Override ) -# 22077 "parsing/parser.ml" +# 22080 "parsing/parser.ml" in -# 2127 "parsing/parser.mly" +# 2130 "parsing/parser.mly" ( let e = _5 in 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 ) -# 22085 "parsing/parser.ml" +# 22088 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22140,9 +22143,9 @@ module Tables = struct let _1_inlined2 : (Parsetree.core_type) = Obj.magic _1_inlined2 in let _5 : unit = Obj.magic _5 in let _1_inlined1 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 22146 "parsing/parser.ml" +# 22149 "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 @@ -22154,45 +22157,45 @@ module Tables = struct Parsetree.attributes) = let _6 = let _1 = _1_inlined2 in -# 3600 "parsing/parser.mly" +# 3603 "parsing/parser.mly" ( _1 ) -# 22160 "parsing/parser.ml" +# 22163 "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 = -# 3864 "parsing/parser.mly" +# 3867 "parsing/parser.mly" ( _1 ) -# 22169 "parsing/parser.ml" +# 22172 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 22177 "parsing/parser.ml" +# 22180 "parsing/parser.ml" in let _2 = -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 22183 "parsing/parser.ml" +# 22186 "parsing/parser.ml" in let _1 = -# 4119 "parsing/parser.mly" +# 4122 "parsing/parser.mly" ( Fresh ) -# 22188 "parsing/parser.ml" +# 22191 "parsing/parser.ml" in -# 2133 "parsing/parser.mly" +# 2136 "parsing/parser.mly" ( let poly_exp = let loc = (_startpos__6_, _endpos__8_) in ghexp ~loc (Pexp_poly(_8, Some _6)) in (_4, _3, Cfk_concrete (_1, poly_exp)), _2 ) -# 22196 "parsing/parser.ml" +# 22199 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22257,9 +22260,9 @@ module Tables = struct let _1_inlined3 : (Parsetree.core_type) = Obj.magic _1_inlined3 in let _5 : unit = Obj.magic _5 in let _1_inlined2 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 22263 "parsing/parser.ml" +# 22266 "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 @@ -22272,48 +22275,48 @@ module Tables = struct Parsetree.attributes) = let _6 = let _1 = _1_inlined3 in -# 3600 "parsing/parser.mly" +# 3603 "parsing/parser.mly" ( _1 ) -# 22278 "parsing/parser.ml" +# 22281 "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 = -# 3864 "parsing/parser.mly" +# 3867 "parsing/parser.mly" ( _1 ) -# 22287 "parsing/parser.ml" +# 22290 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 22295 "parsing/parser.ml" +# 22298 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 22303 "parsing/parser.ml" +# 22306 "parsing/parser.ml" in let _1 = -# 4120 "parsing/parser.mly" +# 4123 "parsing/parser.mly" ( Override ) -# 22309 "parsing/parser.ml" +# 22312 "parsing/parser.ml" in -# 2133 "parsing/parser.mly" +# 2136 "parsing/parser.mly" ( let poly_exp = let loc = (_startpos__6_, _endpos__8_) in ghexp ~loc (Pexp_poly(_8, Some _6)) in (_4, _3, Cfk_concrete (_1, poly_exp)), _2 ) -# 22317 "parsing/parser.ml" +# 22320 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22393,9 +22396,9 @@ module Tables = struct let _6 : unit = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let _1_inlined1 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 22399 "parsing/parser.ml" +# 22402 "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 @@ -22405,38 +22408,38 @@ module Tables = struct let _v : ((Asttypes.label Asttypes.loc * Asttypes.private_flag * Parsetree.class_field_kind) * Parsetree.attributes) = let _7 = -# 2751 "parsing/parser.mly" +# 2754 "parsing/parser.mly" ( xs ) -# 22411 "parsing/parser.ml" +# 22414 "parsing/parser.ml" in let _startpos__7_ = _startpos_xs_ in let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = -# 3864 "parsing/parser.mly" +# 3867 "parsing/parser.mly" ( _1 ) -# 22419 "parsing/parser.ml" +# 22422 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 22427 "parsing/parser.ml" +# 22430 "parsing/parser.ml" in let _startpos__4_ = _startpos__1_inlined1_ in let _2 = -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 22434 "parsing/parser.ml" +# 22437 "parsing/parser.ml" in let (_endpos__2_, _startpos__2_) = (_endpos__1_, _startpos__1_) in let _1 = -# 4119 "parsing/parser.mly" +# 4122 "parsing/parser.mly" ( Fresh ) -# 22440 "parsing/parser.ml" +# 22443 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__0_, _endpos__0_) in let _endpos = _endpos__11_ in @@ -22452,7 +22455,7 @@ module Tables = struct _startpos__4_ in let _sloc = (_symbolstartpos, _endpos) in -# 2139 "parsing/parser.mly" +# 2142 "parsing/parser.mly" ( let poly_exp_loc = (_startpos__7_, _endpos__11_) in let poly_exp = let exp, poly = @@ -22463,7 +22466,7 @@ module Tables = struct ghexp ~loc:poly_exp_loc (Pexp_poly(exp, Some poly)) in (_4, _3, Cfk_concrete (_1, poly_exp)), _2 ) -# 22467 "parsing/parser.ml" +# 22470 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22549,9 +22552,9 @@ module Tables = struct let _6 : unit = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let _1_inlined2 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 22555 "parsing/parser.ml" +# 22558 "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 @@ -22562,41 +22565,41 @@ module Tables = struct let _v : ((Asttypes.label Asttypes.loc * Asttypes.private_flag * Parsetree.class_field_kind) * Parsetree.attributes) = let _7 = -# 2751 "parsing/parser.mly" +# 2754 "parsing/parser.mly" ( xs ) -# 22568 "parsing/parser.ml" +# 22571 "parsing/parser.ml" in let _startpos__7_ = _startpos_xs_ in let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _1 = -# 3864 "parsing/parser.mly" +# 3867 "parsing/parser.mly" ( _1 ) -# 22576 "parsing/parser.ml" +# 22579 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 22584 "parsing/parser.ml" +# 22587 "parsing/parser.ml" in let _startpos__4_ = _startpos__1_inlined2_ in let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 22593 "parsing/parser.ml" +# 22596 "parsing/parser.ml" in let (_endpos__2_, _startpos__2_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let _1 = -# 4120 "parsing/parser.mly" +# 4123 "parsing/parser.mly" ( Override ) -# 22600 "parsing/parser.ml" +# 22603 "parsing/parser.ml" in let _endpos = _endpos__11_ in let _symbolstartpos = if _startpos__1_ != _endpos__1_ then @@ -22611,7 +22614,7 @@ module Tables = struct _startpos__4_ in let _sloc = (_symbolstartpos, _endpos) in -# 2139 "parsing/parser.mly" +# 2142 "parsing/parser.mly" ( let poly_exp_loc = (_startpos__7_, _endpos__11_) in let poly_exp = let exp, poly = @@ -22622,7 +22625,7 @@ module Tables = struct ghexp ~loc:poly_exp_loc (Pexp_poly(exp, Some poly)) in (_4, _3, Cfk_concrete (_1, poly_exp)), _2 ) -# 22626 "parsing/parser.ml" +# 22629 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22641,17 +22644,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 22647 "parsing/parser.ml" +# 22650 "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) = -# 3961 "parsing/parser.mly" +# 3964 "parsing/parser.mly" ( Lident _1 ) -# 22655 "parsing/parser.ml" +# 22658 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22682,9 +22685,9 @@ module Tables = struct }; } = _menhir_stack in let _3 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 22688 "parsing/parser.ml" +# 22691 "parsing/parser.ml" ) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in @@ -22692,9 +22695,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = -# 3962 "parsing/parser.mly" +# 3965 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 22698 "parsing/parser.ml" +# 22701 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22713,17 +22716,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 893 "parsing/parser.mly" +# 896 "parsing/parser.mly" (string) -# 22719 "parsing/parser.ml" +# 22722 "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) = -# 3961 "parsing/parser.mly" +# 3964 "parsing/parser.mly" ( Lident _1 ) -# 22727 "parsing/parser.ml" +# 22730 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22754,9 +22757,9 @@ module Tables = struct }; } = _menhir_stack in let _3 : ( -# 893 "parsing/parser.mly" +# 896 "parsing/parser.mly" (string) -# 22760 "parsing/parser.ml" +# 22763 "parsing/parser.ml" ) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in @@ -22764,9 +22767,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = -# 3962 "parsing/parser.mly" +# 3965 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 22770 "parsing/parser.ml" +# 22773 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22789,14 +22792,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = let _1 = -# 3999 "parsing/parser.mly" +# 4002 "parsing/parser.mly" ( _1 ) -# 22795 "parsing/parser.ml" +# 22798 "parsing/parser.ml" in -# 3961 "parsing/parser.mly" +# 3964 "parsing/parser.mly" ( Lident _1 ) -# 22800 "parsing/parser.ml" +# 22803 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22834,20 +22837,20 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Longident.t) = let _1 = let _1 = -# 3941 "parsing/parser.mly" +# 3944 "parsing/parser.mly" ( "::" ) -# 22840 "parsing/parser.ml" +# 22843 "parsing/parser.ml" in -# 3999 "parsing/parser.mly" +# 4002 "parsing/parser.mly" ( _1 ) -# 22845 "parsing/parser.ml" +# 22848 "parsing/parser.ml" in -# 3961 "parsing/parser.mly" +# 3964 "parsing/parser.mly" ( Lident _1 ) -# 22851 "parsing/parser.ml" +# 22854 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22870,14 +22873,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = let _1 = -# 3999 "parsing/parser.mly" +# 4002 "parsing/parser.mly" ( _1 ) -# 22876 "parsing/parser.ml" +# 22879 "parsing/parser.ml" in -# 3961 "parsing/parser.mly" +# 3964 "parsing/parser.mly" ( Lident _1 ) -# 22881 "parsing/parser.ml" +# 22884 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22916,15 +22919,15 @@ module Tables = struct let _v : (Longident.t) = let _3 = let _1 = _1_inlined1 in -# 3999 "parsing/parser.mly" +# 4002 "parsing/parser.mly" ( _1 ) -# 22922 "parsing/parser.ml" +# 22925 "parsing/parser.ml" in -# 3962 "parsing/parser.mly" +# 3965 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 22928 "parsing/parser.ml" +# 22931 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22976,20 +22979,20 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Longident.t) = let _3 = let _1 = -# 3941 "parsing/parser.mly" +# 3944 "parsing/parser.mly" ( "::" ) -# 22982 "parsing/parser.ml" +# 22985 "parsing/parser.ml" in -# 3999 "parsing/parser.mly" +# 4002 "parsing/parser.mly" ( _1 ) -# 22987 "parsing/parser.ml" +# 22990 "parsing/parser.ml" in -# 3962 "parsing/parser.mly" +# 3965 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 22993 "parsing/parser.ml" +# 22996 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23028,15 +23031,15 @@ module Tables = struct let _v : (Longident.t) = let _3 = let _1 = _1_inlined1 in -# 3999 "parsing/parser.mly" +# 4002 "parsing/parser.mly" ( _1 ) -# 23034 "parsing/parser.ml" +# 23037 "parsing/parser.ml" in -# 3962 "parsing/parser.mly" +# 3965 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 23040 "parsing/parser.ml" +# 23043 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23059,9 +23062,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 3961 "parsing/parser.mly" +# 3964 "parsing/parser.mly" ( Lident _1 ) -# 23065 "parsing/parser.ml" +# 23068 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23098,9 +23101,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = -# 3962 "parsing/parser.mly" +# 3965 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 23104 "parsing/parser.ml" +# 23107 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23119,17 +23122,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 23125 "parsing/parser.ml" +# 23128 "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) = -# 3961 "parsing/parser.mly" +# 3964 "parsing/parser.mly" ( Lident _1 ) -# 23133 "parsing/parser.ml" +# 23136 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23160,9 +23163,9 @@ module Tables = struct }; } = _menhir_stack in let _3 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 23166 "parsing/parser.ml" +# 23169 "parsing/parser.ml" ) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in @@ -23170,9 +23173,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = -# 3962 "parsing/parser.mly" +# 3965 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 23176 "parsing/parser.ml" +# 23179 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23191,17 +23194,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 893 "parsing/parser.mly" +# 896 "parsing/parser.mly" (string) -# 23197 "parsing/parser.ml" +# 23200 "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) = -# 3961 "parsing/parser.mly" +# 3964 "parsing/parser.mly" ( Lident _1 ) -# 23205 "parsing/parser.ml" +# 23208 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23232,9 +23235,9 @@ module Tables = struct }; } = _menhir_stack in let _3 : ( -# 893 "parsing/parser.mly" +# 896 "parsing/parser.mly" (string) -# 23238 "parsing/parser.ml" +# 23241 "parsing/parser.ml" ) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in @@ -23242,9 +23245,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = -# 3962 "parsing/parser.mly" +# 3965 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 23248 "parsing/parser.ml" +# 23251 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23267,9 +23270,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 3961 "parsing/parser.mly" +# 3964 "parsing/parser.mly" ( Lident _1 ) -# 23273 "parsing/parser.ml" +# 23276 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23306,9 +23309,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = -# 3962 "parsing/parser.mly" +# 3965 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 23312 "parsing/parser.ml" +# 23315 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23331,9 +23334,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 3977 "parsing/parser.mly" +# 3980 "parsing/parser.mly" ( _1 ) -# 23337 "parsing/parser.ml" +# 23340 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23380,9 +23383,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3979 "parsing/parser.mly" +# 3982 "parsing/parser.mly" ( lapply ~loc:_sloc _1 _3 ) -# 23386 "parsing/parser.ml" +# 23389 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23420,9 +23423,9 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Longident.t) = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3981 "parsing/parser.mly" +# 3984 "parsing/parser.mly" ( expecting _loc__3_ "module path" ) -# 23426 "parsing/parser.ml" +# 23429 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23445,9 +23448,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 3974 "parsing/parser.mly" +# 3977 "parsing/parser.mly" ( _1 ) -# 23451 "parsing/parser.ml" +# 23454 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23477,9 +23480,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos_me_ in let _v : (Parsetree.module_expr) = -# 1601 "parsing/parser.mly" +# 1604 "parsing/parser.mly" ( me ) -# 23483 "parsing/parser.ml" +# 23486 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23524,24 +23527,24 @@ module Tables = struct let _endpos = _endpos_me_ in let _v : (Parsetree.module_expr) = let _1 = let _1 = -# 1604 "parsing/parser.mly" +# 1607 "parsing/parser.mly" ( Pmod_constraint(me, mty) ) -# 23530 "parsing/parser.ml" +# 23533 "parsing/parser.ml" in let _endpos__1_ = _endpos_me_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1069 "parsing/parser.mly" +# 1072 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) -# 23539 "parsing/parser.ml" +# 23542 "parsing/parser.ml" in -# 1608 "parsing/parser.mly" +# 1611 "parsing/parser.mly" ( _1 ) -# 23545 "parsing/parser.ml" +# 23548 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23572,25 +23575,25 @@ module Tables = struct let _endpos = _endpos_body_ in let _v : (Parsetree.module_expr) = let _1 = let _1 = -# 1606 "parsing/parser.mly" +# 1609 "parsing/parser.mly" ( let (_, arg) = arg_and_pos in Pmod_functor(arg, body) ) -# 23579 "parsing/parser.ml" +# 23582 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_body_, _startpos_arg_and_pos_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1069 "parsing/parser.mly" +# 1072 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) -# 23588 "parsing/parser.ml" +# 23591 "parsing/parser.ml" in -# 1608 "parsing/parser.mly" +# 1611 "parsing/parser.mly" ( _1 ) -# 23594 "parsing/parser.ml" +# 23597 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23620,9 +23623,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos_mty_ in let _v : (Parsetree.module_type) = -# 1854 "parsing/parser.mly" +# 1857 "parsing/parser.mly" ( mty ) -# 23626 "parsing/parser.ml" +# 23629 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23653,25 +23656,25 @@ module Tables = struct let _endpos = _endpos_body_ in let _v : (Parsetree.module_type) = let _1 = let _1 = -# 1857 "parsing/parser.mly" +# 1860 "parsing/parser.mly" ( let (_, arg) = arg_and_pos in Pmty_functor(arg, body) ) -# 23660 "parsing/parser.ml" +# 23663 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_body_, _startpos_arg_and_pos_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1071 "parsing/parser.mly" +# 1074 "parsing/parser.mly" ( mkmty ~loc:_sloc _1 ) -# 23669 "parsing/parser.ml" +# 23672 "parsing/parser.ml" in -# 1860 "parsing/parser.mly" +# 1863 "parsing/parser.mly" ( _1 ) -# 23675 "parsing/parser.ml" +# 23678 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23717,18 +23720,18 @@ module Tables = struct let _v : (Parsetree.module_expr) = let attrs = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 23723 "parsing/parser.ml" +# 23726 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1440 "parsing/parser.mly" +# 1443 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_structure s) ) -# 23732 "parsing/parser.ml" +# 23735 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23774,17 +23777,17 @@ module Tables = struct let _v : (Parsetree.module_expr) = let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 23780 "parsing/parser.ml" +# 23783 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1442 "parsing/parser.mly" +# 1445 "parsing/parser.mly" ( unclosed "struct" _loc__1_ "end" _loc__4_ ) -# 23788 "parsing/parser.ml" +# 23791 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23837,30 +23840,30 @@ module Tables = struct let _v : (Parsetree.module_expr) = let args = let _1 = _1_inlined2 in -# 1406 "parsing/parser.mly" +# 1409 "parsing/parser.mly" ( _1 ) -# 23843 "parsing/parser.ml" +# 23846 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 23851 "parsing/parser.ml" +# 23854 "parsing/parser.ml" in let _endpos = _endpos_me_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1444 "parsing/parser.mly" +# 1447 "parsing/parser.mly" ( wrap_mod_attrs ~loc:_sloc attrs ( List.fold_left (fun acc (startpos, arg) -> mkmod ~loc:(startpos, _endpos) (Pmod_functor (arg, acc)) ) me args ) ) -# 23864 "parsing/parser.ml" +# 23867 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23883,9 +23886,9 @@ module Tables = struct let _startpos = _startpos_me_ in let _endpos = _endpos_me_ in let _v : (Parsetree.module_expr) = -# 1450 "parsing/parser.mly" +# 1453 "parsing/parser.mly" ( me ) -# 23889 "parsing/parser.ml" +# 23892 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23915,9 +23918,9 @@ module Tables = struct let _startpos = _startpos_me_ in let _endpos = _endpos_attr_ in let _v : (Parsetree.module_expr) = -# 1452 "parsing/parser.mly" +# 1455 "parsing/parser.mly" ( Mod.attr me attr ) -# 23921 "parsing/parser.ml" +# 23924 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23946,30 +23949,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 23952 "parsing/parser.ml" +# 23955 "parsing/parser.ml" in -# 1456 "parsing/parser.mly" +# 1459 "parsing/parser.mly" ( Pmod_ident x ) -# 23958 "parsing/parser.ml" +# 23961 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1069 "parsing/parser.mly" +# 1072 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) -# 23967 "parsing/parser.ml" +# 23970 "parsing/parser.ml" in -# 1468 "parsing/parser.mly" +# 1471 "parsing/parser.mly" ( _1 ) -# 23973 "parsing/parser.ml" +# 23976 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24000,24 +24003,24 @@ module Tables = struct let _endpos = _endpos_me2_ in let _v : (Parsetree.module_expr) = let _1 = let _1 = -# 1459 "parsing/parser.mly" +# 1462 "parsing/parser.mly" ( Pmod_apply(me1, me2) ) -# 24006 "parsing/parser.ml" +# 24009 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_me2_, _startpos_me1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1069 "parsing/parser.mly" +# 1072 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) -# 24015 "parsing/parser.ml" +# 24018 "parsing/parser.ml" in -# 1468 "parsing/parser.mly" +# 1471 "parsing/parser.mly" ( _1 ) -# 24021 "parsing/parser.ml" +# 24024 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24059,10 +24062,10 @@ module Tables = struct let _symbolstartpos = _startpos_me1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1462 "parsing/parser.mly" +# 1465 "parsing/parser.mly" ( (* TODO review mkmod location *) Pmod_apply(me1, mkmod ~loc:_sloc (Pmod_structure [])) ) -# 24066 "parsing/parser.ml" +# 24069 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__3_, _startpos_me1_) in @@ -24070,15 +24073,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1069 "parsing/parser.mly" +# 1072 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) -# 24076 "parsing/parser.ml" +# 24079 "parsing/parser.ml" in -# 1468 "parsing/parser.mly" +# 1471 "parsing/parser.mly" ( _1 ) -# 24082 "parsing/parser.ml" +# 24085 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24102,24 +24105,24 @@ module Tables = struct let _endpos = _endpos_ex_ in let _v : (Parsetree.module_expr) = let _1 = let _1 = -# 1466 "parsing/parser.mly" +# 1469 "parsing/parser.mly" ( Pmod_extension ex ) -# 24108 "parsing/parser.ml" +# 24111 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ex_, _startpos_ex_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1069 "parsing/parser.mly" +# 1072 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) -# 24117 "parsing/parser.ml" +# 24120 "parsing/parser.ml" in -# 1468 "parsing/parser.mly" +# 1471 "parsing/parser.mly" ( _1 ) -# 24123 "parsing/parser.ml" +# 24126 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24138,17 +24141,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let x : ( -# 893 "parsing/parser.mly" +# 896 "parsing/parser.mly" (string) -# 24144 "parsing/parser.ml" +# 24147 "parsing/parser.ml" ) = Obj.magic x in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : (string option) = -# 1423 "parsing/parser.mly" +# 1426 "parsing/parser.mly" ( Some x ) -# 24152 "parsing/parser.ml" +# 24155 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24171,9 +24174,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string option) = -# 1426 "parsing/parser.mly" +# 1429 "parsing/parser.mly" ( None ) -# 24177 "parsing/parser.ml" +# 24180 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24231,9 +24234,9 @@ module Tables = struct let _1_inlined3 : (Longident.t) = Obj.magic _1_inlined3 in let _5 : unit = Obj.magic _5 in let _1_inlined2 : ( -# 893 "parsing/parser.mly" +# 896 "parsing/parser.mly" (string) -# 24237 "parsing/parser.ml" +# 24240 "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 @@ -24244,9 +24247,9 @@ module Tables = struct let _v : (Parsetree.module_substitution * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined4 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 24250 "parsing/parser.ml" +# 24253 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in @@ -24256,9 +24259,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 24262 "parsing/parser.ml" +# 24265 "parsing/parser.ml" in let uid = @@ -24267,31 +24270,31 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 24273 "parsing/parser.ml" +# 24276 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 24281 "parsing/parser.ml" +# 24284 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1890 "parsing/parser.mly" +# 1893 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in let docs = symbol_docs _sloc in Ms.mk uid body ~attrs ~loc ~docs, ext ) -# 24295 "parsing/parser.ml" +# 24298 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24342,9 +24345,9 @@ module Tables = struct let _6 : unit = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let _1_inlined2 : ( -# 893 "parsing/parser.mly" +# 896 "parsing/parser.mly" (string) -# 24348 "parsing/parser.ml" +# 24351 "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 @@ -24358,24 +24361,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 24364 "parsing/parser.ml" +# 24367 "parsing/parser.ml" in let _3 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 24372 "parsing/parser.ml" +# 24375 "parsing/parser.ml" in let _loc__6_ = (_startpos__6_, _endpos__6_) in -# 1897 "parsing/parser.mly" +# 1900 "parsing/parser.mly" ( expecting _loc__6_ "module path" ) -# 24379 "parsing/parser.ml" +# 24382 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24421,18 +24424,18 @@ module Tables = struct let _v : (Parsetree.module_type) = let attrs = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 24427 "parsing/parser.ml" +# 24430 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1740 "parsing/parser.mly" +# 1743 "parsing/parser.mly" ( mkmty ~loc:_sloc ~attrs (Pmty_signature s) ) -# 24436 "parsing/parser.ml" +# 24439 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24478,17 +24481,17 @@ module Tables = struct let _v : (Parsetree.module_type) = let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 24484 "parsing/parser.ml" +# 24487 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1742 "parsing/parser.mly" +# 1745 "parsing/parser.mly" ( unclosed "sig" _loc__1_ "end" _loc__4_ ) -# 24492 "parsing/parser.ml" +# 24495 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24541,30 +24544,30 @@ module Tables = struct let _v : (Parsetree.module_type) = let args = let _1 = _1_inlined2 in -# 1406 "parsing/parser.mly" +# 1409 "parsing/parser.mly" ( _1 ) -# 24547 "parsing/parser.ml" +# 24550 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 24555 "parsing/parser.ml" +# 24558 "parsing/parser.ml" in let _endpos = _endpos_mty_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1746 "parsing/parser.mly" +# 1749 "parsing/parser.mly" ( wrap_mty_attrs ~loc:_sloc attrs ( List.fold_left (fun acc (startpos, arg) -> mkmty ~loc:(startpos, _endpos) (Pmty_functor (arg, acc)) ) mty args ) ) -# 24568 "parsing/parser.ml" +# 24571 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24617,18 +24620,18 @@ module Tables = struct let _v : (Parsetree.module_type) = let _4 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 24623 "parsing/parser.ml" +# 24626 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1752 "parsing/parser.mly" +# 1755 "parsing/parser.mly" ( mkmty ~loc:_sloc ~attrs:_4 (Pmty_typeof _5) ) -# 24632 "parsing/parser.ml" +# 24635 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24665,9 +24668,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.module_type) = -# 1754 "parsing/parser.mly" +# 1757 "parsing/parser.mly" ( _2 ) -# 24671 "parsing/parser.ml" +# 24674 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24706,9 +24709,9 @@ module Tables = struct let _v : (Parsetree.module_type) = let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1756 "parsing/parser.mly" +# 1759 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) -# 24712 "parsing/parser.ml" +# 24715 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24738,9 +24741,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.module_type) = -# 1758 "parsing/parser.mly" +# 1761 "parsing/parser.mly" ( Mty.attr _1 _2 ) -# 24744 "parsing/parser.ml" +# 24747 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24769,30 +24772,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 24775 "parsing/parser.ml" +# 24778 "parsing/parser.ml" in -# 1761 "parsing/parser.mly" +# 1764 "parsing/parser.mly" ( Pmty_ident _1 ) -# 24781 "parsing/parser.ml" +# 24784 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1071 "parsing/parser.mly" +# 1074 "parsing/parser.mly" ( mkmty ~loc:_sloc _1 ) -# 24790 "parsing/parser.ml" +# 24793 "parsing/parser.ml" in -# 1772 "parsing/parser.mly" +# 1775 "parsing/parser.mly" ( _1 ) -# 24796 "parsing/parser.ml" +# 24799 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24830,24 +24833,24 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.module_type) = let _1 = let _1 = -# 1764 "parsing/parser.mly" +# 1767 "parsing/parser.mly" ( Pmty_functor(Named (mknoloc None, _1), _3) ) -# 24836 "parsing/parser.ml" +# 24839 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1071 "parsing/parser.mly" +# 1074 "parsing/parser.mly" ( mkmty ~loc:_sloc _1 ) -# 24845 "parsing/parser.ml" +# 24848 "parsing/parser.ml" in -# 1772 "parsing/parser.mly" +# 1775 "parsing/parser.mly" ( _1 ) -# 24851 "parsing/parser.ml" +# 24854 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24889,18 +24892,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 24893 "parsing/parser.ml" +# 24896 "parsing/parser.ml" in -# 1160 "parsing/parser.mly" +# 1163 "parsing/parser.mly" ( xs ) -# 24898 "parsing/parser.ml" +# 24901 "parsing/parser.ml" in -# 1766 "parsing/parser.mly" +# 1769 "parsing/parser.mly" ( Pmty_with(_1, _3) ) -# 24904 "parsing/parser.ml" +# 24907 "parsing/parser.ml" in let _endpos__1_ = _endpos_xs_ in @@ -24908,15 +24911,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1071 "parsing/parser.mly" +# 1074 "parsing/parser.mly" ( mkmty ~loc:_sloc _1 ) -# 24914 "parsing/parser.ml" +# 24917 "parsing/parser.ml" in -# 1772 "parsing/parser.mly" +# 1775 "parsing/parser.mly" ( _1 ) -# 24920 "parsing/parser.ml" +# 24923 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24940,23 +24943,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.module_type) = let _1 = let _1 = -# 1770 "parsing/parser.mly" +# 1773 "parsing/parser.mly" ( Pmty_extension _1 ) -# 24946 "parsing/parser.ml" +# 24949 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1071 "parsing/parser.mly" +# 1074 "parsing/parser.mly" ( mkmty ~loc:_sloc _1 ) -# 24954 "parsing/parser.ml" +# 24957 "parsing/parser.ml" in -# 1772 "parsing/parser.mly" +# 1775 "parsing/parser.mly" ( _1 ) -# 24960 "parsing/parser.ml" +# 24963 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25023,9 +25026,9 @@ module Tables = struct let _v : (Parsetree.module_type_declaration * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined3 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 25029 "parsing/parser.ml" +# 25032 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -25035,31 +25038,31 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 25041 "parsing/parser.ml" +# 25044 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 25049 "parsing/parser.ml" +# 25052 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1686 "parsing/parser.mly" +# 1689 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in let docs = symbol_docs _sloc in Mtd.mk id ?typ ~attrs ~loc ~docs, ext ) -# 25063 "parsing/parser.ml" +# 25066 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25133,9 +25136,9 @@ module Tables = struct let _v : (Parsetree.module_type_declaration * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined3 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 25139 "parsing/parser.ml" +# 25142 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -25145,31 +25148,31 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 25151 "parsing/parser.ml" +# 25154 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 25159 "parsing/parser.ml" +# 25162 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1946 "parsing/parser.mly" +# 1949 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in let docs = symbol_docs _sloc in Mtd.mk id ~typ ~attrs ~loc ~docs, ext ) -# 25173 "parsing/parser.ml" +# 25176 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25192,9 +25195,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 3984 "parsing/parser.mly" +# 3987 "parsing/parser.mly" ( _1 ) -# 25198 "parsing/parser.ml" +# 25201 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25210,9 +25213,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.mutable_flag) = -# 4065 "parsing/parser.mly" +# 4068 "parsing/parser.mly" ( Immutable ) -# 25216 "parsing/parser.ml" +# 25219 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25235,9 +25238,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag) = -# 4066 "parsing/parser.mly" +# 4069 "parsing/parser.mly" ( Mutable ) -# 25241 "parsing/parser.ml" +# 25244 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25253,9 +25256,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.mutable_flag * Asttypes.global_flag) = -# 4069 "parsing/parser.mly" +# 4072 "parsing/parser.mly" ( Immutable, Nothing ) -# 25259 "parsing/parser.ml" +# 25262 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25278,9 +25281,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag * Asttypes.global_flag) = -# 4070 "parsing/parser.mly" +# 4073 "parsing/parser.mly" ( Mutable, Nothing ) -# 25284 "parsing/parser.ml" +# 25287 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25303,9 +25306,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag * Asttypes.global_flag) = -# 4071 "parsing/parser.mly" +# 4074 "parsing/parser.mly" ( Immutable, Global ) -# 25309 "parsing/parser.ml" +# 25312 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25328,9 +25331,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag * Asttypes.global_flag) = -# 4072 "parsing/parser.mly" +# 4075 "parsing/parser.mly" ( Immutable, Nonlocal ) -# 25334 "parsing/parser.ml" +# 25337 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25346,9 +25349,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = -# 4085 "parsing/parser.mly" +# 4088 "parsing/parser.mly" ( Immutable, Concrete ) -# 25352 "parsing/parser.ml" +# 25355 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25371,9 +25374,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = -# 4087 "parsing/parser.mly" +# 4090 "parsing/parser.mly" ( Mutable, Concrete ) -# 25377 "parsing/parser.ml" +# 25380 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25396,9 +25399,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = -# 4089 "parsing/parser.mly" +# 4092 "parsing/parser.mly" ( Immutable, Virtual ) -# 25402 "parsing/parser.ml" +# 25405 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25428,9 +25431,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = -# 4092 "parsing/parser.mly" +# 4095 "parsing/parser.mly" ( Mutable, Virtual ) -# 25434 "parsing/parser.ml" +# 25437 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25460,9 +25463,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = -# 4092 "parsing/parser.mly" +# 4095 "parsing/parser.mly" ( Mutable, Virtual ) -# 25466 "parsing/parser.ml" +# 25469 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25492,9 +25495,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.label) = -# 4036 "parsing/parser.mly" +# 4039 "parsing/parser.mly" ( _2 ) -# 25498 "parsing/parser.ml" +# 25501 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25513,9 +25516,9 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 25519 "parsing/parser.ml" +# 25522 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -25525,15 +25528,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 25531 "parsing/parser.ml" +# 25534 "parsing/parser.ml" in # 221 "" ( [ x ] ) -# 25537 "parsing/parser.ml" +# 25540 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25559,9 +25562,9 @@ module Tables = struct } = _menhir_stack in let xs : (string Asttypes.loc list) = Obj.magic xs in let _1 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 25565 "parsing/parser.ml" +# 25568 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -25571,15 +25574,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 25577 "parsing/parser.ml" +# 25580 "parsing/parser.ml" in # 223 "" ( x :: xs ) -# 25583 "parsing/parser.ml" +# 25586 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25598,22 +25601,22 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let s : ( -# 880 "parsing/parser.mly" +# 883 "parsing/parser.mly" (string * Location.t * string option) -# 25604 "parsing/parser.ml" +# 25607 "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 = -# 4032 "parsing/parser.mly" +# 4035 "parsing/parser.mly" ( let body, _, _ = s in body ) -# 25612 "parsing/parser.ml" +# 25615 "parsing/parser.ml" in # 221 "" ( [ x ] ) -# 25617 "parsing/parser.ml" +# 25620 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25639,22 +25642,22 @@ module Tables = struct } = _menhir_stack in let xs : (string list) = Obj.magic xs in let s : ( -# 880 "parsing/parser.mly" +# 883 "parsing/parser.mly" (string * Location.t * string option) -# 25645 "parsing/parser.ml" +# 25648 "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 = -# 4032 "parsing/parser.mly" +# 4035 "parsing/parser.mly" ( let body, _, _ = s in body ) -# 25653 "parsing/parser.ml" +# 25656 "parsing/parser.ml" in # 223 "" ( x :: xs ) -# 25658 "parsing/parser.ml" +# 25661 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25677,14 +25680,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 = -# 4061 "parsing/parser.mly" +# 4064 "parsing/parser.mly" ( Public ) -# 25683 "parsing/parser.ml" +# 25686 "parsing/parser.ml" in -# 3284 "parsing/parser.mly" +# 3287 "parsing/parser.mly" ( (Ptype_abstract, priv, Some ty) ) -# 25688 "parsing/parser.ml" +# 25691 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25714,14 +25717,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 = -# 4062 "parsing/parser.mly" +# 4065 "parsing/parser.mly" ( Private ) -# 25720 "parsing/parser.ml" +# 25723 "parsing/parser.ml" in -# 3284 "parsing/parser.mly" +# 3287 "parsing/parser.mly" ( (Ptype_abstract, priv, Some ty) ) -# 25725 "parsing/parser.ml" +# 25728 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25744,26 +25747,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 = -# 4061 "parsing/parser.mly" +# 4064 "parsing/parser.mly" ( Public ) -# 25750 "parsing/parser.ml" +# 25753 "parsing/parser.ml" in let oty = let _1 = # 124 "" ( None ) -# 25756 "parsing/parser.ml" +# 25759 "parsing/parser.ml" in -# 3300 "parsing/parser.mly" +# 3303 "parsing/parser.mly" ( _1 ) -# 25761 "parsing/parser.ml" +# 25764 "parsing/parser.ml" in -# 3288 "parsing/parser.mly" +# 3291 "parsing/parser.mly" ( (Ptype_variant cs, priv, oty) ) -# 25767 "parsing/parser.ml" +# 25770 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25793,26 +25796,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 = -# 4062 "parsing/parser.mly" +# 4065 "parsing/parser.mly" ( Private ) -# 25799 "parsing/parser.ml" +# 25802 "parsing/parser.ml" in let oty = let _1 = # 124 "" ( None ) -# 25805 "parsing/parser.ml" +# 25808 "parsing/parser.ml" in -# 3300 "parsing/parser.mly" +# 3303 "parsing/parser.mly" ( _1 ) -# 25810 "parsing/parser.ml" +# 25813 "parsing/parser.ml" in -# 3288 "parsing/parser.mly" +# 3291 "parsing/parser.mly" ( (Ptype_variant cs, priv, oty) ) -# 25816 "parsing/parser.ml" +# 25819 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25849,33 +25852,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 = -# 4061 "parsing/parser.mly" +# 4064 "parsing/parser.mly" ( Public ) -# 25855 "parsing/parser.ml" +# 25858 "parsing/parser.ml" in let oty = let _1 = let x = # 191 "" ( x ) -# 25862 "parsing/parser.ml" +# 25865 "parsing/parser.ml" in # 126 "" ( Some x ) -# 25867 "parsing/parser.ml" +# 25870 "parsing/parser.ml" in -# 3300 "parsing/parser.mly" +# 3303 "parsing/parser.mly" ( _1 ) -# 25873 "parsing/parser.ml" +# 25876 "parsing/parser.ml" in -# 3288 "parsing/parser.mly" +# 3291 "parsing/parser.mly" ( (Ptype_variant cs, priv, oty) ) -# 25879 "parsing/parser.ml" +# 25882 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25919,33 +25922,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 = -# 4062 "parsing/parser.mly" +# 4065 "parsing/parser.mly" ( Private ) -# 25925 "parsing/parser.ml" +# 25928 "parsing/parser.ml" in let oty = let _1 = let x = # 191 "" ( x ) -# 25932 "parsing/parser.ml" +# 25935 "parsing/parser.ml" in # 126 "" ( Some x ) -# 25937 "parsing/parser.ml" +# 25940 "parsing/parser.ml" in -# 3300 "parsing/parser.mly" +# 3303 "parsing/parser.mly" ( _1 ) -# 25943 "parsing/parser.ml" +# 25946 "parsing/parser.ml" in -# 3288 "parsing/parser.mly" +# 3291 "parsing/parser.mly" ( (Ptype_variant cs, priv, oty) ) -# 25949 "parsing/parser.ml" +# 25952 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25968,26 +25971,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 = -# 4061 "parsing/parser.mly" +# 4064 "parsing/parser.mly" ( Public ) -# 25974 "parsing/parser.ml" +# 25977 "parsing/parser.ml" in let oty = let _1 = # 124 "" ( None ) -# 25980 "parsing/parser.ml" +# 25983 "parsing/parser.ml" in -# 3300 "parsing/parser.mly" +# 3303 "parsing/parser.mly" ( _1 ) -# 25985 "parsing/parser.ml" +# 25988 "parsing/parser.ml" in -# 3292 "parsing/parser.mly" +# 3295 "parsing/parser.mly" ( (Ptype_open, priv, oty) ) -# 25991 "parsing/parser.ml" +# 25994 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26017,26 +26020,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 = -# 4062 "parsing/parser.mly" +# 4065 "parsing/parser.mly" ( Private ) -# 26023 "parsing/parser.ml" +# 26026 "parsing/parser.ml" in let oty = let _1 = # 124 "" ( None ) -# 26029 "parsing/parser.ml" +# 26032 "parsing/parser.ml" in -# 3300 "parsing/parser.mly" +# 3303 "parsing/parser.mly" ( _1 ) -# 26034 "parsing/parser.ml" +# 26037 "parsing/parser.ml" in -# 3292 "parsing/parser.mly" +# 3295 "parsing/parser.mly" ( (Ptype_open, priv, oty) ) -# 26040 "parsing/parser.ml" +# 26043 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26073,33 +26076,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 = -# 4061 "parsing/parser.mly" +# 4064 "parsing/parser.mly" ( Public ) -# 26079 "parsing/parser.ml" +# 26082 "parsing/parser.ml" in let oty = let _1 = let x = # 191 "" ( x ) -# 26086 "parsing/parser.ml" +# 26089 "parsing/parser.ml" in # 126 "" ( Some x ) -# 26091 "parsing/parser.ml" +# 26094 "parsing/parser.ml" in -# 3300 "parsing/parser.mly" +# 3303 "parsing/parser.mly" ( _1 ) -# 26097 "parsing/parser.ml" +# 26100 "parsing/parser.ml" in -# 3292 "parsing/parser.mly" +# 3295 "parsing/parser.mly" ( (Ptype_open, priv, oty) ) -# 26103 "parsing/parser.ml" +# 26106 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26143,33 +26146,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 = -# 4062 "parsing/parser.mly" +# 4065 "parsing/parser.mly" ( Private ) -# 26149 "parsing/parser.ml" +# 26152 "parsing/parser.ml" in let oty = let _1 = let x = # 191 "" ( x ) -# 26156 "parsing/parser.ml" +# 26159 "parsing/parser.ml" in # 126 "" ( Some x ) -# 26161 "parsing/parser.ml" +# 26164 "parsing/parser.ml" in -# 3300 "parsing/parser.mly" +# 3303 "parsing/parser.mly" ( _1 ) -# 26167 "parsing/parser.ml" +# 26170 "parsing/parser.ml" in -# 3292 "parsing/parser.mly" +# 3295 "parsing/parser.mly" ( (Ptype_open, priv, oty) ) -# 26173 "parsing/parser.ml" +# 26176 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26206,26 +26209,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 = -# 4061 "parsing/parser.mly" +# 4064 "parsing/parser.mly" ( Public ) -# 26212 "parsing/parser.ml" +# 26215 "parsing/parser.ml" in let oty = let _1 = # 124 "" ( None ) -# 26218 "parsing/parser.ml" +# 26221 "parsing/parser.ml" in -# 3300 "parsing/parser.mly" +# 3303 "parsing/parser.mly" ( _1 ) -# 26223 "parsing/parser.ml" +# 26226 "parsing/parser.ml" in -# 3296 "parsing/parser.mly" +# 3299 "parsing/parser.mly" ( (Ptype_record ls, priv, oty) ) -# 26229 "parsing/parser.ml" +# 26232 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26269,26 +26272,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 = -# 4062 "parsing/parser.mly" +# 4065 "parsing/parser.mly" ( Private ) -# 26275 "parsing/parser.ml" +# 26278 "parsing/parser.ml" in let oty = let _1 = # 124 "" ( None ) -# 26281 "parsing/parser.ml" +# 26284 "parsing/parser.ml" in -# 3300 "parsing/parser.mly" +# 3303 "parsing/parser.mly" ( _1 ) -# 26286 "parsing/parser.ml" +# 26289 "parsing/parser.ml" in -# 3296 "parsing/parser.mly" +# 3299 "parsing/parser.mly" ( (Ptype_record ls, priv, oty) ) -# 26292 "parsing/parser.ml" +# 26295 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26339,33 +26342,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 = -# 4061 "parsing/parser.mly" +# 4064 "parsing/parser.mly" ( Public ) -# 26345 "parsing/parser.ml" +# 26348 "parsing/parser.ml" in let oty = let _1 = let x = # 191 "" ( x ) -# 26352 "parsing/parser.ml" +# 26355 "parsing/parser.ml" in # 126 "" ( Some x ) -# 26357 "parsing/parser.ml" +# 26360 "parsing/parser.ml" in -# 3300 "parsing/parser.mly" +# 3303 "parsing/parser.mly" ( _1 ) -# 26363 "parsing/parser.ml" +# 26366 "parsing/parser.ml" in -# 3296 "parsing/parser.mly" +# 3299 "parsing/parser.mly" ( (Ptype_record ls, priv, oty) ) -# 26369 "parsing/parser.ml" +# 26372 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26423,33 +26426,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 = -# 4062 "parsing/parser.mly" +# 4065 "parsing/parser.mly" ( Private ) -# 26429 "parsing/parser.ml" +# 26432 "parsing/parser.ml" in let oty = let _1 = let x = # 191 "" ( x ) -# 26436 "parsing/parser.ml" +# 26439 "parsing/parser.ml" in # 126 "" ( Some x ) -# 26441 "parsing/parser.ml" +# 26444 "parsing/parser.ml" in -# 3300 "parsing/parser.mly" +# 3303 "parsing/parser.mly" ( _1 ) -# 26447 "parsing/parser.ml" +# 26450 "parsing/parser.ml" in -# 3296 "parsing/parser.mly" +# 3299 "parsing/parser.mly" ( (Ptype_record ls, priv, oty) ) -# 26453 "parsing/parser.ml" +# 26456 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26502,37 +26505,37 @@ module Tables = struct let _v : (Parsetree.open_declaration * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined2 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 26508 "parsing/parser.ml" +# 26511 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined2_ in let attrs1 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 26517 "parsing/parser.ml" +# 26520 "parsing/parser.ml" in let override = -# 4119 "parsing/parser.mly" +# 4122 "parsing/parser.mly" ( Fresh ) -# 26523 "parsing/parser.ml" +# 26526 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1705 "parsing/parser.mly" +# 1708 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in let docs = symbol_docs _sloc in Opn.mk me ~override ~attrs ~loc ~docs, ext ) -# 26536 "parsing/parser.ml" +# 26539 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26592,37 +26595,37 @@ module Tables = struct let _v : (Parsetree.open_declaration * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined3 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 26598 "parsing/parser.ml" +# 26601 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let attrs1 = let _1 = _1_inlined2 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 26607 "parsing/parser.ml" +# 26610 "parsing/parser.ml" in let override = -# 4120 "parsing/parser.mly" +# 4123 "parsing/parser.mly" ( Override ) -# 26613 "parsing/parser.ml" +# 26616 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1705 "parsing/parser.mly" +# 1708 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in let docs = symbol_docs _sloc in Opn.mk me ~override ~attrs ~loc ~docs, ext ) -# 26626 "parsing/parser.ml" +# 26629 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26675,9 +26678,9 @@ module Tables = struct let _v : (Parsetree.open_description * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined3 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 26681 "parsing/parser.ml" +# 26684 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -26687,36 +26690,36 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 26693 "parsing/parser.ml" +# 26696 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 26701 "parsing/parser.ml" +# 26704 "parsing/parser.ml" in let override = -# 4119 "parsing/parser.mly" +# 4122 "parsing/parser.mly" ( Fresh ) -# 26707 "parsing/parser.ml" +# 26710 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1720 "parsing/parser.mly" +# 1723 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in let docs = symbol_docs _sloc in Opn.mk id ~override ~attrs ~loc ~docs, ext ) -# 26720 "parsing/parser.ml" +# 26723 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26776,9 +26779,9 @@ module Tables = struct let _v : (Parsetree.open_description * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined4 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 26782 "parsing/parser.ml" +# 26785 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in @@ -26788,36 +26791,36 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 26794 "parsing/parser.ml" +# 26797 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined2 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 26802 "parsing/parser.ml" +# 26805 "parsing/parser.ml" in let override = -# 4120 "parsing/parser.mly" +# 4123 "parsing/parser.mly" ( Override ) -# 26808 "parsing/parser.ml" +# 26811 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1720 "parsing/parser.mly" +# 1723 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in let docs = symbol_docs _sloc in Opn.mk id ~override ~attrs ~loc ~docs, ext ) -# 26821 "parsing/parser.ml" +# 26824 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26836,17 +26839,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 866 "parsing/parser.mly" +# 869 "parsing/parser.mly" (string) -# 26842 "parsing/parser.ml" +# 26845 "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) = -# 3900 "parsing/parser.mly" +# 3903 "parsing/parser.mly" ( _1 ) -# 26850 "parsing/parser.ml" +# 26853 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26865,17 +26868,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 821 "parsing/parser.mly" +# 824 "parsing/parser.mly" (string) -# 26871 "parsing/parser.ml" +# 26874 "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) = -# 3901 "parsing/parser.mly" +# 3904 "parsing/parser.mly" ( _1 ) -# 26879 "parsing/parser.ml" +# 26882 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26894,17 +26897,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 822 "parsing/parser.mly" +# 825 "parsing/parser.mly" (string) -# 26900 "parsing/parser.ml" +# 26903 "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) = -# 3902 "parsing/parser.mly" +# 3905 "parsing/parser.mly" ( _1 ) -# 26908 "parsing/parser.ml" +# 26911 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26944,17 +26947,17 @@ module Tables = struct let _3 : (string) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 820 "parsing/parser.mly" +# 823 "parsing/parser.mly" (string) -# 26950 "parsing/parser.ml" +# 26953 "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) = -# 3903 "parsing/parser.mly" +# 3906 "parsing/parser.mly" ( "."^ _1 ^"(" ^ _3 ^ ")" ) -# 26958 "parsing/parser.ml" +# 26961 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27001,17 +27004,17 @@ module Tables = struct let _3 : (string) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 820 "parsing/parser.mly" +# 823 "parsing/parser.mly" (string) -# 27007 "parsing/parser.ml" +# 27010 "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) = -# 3904 "parsing/parser.mly" +# 3907 "parsing/parser.mly" ( "."^ _1 ^ "(" ^ _3 ^ ")<-" ) -# 27015 "parsing/parser.ml" +# 27018 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27051,17 +27054,17 @@ module Tables = struct let _3 : (string) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 820 "parsing/parser.mly" +# 823 "parsing/parser.mly" (string) -# 27057 "parsing/parser.ml" +# 27060 "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) = -# 3905 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( "."^ _1 ^"[" ^ _3 ^ "]" ) -# 27065 "parsing/parser.ml" +# 27068 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27108,17 +27111,17 @@ module Tables = struct let _3 : (string) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 820 "parsing/parser.mly" +# 823 "parsing/parser.mly" (string) -# 27114 "parsing/parser.ml" +# 27117 "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) = -# 3906 "parsing/parser.mly" +# 3909 "parsing/parser.mly" ( "."^ _1 ^ "[" ^ _3 ^ "]<-" ) -# 27122 "parsing/parser.ml" +# 27125 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27158,17 +27161,17 @@ module Tables = struct let _3 : (string) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 820 "parsing/parser.mly" +# 823 "parsing/parser.mly" (string) -# 27164 "parsing/parser.ml" +# 27167 "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) = -# 3907 "parsing/parser.mly" +# 3910 "parsing/parser.mly" ( "."^ _1 ^"{" ^ _3 ^ "}" ) -# 27172 "parsing/parser.ml" +# 27175 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27215,17 +27218,17 @@ module Tables = struct let _3 : (string) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 820 "parsing/parser.mly" +# 823 "parsing/parser.mly" (string) -# 27221 "parsing/parser.ml" +# 27224 "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) = -# 3908 "parsing/parser.mly" +# 3911 "parsing/parser.mly" ( "."^ _1 ^ "{" ^ _3 ^ "}<-" ) -# 27229 "parsing/parser.ml" +# 27232 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27244,17 +27247,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 877 "parsing/parser.mly" +# 880 "parsing/parser.mly" (string) -# 27250 "parsing/parser.ml" +# 27253 "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) = -# 3909 "parsing/parser.mly" +# 3912 "parsing/parser.mly" ( _1 ) -# 27258 "parsing/parser.ml" +# 27261 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27277,9 +27280,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = -# 3910 "parsing/parser.mly" +# 3913 "parsing/parser.mly" ( "!" ) -# 27283 "parsing/parser.ml" +# 27286 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27298,22 +27301,22 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let op : ( -# 815 "parsing/parser.mly" +# 818 "parsing/parser.mly" (string) -# 27304 "parsing/parser.ml" +# 27307 "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 = -# 3914 "parsing/parser.mly" +# 3917 "parsing/parser.mly" ( op ) -# 27312 "parsing/parser.ml" +# 27315 "parsing/parser.ml" in -# 3911 "parsing/parser.mly" +# 3914 "parsing/parser.mly" ( _1 ) -# 27317 "parsing/parser.ml" +# 27320 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27332,22 +27335,22 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let op : ( -# 816 "parsing/parser.mly" +# 819 "parsing/parser.mly" (string) -# 27338 "parsing/parser.ml" +# 27341 "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 = -# 3915 "parsing/parser.mly" +# 3918 "parsing/parser.mly" ( op ) -# 27346 "parsing/parser.ml" +# 27349 "parsing/parser.ml" in -# 3911 "parsing/parser.mly" +# 3914 "parsing/parser.mly" ( _1 ) -# 27351 "parsing/parser.ml" +# 27354 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27366,22 +27369,22 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let op : ( -# 817 "parsing/parser.mly" +# 820 "parsing/parser.mly" (string) -# 27372 "parsing/parser.ml" +# 27375 "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 = -# 3916 "parsing/parser.mly" +# 3919 "parsing/parser.mly" ( op ) -# 27380 "parsing/parser.ml" +# 27383 "parsing/parser.ml" in -# 3911 "parsing/parser.mly" +# 3914 "parsing/parser.mly" ( _1 ) -# 27385 "parsing/parser.ml" +# 27388 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27400,22 +27403,22 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let op : ( -# 818 "parsing/parser.mly" +# 821 "parsing/parser.mly" (string) -# 27406 "parsing/parser.ml" +# 27409 "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 = -# 3917 "parsing/parser.mly" +# 3920 "parsing/parser.mly" ( op ) -# 27414 "parsing/parser.ml" +# 27417 "parsing/parser.ml" in -# 3911 "parsing/parser.mly" +# 3914 "parsing/parser.mly" ( _1 ) -# 27419 "parsing/parser.ml" +# 27422 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27434,22 +27437,22 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let op : ( -# 819 "parsing/parser.mly" +# 822 "parsing/parser.mly" (string) -# 27440 "parsing/parser.ml" +# 27443 "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 = -# 3918 "parsing/parser.mly" +# 3921 "parsing/parser.mly" ( op ) -# 27448 "parsing/parser.ml" +# 27451 "parsing/parser.ml" in -# 3911 "parsing/parser.mly" +# 3914 "parsing/parser.mly" ( _1 ) -# 27453 "parsing/parser.ml" +# 27456 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27472,14 +27475,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3919 "parsing/parser.mly" +# 3922 "parsing/parser.mly" ("+") -# 27478 "parsing/parser.ml" +# 27481 "parsing/parser.ml" in -# 3911 "parsing/parser.mly" +# 3914 "parsing/parser.mly" ( _1 ) -# 27483 "parsing/parser.ml" +# 27486 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27502,14 +27505,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3920 "parsing/parser.mly" +# 3923 "parsing/parser.mly" ("+.") -# 27508 "parsing/parser.ml" +# 27511 "parsing/parser.ml" in -# 3911 "parsing/parser.mly" +# 3914 "parsing/parser.mly" ( _1 ) -# 27513 "parsing/parser.ml" +# 27516 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27532,14 +27535,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3921 "parsing/parser.mly" +# 3924 "parsing/parser.mly" ("+=") -# 27538 "parsing/parser.ml" +# 27541 "parsing/parser.ml" in -# 3911 "parsing/parser.mly" +# 3914 "parsing/parser.mly" ( _1 ) -# 27543 "parsing/parser.ml" +# 27546 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27562,14 +27565,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3922 "parsing/parser.mly" +# 3925 "parsing/parser.mly" ("-") -# 27568 "parsing/parser.ml" +# 27571 "parsing/parser.ml" in -# 3911 "parsing/parser.mly" +# 3914 "parsing/parser.mly" ( _1 ) -# 27573 "parsing/parser.ml" +# 27576 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27592,14 +27595,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3923 "parsing/parser.mly" +# 3926 "parsing/parser.mly" ("-.") -# 27598 "parsing/parser.ml" +# 27601 "parsing/parser.ml" in -# 3911 "parsing/parser.mly" +# 3914 "parsing/parser.mly" ( _1 ) -# 27603 "parsing/parser.ml" +# 27606 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27622,14 +27625,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3924 "parsing/parser.mly" +# 3927 "parsing/parser.mly" ("*") -# 27628 "parsing/parser.ml" +# 27631 "parsing/parser.ml" in -# 3911 "parsing/parser.mly" +# 3914 "parsing/parser.mly" ( _1 ) -# 27633 "parsing/parser.ml" +# 27636 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27652,14 +27655,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3925 "parsing/parser.mly" +# 3928 "parsing/parser.mly" ("%") -# 27658 "parsing/parser.ml" +# 27661 "parsing/parser.ml" in -# 3911 "parsing/parser.mly" +# 3914 "parsing/parser.mly" ( _1 ) -# 27663 "parsing/parser.ml" +# 27666 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27682,14 +27685,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3926 "parsing/parser.mly" +# 3929 "parsing/parser.mly" ("=") -# 27688 "parsing/parser.ml" +# 27691 "parsing/parser.ml" in -# 3911 "parsing/parser.mly" +# 3914 "parsing/parser.mly" ( _1 ) -# 27693 "parsing/parser.ml" +# 27696 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27712,14 +27715,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3927 "parsing/parser.mly" +# 3930 "parsing/parser.mly" ("<") -# 27718 "parsing/parser.ml" +# 27721 "parsing/parser.ml" in -# 3911 "parsing/parser.mly" +# 3914 "parsing/parser.mly" ( _1 ) -# 27723 "parsing/parser.ml" +# 27726 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27742,14 +27745,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3928 "parsing/parser.mly" +# 3931 "parsing/parser.mly" (">") -# 27748 "parsing/parser.ml" +# 27751 "parsing/parser.ml" in -# 3911 "parsing/parser.mly" +# 3914 "parsing/parser.mly" ( _1 ) -# 27753 "parsing/parser.ml" +# 27756 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27772,14 +27775,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3929 "parsing/parser.mly" +# 3932 "parsing/parser.mly" ("or") -# 27778 "parsing/parser.ml" +# 27781 "parsing/parser.ml" in -# 3911 "parsing/parser.mly" +# 3914 "parsing/parser.mly" ( _1 ) -# 27783 "parsing/parser.ml" +# 27786 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27802,14 +27805,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3930 "parsing/parser.mly" +# 3933 "parsing/parser.mly" ("||") -# 27808 "parsing/parser.ml" +# 27811 "parsing/parser.ml" in -# 3911 "parsing/parser.mly" +# 3914 "parsing/parser.mly" ( _1 ) -# 27813 "parsing/parser.ml" +# 27816 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27832,14 +27835,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3931 "parsing/parser.mly" +# 3934 "parsing/parser.mly" ("&") -# 27838 "parsing/parser.ml" +# 27841 "parsing/parser.ml" in -# 3911 "parsing/parser.mly" +# 3914 "parsing/parser.mly" ( _1 ) -# 27843 "parsing/parser.ml" +# 27846 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27862,14 +27865,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3932 "parsing/parser.mly" +# 3935 "parsing/parser.mly" ("&&") -# 27868 "parsing/parser.ml" +# 27871 "parsing/parser.ml" in -# 3911 "parsing/parser.mly" +# 3914 "parsing/parser.mly" ( _1 ) -# 27873 "parsing/parser.ml" +# 27876 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27892,14 +27895,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3933 "parsing/parser.mly" +# 3936 "parsing/parser.mly" (":=") -# 27898 "parsing/parser.ml" +# 27901 "parsing/parser.ml" in -# 3911 "parsing/parser.mly" +# 3914 "parsing/parser.mly" ( _1 ) -# 27903 "parsing/parser.ml" +# 27906 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27922,9 +27925,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (bool) = -# 3815 "parsing/parser.mly" +# 3818 "parsing/parser.mly" ( true ) -# 27928 "parsing/parser.ml" +# 27931 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27940,9 +27943,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (bool) = -# 3816 "parsing/parser.mly" +# 3819 "parsing/parser.mly" ( false ) -# 27946 "parsing/parser.ml" +# 27949 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27960,7 +27963,7 @@ module Tables = struct let _v : (unit option) = # 114 "" ( None ) -# 27964 "parsing/parser.ml" +# 27967 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27985,7 +27988,7 @@ module Tables = struct let _v : (unit option) = # 116 "" ( Some x ) -# 27989 "parsing/parser.ml" +# 27992 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28003,7 +28006,7 @@ module Tables = struct let _v : (unit option) = # 114 "" ( None ) -# 28007 "parsing/parser.ml" +# 28010 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28028,7 +28031,7 @@ module Tables = struct let _v : (unit option) = # 116 "" ( Some x ) -# 28032 "parsing/parser.ml" +# 28035 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28046,7 +28049,7 @@ module Tables = struct let _v : (string Asttypes.loc option) = # 114 "" ( None ) -# 28050 "parsing/parser.ml" +# 28053 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28071,9 +28074,9 @@ module Tables = struct }; } = _menhir_stack in let _1_inlined1 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 28077 "parsing/parser.ml" +# 28080 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -28086,21 +28089,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 28092 "parsing/parser.ml" +# 28095 "parsing/parser.ml" in # 183 "" ( x ) -# 28098 "parsing/parser.ml" +# 28101 "parsing/parser.ml" in # 116 "" ( Some x ) -# 28104 "parsing/parser.ml" +# 28107 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28118,7 +28121,7 @@ module Tables = struct let _v : (Parsetree.core_type option) = # 114 "" ( None ) -# 28122 "parsing/parser.ml" +# 28125 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28150,12 +28153,12 @@ module Tables = struct let _v : (Parsetree.core_type option) = let x = # 183 "" ( x ) -# 28154 "parsing/parser.ml" +# 28157 "parsing/parser.ml" in # 116 "" ( Some x ) -# 28159 "parsing/parser.ml" +# 28162 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28173,7 +28176,7 @@ module Tables = struct let _v : (Parsetree.expression option) = # 114 "" ( None ) -# 28177 "parsing/parser.ml" +# 28180 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28205,12 +28208,12 @@ module Tables = struct let _v : (Parsetree.expression option) = let x = # 183 "" ( x ) -# 28209 "parsing/parser.ml" +# 28212 "parsing/parser.ml" in # 116 "" ( Some x ) -# 28214 "parsing/parser.ml" +# 28217 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28228,7 +28231,7 @@ module Tables = struct let _v : (Parsetree.module_type option) = # 114 "" ( None ) -# 28232 "parsing/parser.ml" +# 28235 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28260,12 +28263,12 @@ module Tables = struct let _v : (Parsetree.module_type option) = let x = # 183 "" ( x ) -# 28264 "parsing/parser.ml" +# 28267 "parsing/parser.ml" in # 116 "" ( Some x ) -# 28269 "parsing/parser.ml" +# 28272 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28283,7 +28286,7 @@ module Tables = struct let _v : (Parsetree.pattern option) = # 114 "" ( None ) -# 28287 "parsing/parser.ml" +# 28290 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28315,12 +28318,12 @@ module Tables = struct let _v : (Parsetree.pattern option) = let x = # 183 "" ( x ) -# 28319 "parsing/parser.ml" +# 28322 "parsing/parser.ml" in # 116 "" ( Some x ) -# 28324 "parsing/parser.ml" +# 28327 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28338,7 +28341,7 @@ module Tables = struct let _v : (Parsetree.expression option) = # 114 "" ( None ) -# 28342 "parsing/parser.ml" +# 28345 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28370,12 +28373,12 @@ module Tables = struct let _v : (Parsetree.expression option) = let x = # 183 "" ( x ) -# 28374 "parsing/parser.ml" +# 28377 "parsing/parser.ml" in # 116 "" ( Some x ) -# 28379 "parsing/parser.ml" +# 28382 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28393,7 +28396,7 @@ module Tables = struct let _v : ((Parsetree.core_type option * Parsetree.core_type option) option) = # 114 "" ( None ) -# 28397 "parsing/parser.ml" +# 28400 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28418,7 +28421,7 @@ module Tables = struct let _v : ((Parsetree.core_type option * Parsetree.core_type option) option) = # 116 "" ( Some x ) -# 28422 "parsing/parser.ml" +# 28425 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28437,17 +28440,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 859 "parsing/parser.mly" +# 862 "parsing/parser.mly" (string) -# 28443 "parsing/parser.ml" +# 28446 "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) = -# 4131 "parsing/parser.mly" +# 4134 "parsing/parser.mly" ( _1 ) -# 28451 "parsing/parser.ml" +# 28454 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28479,18 +28482,18 @@ module Tables = struct } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 28485 "parsing/parser.ml" +# 28488 "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) = -# 4132 "parsing/parser.mly" +# 4135 "parsing/parser.mly" ( _2 ) -# 28494 "parsing/parser.ml" +# 28497 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28544,9 +28547,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1477 "parsing/parser.mly" +# 1480 "parsing/parser.mly" ( mkmod ~loc:_sloc (Pmod_constraint(me, mty)) ) -# 28550 "parsing/parser.ml" +# 28553 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28599,9 +28602,9 @@ module Tables = struct let _v : (Parsetree.module_expr) = let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1479 "parsing/parser.mly" +# 1482 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__5_ ) -# 28605 "parsing/parser.ml" +# 28608 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28638,9 +28641,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.module_expr) = -# 1482 "parsing/parser.mly" +# 1485 "parsing/parser.mly" ( me (* TODO consider reloc *) ) -# 28644 "parsing/parser.ml" +# 28647 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28679,9 +28682,9 @@ module Tables = struct let _v : (Parsetree.module_expr) = let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1484 "parsing/parser.mly" +# 1487 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) -# 28685 "parsing/parser.ml" +# 28688 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28732,25 +28735,25 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Parsetree.module_expr) = let e = -# 1501 "parsing/parser.mly" +# 1504 "parsing/parser.mly" ( e ) -# 28738 "parsing/parser.ml" +# 28741 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 28745 "parsing/parser.ml" +# 28748 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1488 "parsing/parser.mly" +# 1491 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) -# 28754 "parsing/parser.ml" +# 28757 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28821,11 +28824,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3790 "parsing/parser.mly" +# 3793 "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 ) -# 28829 "parsing/parser.ml" +# 28832 "parsing/parser.ml" in let _endpos_ty_ = _endpos__1_ in @@ -28833,26 +28836,26 @@ module Tables = struct let _startpos = _startpos_e_ in let _loc = (_startpos, _endpos) in -# 1503 "parsing/parser.mly" +# 1506 "parsing/parser.mly" ( ghexp ~loc:_loc (Pexp_constraint (e, ty)) ) -# 28839 "parsing/parser.ml" +# 28842 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 28847 "parsing/parser.ml" +# 28850 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1488 "parsing/parser.mly" +# 1491 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) -# 28856 "parsing/parser.ml" +# 28859 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28938,11 +28941,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3790 "parsing/parser.mly" +# 3793 "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 ) -# 28946 "parsing/parser.ml" +# 28949 "parsing/parser.ml" in let _endpos_ty2_ = _endpos__1_inlined1_ in @@ -28951,37 +28954,37 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3790 "parsing/parser.mly" +# 3793 "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 ) -# 28959 "parsing/parser.ml" +# 28962 "parsing/parser.ml" in let _endpos = _endpos_ty2_ in let _startpos = _startpos_e_ in let _loc = (_startpos, _endpos) in -# 1505 "parsing/parser.mly" +# 1508 "parsing/parser.mly" ( ghexp ~loc:_loc (Pexp_coerce (e, Some ty1, ty2)) ) -# 28968 "parsing/parser.ml" +# 28971 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 28976 "parsing/parser.ml" +# 28979 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1488 "parsing/parser.mly" +# 1491 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) -# 28985 "parsing/parser.ml" +# 28988 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29052,11 +29055,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3790 "parsing/parser.mly" +# 3793 "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 ) -# 29060 "parsing/parser.ml" +# 29063 "parsing/parser.ml" in let _endpos_ty2_ = _endpos__1_ in @@ -29064,26 +29067,26 @@ module Tables = struct let _startpos = _startpos_e_ in let _loc = (_startpos, _endpos) in -# 1507 "parsing/parser.mly" +# 1510 "parsing/parser.mly" ( ghexp ~loc:_loc (Pexp_coerce (e, None, ty2)) ) -# 29070 "parsing/parser.ml" +# 29073 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 29078 "parsing/parser.ml" +# 29081 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1488 "parsing/parser.mly" +# 1491 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) -# 29087 "parsing/parser.ml" +# 29090 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29143,17 +29146,17 @@ module Tables = struct let _v : (Parsetree.module_expr) = let _3 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 29149 "parsing/parser.ml" +# 29152 "parsing/parser.ml" in let _loc__6_ = (_startpos__6_, _endpos__6_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1490 "parsing/parser.mly" +# 1493 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__6_ ) -# 29157 "parsing/parser.ml" +# 29160 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29213,17 +29216,17 @@ module Tables = struct let _v : (Parsetree.module_expr) = let _3 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 29219 "parsing/parser.ml" +# 29222 "parsing/parser.ml" in let _loc__6_ = (_startpos__6_, _endpos__6_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1492 "parsing/parser.mly" +# 1495 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__6_ ) -# 29227 "parsing/parser.ml" +# 29230 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29276,17 +29279,17 @@ module Tables = struct let _v : (Parsetree.module_expr) = let _3 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 29282 "parsing/parser.ml" +# 29285 "parsing/parser.ml" in let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1494 "parsing/parser.mly" +# 1497 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__5_ ) -# 29290 "parsing/parser.ml" +# 29293 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29309,9 +29312,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) = -# 3328 "parsing/parser.mly" +# 3331 "parsing/parser.mly" ( _1 ) -# 29315 "parsing/parser.ml" +# 29318 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29355,9 +29358,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) = -# 3330 "parsing/parser.mly" +# 3333 "parsing/parser.mly" ( {_2 with ptyp_attributes = [_4]}, _1 ) -# 29361 "parsing/parser.ml" +# 29364 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29387,9 +29390,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Longident.t) = -# 1396 "parsing/parser.mly" +# 1399 "parsing/parser.mly" ( _1 ) -# 29393 "parsing/parser.ml" +# 29396 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29419,9 +29422,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Longident.t) = -# 1381 "parsing/parser.mly" +# 1384 "parsing/parser.mly" ( _1 ) -# 29425 "parsing/parser.ml" +# 29428 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29451,9 +29454,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.core_type) = -# 1356 "parsing/parser.mly" +# 1359 "parsing/parser.mly" ( _1 ) -# 29457 "parsing/parser.ml" +# 29460 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29483,9 +29486,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = -# 1361 "parsing/parser.mly" +# 1364 "parsing/parser.mly" ( _1 ) -# 29489 "parsing/parser.ml" +# 29492 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29515,9 +29518,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Longident.t) = -# 1386 "parsing/parser.mly" +# 1389 "parsing/parser.mly" ( _1 ) -# 29521 "parsing/parser.ml" +# 29524 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29547,9 +29550,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Longident.t) = -# 1391 "parsing/parser.mly" +# 1394 "parsing/parser.mly" ( _1 ) -# 29553 "parsing/parser.ml" +# 29556 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29579,9 +29582,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.module_expr) = -# 1351 "parsing/parser.mly" +# 1354 "parsing/parser.mly" ( _1 ) -# 29585 "parsing/parser.ml" +# 29588 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29611,9 +29614,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.module_type) = -# 1346 "parsing/parser.mly" +# 1349 "parsing/parser.mly" ( _1 ) -# 29617 "parsing/parser.ml" +# 29620 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29643,9 +29646,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Longident.t) = -# 1371 "parsing/parser.mly" +# 1374 "parsing/parser.mly" ( _1 ) -# 29649 "parsing/parser.ml" +# 29652 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29675,9 +29678,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.pattern) = -# 1366 "parsing/parser.mly" +# 1369 "parsing/parser.mly" ( _1 ) -# 29681 "parsing/parser.ml" +# 29684 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29707,9 +29710,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Longident.t) = -# 1376 "parsing/parser.mly" +# 1379 "parsing/parser.mly" ( _1 ) -# 29713 "parsing/parser.ml" +# 29716 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29751,15 +29754,15 @@ module Tables = struct let _loc__2_ = (_startpos__2_, _endpos__2_) in let _sloc = (_symbolstartpos, _endpos) in -# 3009 "parsing/parser.mly" +# 3012 "parsing/parser.mly" ( mkpat_cons ~loc:_sloc _loc__2_ (ghpat ~loc:_sloc (Ppat_tuple[_1;_3])) ) -# 29757 "parsing/parser.ml" +# 29760 "parsing/parser.ml" in -# 2997 "parsing/parser.mly" +# 3000 "parsing/parser.mly" ( _1 ) -# 29763 "parsing/parser.ml" +# 29766 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29789,14 +29792,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.pattern) = let _1 = -# 3011 "parsing/parser.mly" +# 3014 "parsing/parser.mly" ( Pat.attr _1 _2 ) -# 29795 "parsing/parser.ml" +# 29798 "parsing/parser.ml" in -# 2997 "parsing/parser.mly" +# 3000 "parsing/parser.mly" ( _1 ) -# 29800 "parsing/parser.ml" +# 29803 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29819,14 +29822,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = let _1 = -# 3013 "parsing/parser.mly" +# 3016 "parsing/parser.mly" ( _1 ) -# 29825 "parsing/parser.ml" +# 29828 "parsing/parser.ml" in -# 2997 "parsing/parser.mly" +# 3000 "parsing/parser.mly" ( _1 ) -# 29830 "parsing/parser.ml" +# 29833 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29871,15 +29874,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 29877 "parsing/parser.ml" +# 29880 "parsing/parser.ml" in -# 3016 "parsing/parser.mly" +# 3019 "parsing/parser.mly" ( Ppat_alias(_1, _3) ) -# 29883 "parsing/parser.ml" +# 29886 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -29887,21 +29890,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 29893 "parsing/parser.ml" +# 29896 "parsing/parser.ml" in -# 3027 "parsing/parser.mly" +# 3030 "parsing/parser.mly" ( _1 ) -# 29899 "parsing/parser.ml" +# 29902 "parsing/parser.ml" in -# 2997 "parsing/parser.mly" +# 3000 "parsing/parser.mly" ( _1 ) -# 29905 "parsing/parser.ml" +# 29908 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29942,9 +29945,9 @@ module Tables = struct let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3018 "parsing/parser.mly" +# 3021 "parsing/parser.mly" ( expecting _loc__3_ "identifier" ) -# 29948 "parsing/parser.ml" +# 29951 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -29952,21 +29955,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 29958 "parsing/parser.ml" +# 29961 "parsing/parser.ml" in -# 3027 "parsing/parser.mly" +# 3030 "parsing/parser.mly" ( _1 ) -# 29964 "parsing/parser.ml" +# 29967 "parsing/parser.ml" in -# 2997 "parsing/parser.mly" +# 3000 "parsing/parser.mly" ( _1 ) -# 29970 "parsing/parser.ml" +# 29973 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29991,29 +29994,29 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = let _1 = let _1 = -# 3020 "parsing/parser.mly" +# 3023 "parsing/parser.mly" ( Ppat_tuple(List.rev _1) ) -# 29997 "parsing/parser.ml" +# 30000 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 30005 "parsing/parser.ml" +# 30008 "parsing/parser.ml" in -# 3027 "parsing/parser.mly" +# 3030 "parsing/parser.mly" ( _1 ) -# 30011 "parsing/parser.ml" +# 30014 "parsing/parser.ml" in -# 2997 "parsing/parser.mly" +# 3000 "parsing/parser.mly" ( _1 ) -# 30017 "parsing/parser.ml" +# 30020 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30054,9 +30057,9 @@ module Tables = struct let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3022 "parsing/parser.mly" +# 3025 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) -# 30060 "parsing/parser.ml" +# 30063 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -30064,21 +30067,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 30070 "parsing/parser.ml" +# 30073 "parsing/parser.ml" in -# 3027 "parsing/parser.mly" +# 3030 "parsing/parser.mly" ( _1 ) -# 30076 "parsing/parser.ml" +# 30079 "parsing/parser.ml" in -# 2997 "parsing/parser.mly" +# 3000 "parsing/parser.mly" ( _1 ) -# 30082 "parsing/parser.ml" +# 30085 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30117,30 +30120,30 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = let _1 = let _1 = -# 3024 "parsing/parser.mly" +# 3027 "parsing/parser.mly" ( Ppat_or(_1, _3) ) -# 30123 "parsing/parser.ml" +# 30126 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 30132 "parsing/parser.ml" +# 30135 "parsing/parser.ml" in -# 3027 "parsing/parser.mly" +# 3030 "parsing/parser.mly" ( _1 ) -# 30138 "parsing/parser.ml" +# 30141 "parsing/parser.ml" in -# 2997 "parsing/parser.mly" +# 3000 "parsing/parser.mly" ( _1 ) -# 30144 "parsing/parser.ml" +# 30147 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30181,9 +30184,9 @@ module Tables = struct let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3026 "parsing/parser.mly" +# 3029 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) -# 30187 "parsing/parser.ml" +# 30190 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -30191,21 +30194,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 30197 "parsing/parser.ml" +# 30200 "parsing/parser.ml" in -# 3027 "parsing/parser.mly" +# 3030 "parsing/parser.mly" ( _1 ) -# 30203 "parsing/parser.ml" +# 30206 "parsing/parser.ml" in -# 2997 "parsing/parser.mly" +# 3000 "parsing/parser.mly" ( _1 ) -# 30209 "parsing/parser.ml" +# 30212 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30253,24 +30256,24 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 30259 "parsing/parser.ml" +# 30262 "parsing/parser.ml" in -# 4232 "parsing/parser.mly" +# 4235 "parsing/parser.mly" ( _1, _2 ) -# 30265 "parsing/parser.ml" +# 30268 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2999 "parsing/parser.mly" +# 3002 "parsing/parser.mly" ( mkpat_attrs ~loc:_sloc (Ppat_exception _3) _2) -# 30274 "parsing/parser.ml" +# 30277 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30307,9 +30310,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.pattern list) = -# 3130 "parsing/parser.mly" +# 3133 "parsing/parser.mly" ( _3 :: _1 ) -# 30313 "parsing/parser.ml" +# 30316 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30346,9 +30349,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.pattern list) = -# 3131 "parsing/parser.mly" +# 3134 "parsing/parser.mly" ( [_3; _1] ) -# 30352 "parsing/parser.ml" +# 30355 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30386,9 +30389,9 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.pattern list) = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3132 "parsing/parser.mly" +# 3135 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) -# 30392 "parsing/parser.ml" +# 30395 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30425,9 +30428,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.pattern list) = -# 3130 "parsing/parser.mly" +# 3133 "parsing/parser.mly" ( _3 :: _1 ) -# 30431 "parsing/parser.ml" +# 30434 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30464,9 +30467,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.pattern list) = -# 3131 "parsing/parser.mly" +# 3134 "parsing/parser.mly" ( [_3; _1] ) -# 30470 "parsing/parser.ml" +# 30473 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30504,9 +30507,9 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.pattern list) = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3132 "parsing/parser.mly" +# 3135 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) -# 30510 "parsing/parser.ml" +# 30513 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30529,9 +30532,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = -# 3032 "parsing/parser.mly" +# 3035 "parsing/parser.mly" ( _1 ) -# 30535 "parsing/parser.ml" +# 30538 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30567,15 +30570,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 30573 "parsing/parser.ml" +# 30576 "parsing/parser.ml" in -# 3035 "parsing/parser.mly" +# 3038 "parsing/parser.mly" ( Ppat_construct(_1, Some ([], _2)) ) -# 30579 "parsing/parser.ml" +# 30582 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -30583,15 +30586,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 30589 "parsing/parser.ml" +# 30592 "parsing/parser.ml" in -# 3041 "parsing/parser.mly" +# 3044 "parsing/parser.mly" ( _1 ) -# 30595 "parsing/parser.ml" +# 30598 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30651,24 +30654,24 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = let _1 = let newtypes = -# 2751 "parsing/parser.mly" +# 2754 "parsing/parser.mly" ( xs ) -# 30657 "parsing/parser.ml" +# 30660 "parsing/parser.ml" in let constr = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 30666 "parsing/parser.ml" +# 30669 "parsing/parser.ml" in -# 3038 "parsing/parser.mly" +# 3041 "parsing/parser.mly" ( Ppat_construct(constr, Some (newtypes, pat)) ) -# 30672 "parsing/parser.ml" +# 30675 "parsing/parser.ml" in let _endpos__1_ = _endpos_pat_ in @@ -30676,15 +30679,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 30682 "parsing/parser.ml" +# 30685 "parsing/parser.ml" in -# 3041 "parsing/parser.mly" +# 3044 "parsing/parser.mly" ( _1 ) -# 30688 "parsing/parser.ml" +# 30691 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30715,24 +30718,24 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 3040 "parsing/parser.mly" +# 3043 "parsing/parser.mly" ( Ppat_variant(_1, Some _2) ) -# 30721 "parsing/parser.ml" +# 30724 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 30730 "parsing/parser.ml" +# 30733 "parsing/parser.ml" in -# 3041 "parsing/parser.mly" +# 3044 "parsing/parser.mly" ( _1 ) -# 30736 "parsing/parser.ml" +# 30739 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30780,24 +30783,24 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 30786 "parsing/parser.ml" +# 30789 "parsing/parser.ml" in -# 4232 "parsing/parser.mly" +# 4235 "parsing/parser.mly" ( _1, _2 ) -# 30792 "parsing/parser.ml" +# 30795 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3043 "parsing/parser.mly" +# 3046 "parsing/parser.mly" ( mkpat_attrs ~loc:_sloc (Ppat_lazy _3) _2) -# 30801 "parsing/parser.ml" +# 30804 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30839,15 +30842,15 @@ module Tables = struct let _loc__2_ = (_startpos__2_, _endpos__2_) in let _sloc = (_symbolstartpos, _endpos) in -# 3009 "parsing/parser.mly" +# 3012 "parsing/parser.mly" ( mkpat_cons ~loc:_sloc _loc__2_ (ghpat ~loc:_sloc (Ppat_tuple[_1;_3])) ) -# 30845 "parsing/parser.ml" +# 30848 "parsing/parser.ml" in -# 3004 "parsing/parser.mly" +# 3007 "parsing/parser.mly" ( _1 ) -# 30851 "parsing/parser.ml" +# 30854 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30877,14 +30880,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.pattern) = let _1 = -# 3011 "parsing/parser.mly" +# 3014 "parsing/parser.mly" ( Pat.attr _1 _2 ) -# 30883 "parsing/parser.ml" +# 30886 "parsing/parser.ml" in -# 3004 "parsing/parser.mly" +# 3007 "parsing/parser.mly" ( _1 ) -# 30888 "parsing/parser.ml" +# 30891 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30907,14 +30910,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = let _1 = -# 3013 "parsing/parser.mly" +# 3016 "parsing/parser.mly" ( _1 ) -# 30913 "parsing/parser.ml" +# 30916 "parsing/parser.ml" in -# 3004 "parsing/parser.mly" +# 3007 "parsing/parser.mly" ( _1 ) -# 30918 "parsing/parser.ml" +# 30921 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30959,15 +30962,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 30965 "parsing/parser.ml" +# 30968 "parsing/parser.ml" in -# 3016 "parsing/parser.mly" +# 3019 "parsing/parser.mly" ( Ppat_alias(_1, _3) ) -# 30971 "parsing/parser.ml" +# 30974 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -30975,21 +30978,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 30981 "parsing/parser.ml" +# 30984 "parsing/parser.ml" in -# 3027 "parsing/parser.mly" +# 3030 "parsing/parser.mly" ( _1 ) -# 30987 "parsing/parser.ml" +# 30990 "parsing/parser.ml" in -# 3004 "parsing/parser.mly" +# 3007 "parsing/parser.mly" ( _1 ) -# 30993 "parsing/parser.ml" +# 30996 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31030,9 +31033,9 @@ module Tables = struct let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3018 "parsing/parser.mly" +# 3021 "parsing/parser.mly" ( expecting _loc__3_ "identifier" ) -# 31036 "parsing/parser.ml" +# 31039 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -31040,21 +31043,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 31046 "parsing/parser.ml" +# 31049 "parsing/parser.ml" in -# 3027 "parsing/parser.mly" +# 3030 "parsing/parser.mly" ( _1 ) -# 31052 "parsing/parser.ml" +# 31055 "parsing/parser.ml" in -# 3004 "parsing/parser.mly" +# 3007 "parsing/parser.mly" ( _1 ) -# 31058 "parsing/parser.ml" +# 31061 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31079,29 +31082,29 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = let _1 = let _1 = -# 3020 "parsing/parser.mly" +# 3023 "parsing/parser.mly" ( Ppat_tuple(List.rev _1) ) -# 31085 "parsing/parser.ml" +# 31088 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 31093 "parsing/parser.ml" +# 31096 "parsing/parser.ml" in -# 3027 "parsing/parser.mly" +# 3030 "parsing/parser.mly" ( _1 ) -# 31099 "parsing/parser.ml" +# 31102 "parsing/parser.ml" in -# 3004 "parsing/parser.mly" +# 3007 "parsing/parser.mly" ( _1 ) -# 31105 "parsing/parser.ml" +# 31108 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31142,9 +31145,9 @@ module Tables = struct let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3022 "parsing/parser.mly" +# 3025 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) -# 31148 "parsing/parser.ml" +# 31151 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -31152,21 +31155,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 31158 "parsing/parser.ml" +# 31161 "parsing/parser.ml" in -# 3027 "parsing/parser.mly" +# 3030 "parsing/parser.mly" ( _1 ) -# 31164 "parsing/parser.ml" +# 31167 "parsing/parser.ml" in -# 3004 "parsing/parser.mly" +# 3007 "parsing/parser.mly" ( _1 ) -# 31170 "parsing/parser.ml" +# 31173 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31205,30 +31208,30 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = let _1 = let _1 = -# 3024 "parsing/parser.mly" +# 3027 "parsing/parser.mly" ( Ppat_or(_1, _3) ) -# 31211 "parsing/parser.ml" +# 31214 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 31220 "parsing/parser.ml" +# 31223 "parsing/parser.ml" in -# 3027 "parsing/parser.mly" +# 3030 "parsing/parser.mly" ( _1 ) -# 31226 "parsing/parser.ml" +# 31229 "parsing/parser.ml" in -# 3004 "parsing/parser.mly" +# 3007 "parsing/parser.mly" ( _1 ) -# 31232 "parsing/parser.ml" +# 31235 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31269,9 +31272,9 @@ module Tables = struct let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3026 "parsing/parser.mly" +# 3029 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) -# 31275 "parsing/parser.ml" +# 31278 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -31279,21 +31282,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 31285 "parsing/parser.ml" +# 31288 "parsing/parser.ml" in -# 3027 "parsing/parser.mly" +# 3030 "parsing/parser.mly" ( _1 ) -# 31291 "parsing/parser.ml" +# 31294 "parsing/parser.ml" in -# 3004 "parsing/parser.mly" +# 3007 "parsing/parser.mly" ( _1 ) -# 31297 "parsing/parser.ml" +# 31300 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31312,9 +31315,9 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 31318 "parsing/parser.ml" +# 31321 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -31326,30 +31329,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 31332 "parsing/parser.ml" +# 31335 "parsing/parser.ml" in -# 2371 "parsing/parser.mly" +# 2374 "parsing/parser.mly" ( Ppat_var _1 ) -# 31338 "parsing/parser.ml" +# 31341 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 31347 "parsing/parser.ml" +# 31350 "parsing/parser.ml" in -# 2373 "parsing/parser.mly" +# 2376 "parsing/parser.mly" ( _1 ) -# 31353 "parsing/parser.ml" +# 31356 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31373,23 +31376,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 2372 "parsing/parser.mly" +# 2375 "parsing/parser.mly" ( Ppat_any ) -# 31379 "parsing/parser.ml" +# 31382 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 31387 "parsing/parser.ml" +# 31390 "parsing/parser.ml" in -# 2373 "parsing/parser.mly" +# 2376 "parsing/parser.mly" ( _1 ) -# 31393 "parsing/parser.ml" +# 31396 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31412,9 +31415,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.payload) = -# 4245 "parsing/parser.mly" +# 4248 "parsing/parser.mly" ( PStr _1 ) -# 31418 "parsing/parser.ml" +# 31421 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31444,9 +31447,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.payload) = -# 4246 "parsing/parser.mly" +# 4249 "parsing/parser.mly" ( PSig _2 ) -# 31450 "parsing/parser.ml" +# 31453 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31476,9 +31479,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.payload) = -# 4247 "parsing/parser.mly" +# 4250 "parsing/parser.mly" ( PTyp _2 ) -# 31482 "parsing/parser.ml" +# 31485 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31508,9 +31511,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.payload) = -# 4248 "parsing/parser.mly" +# 4251 "parsing/parser.mly" ( PPat (_2, None) ) -# 31514 "parsing/parser.ml" +# 31517 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31554,9 +31557,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Parsetree.payload) = -# 4249 "parsing/parser.mly" +# 4252 "parsing/parser.mly" ( PPat (_2, Some _4) ) -# 31560 "parsing/parser.ml" +# 31563 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31579,9 +31582,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = -# 3594 "parsing/parser.mly" +# 3597 "parsing/parser.mly" ( _1 ) -# 31585 "parsing/parser.ml" +# 31588 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31624,24 +31627,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 31628 "parsing/parser.ml" +# 31631 "parsing/parser.ml" in -# 1128 "parsing/parser.mly" +# 1131 "parsing/parser.mly" ( xs ) -# 31633 "parsing/parser.ml" +# 31636 "parsing/parser.ml" in -# 3586 "parsing/parser.mly" +# 3589 "parsing/parser.mly" ( _1 ) -# 31639 "parsing/parser.ml" +# 31642 "parsing/parser.ml" in -# 3590 "parsing/parser.mly" +# 3593 "parsing/parser.mly" ( Ptyp_poly(_1, _3) ) -# 31645 "parsing/parser.ml" +# 31648 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__3_, _startpos_xs_) in @@ -31649,15 +31652,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 31655 "parsing/parser.ml" +# 31658 "parsing/parser.ml" in -# 3596 "parsing/parser.mly" +# 3599 "parsing/parser.mly" ( _1 ) -# 31661 "parsing/parser.ml" +# 31664 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31680,14 +31683,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = let _1 = -# 3625 "parsing/parser.mly" +# 3628 "parsing/parser.mly" ( _1 ) -# 31686 "parsing/parser.ml" +# 31689 "parsing/parser.ml" in -# 3594 "parsing/parser.mly" +# 3597 "parsing/parser.mly" ( _1 ) -# 31691 "parsing/parser.ml" +# 31694 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31726,33 +31729,33 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let _3 = -# 3625 "parsing/parser.mly" +# 3628 "parsing/parser.mly" ( _1 ) -# 31732 "parsing/parser.ml" +# 31735 "parsing/parser.ml" in let _1 = let _1 = let xs = # 253 "" ( List.rev xs ) -# 31739 "parsing/parser.ml" +# 31742 "parsing/parser.ml" in -# 1128 "parsing/parser.mly" +# 1131 "parsing/parser.mly" ( xs ) -# 31744 "parsing/parser.ml" +# 31747 "parsing/parser.ml" in -# 3586 "parsing/parser.mly" +# 3589 "parsing/parser.mly" ( _1 ) -# 31750 "parsing/parser.ml" +# 31753 "parsing/parser.ml" in -# 3590 "parsing/parser.mly" +# 3593 "parsing/parser.mly" ( Ptyp_poly(_1, _3) ) -# 31756 "parsing/parser.ml" +# 31759 "parsing/parser.ml" in let _startpos__1_ = _startpos_xs_ in @@ -31760,15 +31763,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 31766 "parsing/parser.ml" +# 31769 "parsing/parser.ml" in -# 3596 "parsing/parser.mly" +# 3599 "parsing/parser.mly" ( _1 ) -# 31772 "parsing/parser.ml" +# 31775 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31815,9 +31818,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4206 "parsing/parser.mly" +# 4209 "parsing/parser.mly" ( mk_attr ~loc:(make_loc _sloc) _2 _3 ) -# 31821 "parsing/parser.ml" +# 31824 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31898,9 +31901,9 @@ module Tables = struct let _v : (Parsetree.value_description * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined3 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 31904 "parsing/parser.ml" +# 31907 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -31910,30 +31913,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 31916 "parsing/parser.ml" +# 31919 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 31924 "parsing/parser.ml" +# 31927 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3194 "parsing/parser.mly" +# 3197 "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 ) -# 31937 "parsing/parser.ml" +# 31940 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31949,14 +31952,14 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.private_flag) = let _1 = -# 4061 "parsing/parser.mly" +# 4064 "parsing/parser.mly" ( Public ) -# 31955 "parsing/parser.ml" +# 31958 "parsing/parser.ml" in -# 4058 "parsing/parser.mly" +# 4061 "parsing/parser.mly" ( _1 ) -# 31960 "parsing/parser.ml" +# 31963 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31979,14 +31982,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.private_flag) = let _1 = -# 4062 "parsing/parser.mly" +# 4065 "parsing/parser.mly" ( Private ) -# 31985 "parsing/parser.ml" +# 31988 "parsing/parser.ml" in -# 4058 "parsing/parser.mly" +# 4061 "parsing/parser.mly" ( _1 ) -# 31990 "parsing/parser.ml" +# 31993 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32002,9 +32005,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = -# 4095 "parsing/parser.mly" +# 4098 "parsing/parser.mly" ( Public, Concrete ) -# 32008 "parsing/parser.ml" +# 32011 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32027,9 +32030,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = -# 4096 "parsing/parser.mly" +# 4099 "parsing/parser.mly" ( Private, Concrete ) -# 32033 "parsing/parser.ml" +# 32036 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32052,9 +32055,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = -# 4097 "parsing/parser.mly" +# 4100 "parsing/parser.mly" ( Public, Virtual ) -# 32058 "parsing/parser.ml" +# 32061 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32084,9 +32087,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = -# 4098 "parsing/parser.mly" +# 4101 "parsing/parser.mly" ( Private, Virtual ) -# 32090 "parsing/parser.ml" +# 32093 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32116,9 +32119,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = -# 4099 "parsing/parser.mly" +# 4102 "parsing/parser.mly" ( Private, Virtual ) -# 32122 "parsing/parser.ml" +# 32125 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32134,9 +32137,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.rec_flag) = -# 4039 "parsing/parser.mly" +# 4042 "parsing/parser.mly" ( Nonrecursive ) -# 32140 "parsing/parser.ml" +# 32143 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32159,9 +32162,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.rec_flag) = -# 4040 "parsing/parser.mly" +# 4043 "parsing/parser.mly" ( Recursive ) -# 32165 "parsing/parser.ml" +# 32168 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32187,12 +32190,12 @@ module Tables = struct (Longident.t Asttypes.loc * Parsetree.expression) list) = let eo = # 124 "" ( None ) -# 32191 "parsing/parser.ml" +# 32194 "parsing/parser.ml" in -# 2929 "parsing/parser.mly" +# 2932 "parsing/parser.mly" ( eo, fields ) -# 32196 "parsing/parser.ml" +# 32199 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32233,18 +32236,18 @@ module Tables = struct let x = # 191 "" ( x ) -# 32237 "parsing/parser.ml" +# 32240 "parsing/parser.ml" in # 126 "" ( Some x ) -# 32242 "parsing/parser.ml" +# 32245 "parsing/parser.ml" in -# 2929 "parsing/parser.mly" +# 2932 "parsing/parser.mly" ( eo, fields ) -# 32248 "parsing/parser.ml" +# 32251 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32269,17 +32272,17 @@ module Tables = struct let _startpos = _startpos_d_ in let _endpos = _endpos_d_ in let _v : (Parsetree.constructor_declaration list) = let x = -# 3394 "parsing/parser.mly" +# 3397 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Type.constructor cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32278 "parsing/parser.ml" +# 32281 "parsing/parser.ml" in -# 1238 "parsing/parser.mly" +# 1241 "parsing/parser.mly" ( [x] ) -# 32283 "parsing/parser.ml" +# 32286 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32304,17 +32307,17 @@ module Tables = struct let _startpos = _startpos_d_ in let _endpos = _endpos_d_ in let _v : (Parsetree.constructor_declaration list) = let x = -# 3394 "parsing/parser.mly" +# 3397 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Type.constructor cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32313 "parsing/parser.ml" +# 32316 "parsing/parser.ml" in -# 1241 "parsing/parser.mly" +# 1244 "parsing/parser.mly" ( [x] ) -# 32318 "parsing/parser.ml" +# 32321 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32346,17 +32349,17 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_d_ in let _v : (Parsetree.constructor_declaration list) = let x = -# 3394 "parsing/parser.mly" +# 3397 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Type.constructor cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32355 "parsing/parser.ml" +# 32358 "parsing/parser.ml" in -# 1245 "parsing/parser.mly" +# 1248 "parsing/parser.mly" ( x :: xs ) -# 32360 "parsing/parser.ml" +# 32363 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32382,23 +32385,23 @@ module Tables = struct let _endpos = _endpos_d_ in let _v : (Parsetree.extension_constructor list) = let x = let _1 = -# 3524 "parsing/parser.mly" +# 3527 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32391 "parsing/parser.ml" +# 32394 "parsing/parser.ml" in -# 3518 "parsing/parser.mly" +# 3521 "parsing/parser.mly" ( _1 ) -# 32396 "parsing/parser.ml" +# 32399 "parsing/parser.ml" in -# 1238 "parsing/parser.mly" +# 1241 "parsing/parser.mly" ( [x] ) -# 32402 "parsing/parser.ml" +# 32405 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32421,14 +32424,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.extension_constructor list) = let x = -# 3520 "parsing/parser.mly" +# 3523 "parsing/parser.mly" ( _1 ) -# 32427 "parsing/parser.ml" +# 32430 "parsing/parser.ml" in -# 1238 "parsing/parser.mly" +# 1241 "parsing/parser.mly" ( [x] ) -# 32432 "parsing/parser.ml" +# 32435 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32454,23 +32457,23 @@ module Tables = struct let _endpos = _endpos_d_ in let _v : (Parsetree.extension_constructor list) = let x = let _1 = -# 3524 "parsing/parser.mly" +# 3527 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32463 "parsing/parser.ml" +# 32466 "parsing/parser.ml" in -# 3518 "parsing/parser.mly" +# 3521 "parsing/parser.mly" ( _1 ) -# 32468 "parsing/parser.ml" +# 32471 "parsing/parser.ml" in -# 1241 "parsing/parser.mly" +# 1244 "parsing/parser.mly" ( [x] ) -# 32474 "parsing/parser.ml" +# 32477 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32493,14 +32496,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.extension_constructor list) = let x = -# 3520 "parsing/parser.mly" +# 3523 "parsing/parser.mly" ( _1 ) -# 32499 "parsing/parser.ml" +# 32502 "parsing/parser.ml" in -# 1241 "parsing/parser.mly" +# 1244 "parsing/parser.mly" ( [x] ) -# 32504 "parsing/parser.ml" +# 32507 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32533,23 +32536,23 @@ module Tables = struct let _endpos = _endpos_d_ in let _v : (Parsetree.extension_constructor list) = let x = let _1 = -# 3524 "parsing/parser.mly" +# 3527 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32542 "parsing/parser.ml" +# 32545 "parsing/parser.ml" in -# 3518 "parsing/parser.mly" +# 3521 "parsing/parser.mly" ( _1 ) -# 32547 "parsing/parser.ml" +# 32550 "parsing/parser.ml" in -# 1245 "parsing/parser.mly" +# 1248 "parsing/parser.mly" ( x :: xs ) -# 32553 "parsing/parser.ml" +# 32556 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32579,14 +32582,14 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos__1_ in let _v : (Parsetree.extension_constructor list) = let x = -# 3520 "parsing/parser.mly" +# 3523 "parsing/parser.mly" ( _1 ) -# 32585 "parsing/parser.ml" +# 32588 "parsing/parser.ml" in -# 1245 "parsing/parser.mly" +# 1248 "parsing/parser.mly" ( x :: xs ) -# 32590 "parsing/parser.ml" +# 32593 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32611,17 +32614,17 @@ module Tables = struct let _startpos = _startpos_d_ in let _endpos = _endpos_d_ in let _v : (Parsetree.extension_constructor list) = let x = -# 3524 "parsing/parser.mly" +# 3527 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32620 "parsing/parser.ml" +# 32623 "parsing/parser.ml" in -# 1238 "parsing/parser.mly" +# 1241 "parsing/parser.mly" ( [x] ) -# 32625 "parsing/parser.ml" +# 32628 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32646,17 +32649,17 @@ module Tables = struct let _startpos = _startpos_d_ in let _endpos = _endpos_d_ in let _v : (Parsetree.extension_constructor list) = let x = -# 3524 "parsing/parser.mly" +# 3527 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32655 "parsing/parser.ml" +# 32658 "parsing/parser.ml" in -# 1241 "parsing/parser.mly" +# 1244 "parsing/parser.mly" ( [x] ) -# 32660 "parsing/parser.ml" +# 32663 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32688,17 +32691,17 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_d_ in let _v : (Parsetree.extension_constructor list) = let x = -# 3524 "parsing/parser.mly" +# 3527 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32697 "parsing/parser.ml" +# 32700 "parsing/parser.ml" in -# 1245 "parsing/parser.mly" +# 1248 "parsing/parser.mly" ( x :: xs ) -# 32702 "parsing/parser.ml" +# 32705 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32714,9 +32717,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : ((Parsetree.core_type * Parsetree.core_type * Ast_helper.loc) list) = -# 1104 "parsing/parser.mly" +# 1107 "parsing/parser.mly" ( [] ) -# 32720 "parsing/parser.ml" +# 32723 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32773,21 +32776,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2240 "parsing/parser.mly" +# 2243 "parsing/parser.mly" ( _1, _3, make_loc _sloc ) -# 32779 "parsing/parser.ml" +# 32782 "parsing/parser.ml" in # 183 "" ( x ) -# 32785 "parsing/parser.ml" +# 32788 "parsing/parser.ml" in -# 1106 "parsing/parser.mly" +# 1109 "parsing/parser.mly" ( x :: xs ) -# 32791 "parsing/parser.ml" +# 32794 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32810,9 +32813,9 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : (Extensions.Comprehensions.clause list) = -# 1118 "parsing/parser.mly" +# 1121 "parsing/parser.mly" ( [ x ] ) -# 32816 "parsing/parser.ml" +# 32819 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32842,9 +32845,9 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Extensions.Comprehensions.clause list) = -# 1120 "parsing/parser.mly" +# 1123 "parsing/parser.mly" ( x :: xs ) -# 32848 "parsing/parser.ml" +# 32851 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32867,9 +32870,9 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : ((Lexing.position * Parsetree.functor_parameter) list) = -# 1118 "parsing/parser.mly" +# 1121 "parsing/parser.mly" ( [ x ] ) -# 32873 "parsing/parser.ml" +# 32876 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32899,9 +32902,9 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : ((Lexing.position * Parsetree.functor_parameter) list) = -# 1120 "parsing/parser.mly" +# 1123 "parsing/parser.mly" ( x :: xs ) -# 32905 "parsing/parser.ml" +# 32908 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32924,9 +32927,9 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : ((Asttypes.arg_label * Parsetree.expression) list) = -# 1118 "parsing/parser.mly" +# 1121 "parsing/parser.mly" ( [ x ] ) -# 32930 "parsing/parser.ml" +# 32933 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32956,9 +32959,9 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : ((Asttypes.arg_label * Parsetree.expression) list) = -# 1120 "parsing/parser.mly" +# 1123 "parsing/parser.mly" ( x :: xs ) -# 32962 "parsing/parser.ml" +# 32965 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32981,9 +32984,9 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : (Asttypes.label list) = -# 1118 "parsing/parser.mly" +# 1121 "parsing/parser.mly" ( [ x ] ) -# 32987 "parsing/parser.ml" +# 32990 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33013,9 +33016,9 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Asttypes.label list) = -# 1120 "parsing/parser.mly" +# 1123 "parsing/parser.mly" ( x :: xs ) -# 33019 "parsing/parser.ml" +# 33022 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33051,21 +33054,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 33057 "parsing/parser.ml" +# 33060 "parsing/parser.ml" in -# 3582 "parsing/parser.mly" +# 3585 "parsing/parser.mly" ( _2 ) -# 33063 "parsing/parser.ml" +# 33066 "parsing/parser.ml" in -# 1118 "parsing/parser.mly" +# 1121 "parsing/parser.mly" ( [ x ] ) -# 33069 "parsing/parser.ml" +# 33072 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33108,21 +33111,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 33114 "parsing/parser.ml" +# 33117 "parsing/parser.ml" in -# 3582 "parsing/parser.mly" +# 3585 "parsing/parser.mly" ( _2 ) -# 33120 "parsing/parser.ml" +# 33123 "parsing/parser.ml" in -# 1120 "parsing/parser.mly" +# 1123 "parsing/parser.mly" ( x :: xs ) -# 33126 "parsing/parser.ml" +# 33129 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33147,12 +33150,12 @@ module Tables = struct let _v : (Parsetree.case list) = let _1 = # 124 "" ( None ) -# 33151 "parsing/parser.ml" +# 33154 "parsing/parser.ml" in -# 1209 "parsing/parser.mly" +# 1212 "parsing/parser.mly" ( [x] ) -# 33156 "parsing/parser.ml" +# 33159 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33186,13 +33189,13 @@ module Tables = struct # 126 "" ( Some x ) -# 33190 "parsing/parser.ml" +# 33193 "parsing/parser.ml" in -# 1209 "parsing/parser.mly" +# 1212 "parsing/parser.mly" ( [x] ) -# 33196 "parsing/parser.ml" +# 33199 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33229,9 +33232,9 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Parsetree.case list) = -# 1213 "parsing/parser.mly" +# 1216 "parsing/parser.mly" ( x :: xs ) -# 33235 "parsing/parser.ml" +# 33238 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33255,20 +33258,20 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.core_type list) = let xs = let x = -# 3625 "parsing/parser.mly" +# 3628 "parsing/parser.mly" ( _1 ) -# 33261 "parsing/parser.ml" +# 33264 "parsing/parser.ml" in -# 1144 "parsing/parser.mly" +# 1147 "parsing/parser.mly" ( [ x ] ) -# 33266 "parsing/parser.ml" +# 33269 "parsing/parser.ml" in -# 1152 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( xs ) -# 33272 "parsing/parser.ml" +# 33275 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33306,20 +33309,20 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.core_type list) = let xs = let x = -# 3625 "parsing/parser.mly" +# 3628 "parsing/parser.mly" ( _1 ) -# 33312 "parsing/parser.ml" +# 33315 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1151 "parsing/parser.mly" ( x :: xs ) -# 33317 "parsing/parser.ml" +# 33320 "parsing/parser.ml" in -# 1152 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( xs ) -# 33323 "parsing/parser.ml" +# 33326 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33342,14 +33345,14 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : (Extensions.Comprehensions.clause_binding list) = let xs = -# 1144 "parsing/parser.mly" +# 1147 "parsing/parser.mly" ( [ x ] ) -# 33348 "parsing/parser.ml" +# 33351 "parsing/parser.ml" in -# 1152 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( xs ) -# 33353 "parsing/parser.ml" +# 33356 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33386,14 +33389,14 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Extensions.Comprehensions.clause_binding list) = let xs = -# 1148 "parsing/parser.mly" +# 1151 "parsing/parser.mly" ( x :: xs ) -# 33392 "parsing/parser.ml" +# 33395 "parsing/parser.ml" in -# 1152 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( xs ) -# 33397 "parsing/parser.ml" +# 33400 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33416,14 +33419,14 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : (Parsetree.with_constraint list) = let xs = -# 1144 "parsing/parser.mly" +# 1147 "parsing/parser.mly" ( [ x ] ) -# 33422 "parsing/parser.ml" +# 33425 "parsing/parser.ml" in -# 1152 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( xs ) -# 33427 "parsing/parser.ml" +# 33430 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33460,14 +33463,14 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Parsetree.with_constraint list) = let xs = -# 1148 "parsing/parser.mly" +# 1151 "parsing/parser.mly" ( x :: xs ) -# 33466 "parsing/parser.ml" +# 33469 "parsing/parser.ml" in -# 1152 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( xs ) -# 33471 "parsing/parser.ml" +# 33474 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33490,14 +33493,14 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : (Parsetree.row_field list) = let xs = -# 1144 "parsing/parser.mly" +# 1147 "parsing/parser.mly" ( [ x ] ) -# 33496 "parsing/parser.ml" +# 33499 "parsing/parser.ml" in -# 1152 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( xs ) -# 33501 "parsing/parser.ml" +# 33504 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33534,14 +33537,14 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Parsetree.row_field list) = let xs = -# 1148 "parsing/parser.mly" +# 1151 "parsing/parser.mly" ( x :: xs ) -# 33540 "parsing/parser.ml" +# 33543 "parsing/parser.ml" in -# 1152 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( xs ) -# 33545 "parsing/parser.ml" +# 33548 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33564,14 +33567,14 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : (Parsetree.core_type list) = let xs = -# 1144 "parsing/parser.mly" +# 1147 "parsing/parser.mly" ( [ x ] ) -# 33570 "parsing/parser.ml" +# 33573 "parsing/parser.ml" in -# 1152 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( xs ) -# 33575 "parsing/parser.ml" +# 33578 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33608,14 +33611,14 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Parsetree.core_type list) = let xs = -# 1148 "parsing/parser.mly" +# 1151 "parsing/parser.mly" ( x :: xs ) -# 33614 "parsing/parser.ml" +# 33617 "parsing/parser.ml" in -# 1152 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( xs ) -# 33619 "parsing/parser.ml" +# 33622 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33638,14 +33641,14 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = let xs = -# 1144 "parsing/parser.mly" +# 1147 "parsing/parser.mly" ( [ x ] ) -# 33644 "parsing/parser.ml" +# 33647 "parsing/parser.ml" in -# 1152 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( xs ) -# 33649 "parsing/parser.ml" +# 33652 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33682,14 +33685,14 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = let xs = -# 1148 "parsing/parser.mly" +# 1151 "parsing/parser.mly" ( x :: xs ) -# 33688 "parsing/parser.ml" +# 33691 "parsing/parser.ml" in -# 1152 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( xs ) -# 33693 "parsing/parser.ml" +# 33696 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33712,14 +33715,14 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = let xs = -# 1144 "parsing/parser.mly" +# 1147 "parsing/parser.mly" ( [ x ] ) -# 33718 "parsing/parser.ml" +# 33721 "parsing/parser.ml" in -# 1152 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( xs ) -# 33723 "parsing/parser.ml" +# 33726 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33756,14 +33759,14 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = let xs = -# 1148 "parsing/parser.mly" +# 1151 "parsing/parser.mly" ( x :: xs ) -# 33762 "parsing/parser.ml" +# 33765 "parsing/parser.ml" in -# 1152 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( xs ) -# 33767 "parsing/parser.ml" +# 33770 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33788,30 +33791,30 @@ module Tables = struct let _v : (Parsetree.core_type list) = let xs = let x = let gbl = -# 4075 "parsing/parser.mly" +# 4078 "parsing/parser.mly" ( Nothing ) -# 33794 "parsing/parser.ml" +# 33797 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__0_, _endpos__0_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3451 "parsing/parser.mly" +# 3454 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 33803 "parsing/parser.ml" +# 33806 "parsing/parser.ml" in -# 1144 "parsing/parser.mly" +# 1147 "parsing/parser.mly" ( [ x ] ) -# 33809 "parsing/parser.ml" +# 33812 "parsing/parser.ml" in -# 1152 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( xs ) -# 33815 "parsing/parser.ml" +# 33818 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33843,30 +33846,30 @@ module Tables = struct let _v : (Parsetree.core_type list) = let xs = let x = let gbl = -# 4076 "parsing/parser.mly" +# 4079 "parsing/parser.mly" ( Global ) -# 33849 "parsing/parser.ml" +# 33852 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3451 "parsing/parser.mly" +# 3454 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 33858 "parsing/parser.ml" +# 33861 "parsing/parser.ml" in -# 1144 "parsing/parser.mly" +# 1147 "parsing/parser.mly" ( [ x ] ) -# 33864 "parsing/parser.ml" +# 33867 "parsing/parser.ml" in -# 1152 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( xs ) -# 33870 "parsing/parser.ml" +# 33873 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33898,30 +33901,30 @@ module Tables = struct let _v : (Parsetree.core_type list) = let xs = let x = let gbl = -# 4077 "parsing/parser.mly" +# 4080 "parsing/parser.mly" ( Nonlocal ) -# 33904 "parsing/parser.ml" +# 33907 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3451 "parsing/parser.mly" +# 3454 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 33913 "parsing/parser.ml" +# 33916 "parsing/parser.ml" in -# 1144 "parsing/parser.mly" +# 1147 "parsing/parser.mly" ( [ x ] ) -# 33919 "parsing/parser.ml" +# 33922 "parsing/parser.ml" in -# 1152 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( xs ) -# 33925 "parsing/parser.ml" +# 33928 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33961,30 +33964,30 @@ module Tables = struct let x = let _endpos__0_ = _endpos__2_ in let gbl = -# 4075 "parsing/parser.mly" +# 4078 "parsing/parser.mly" ( Nothing ) -# 33967 "parsing/parser.ml" +# 33970 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__0_, _endpos__0_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3451 "parsing/parser.mly" +# 3454 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 33976 "parsing/parser.ml" +# 33979 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1151 "parsing/parser.mly" ( x :: xs ) -# 33982 "parsing/parser.ml" +# 33985 "parsing/parser.ml" in -# 1152 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( xs ) -# 33988 "parsing/parser.ml" +# 33991 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34030,30 +34033,30 @@ module Tables = struct let _v : (Parsetree.core_type list) = let xs = let x = let gbl = -# 4076 "parsing/parser.mly" +# 4079 "parsing/parser.mly" ( Global ) -# 34036 "parsing/parser.ml" +# 34039 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3451 "parsing/parser.mly" +# 3454 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 34045 "parsing/parser.ml" +# 34048 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1151 "parsing/parser.mly" ( x :: xs ) -# 34051 "parsing/parser.ml" +# 34054 "parsing/parser.ml" in -# 1152 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( xs ) -# 34057 "parsing/parser.ml" +# 34060 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34099,30 +34102,30 @@ module Tables = struct let _v : (Parsetree.core_type list) = let xs = let x = let gbl = -# 4077 "parsing/parser.mly" +# 4080 "parsing/parser.mly" ( Nonlocal ) -# 34105 "parsing/parser.ml" +# 34108 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3451 "parsing/parser.mly" +# 3454 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 34114 "parsing/parser.ml" +# 34117 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1151 "parsing/parser.mly" ( x :: xs ) -# 34120 "parsing/parser.ml" +# 34123 "parsing/parser.ml" in -# 1152 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( xs ) -# 34126 "parsing/parser.ml" +# 34129 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34159,9 +34162,9 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Parsetree.core_type list) = -# 1175 "parsing/parser.mly" +# 1178 "parsing/parser.mly" ( x :: xs ) -# 34165 "parsing/parser.ml" +# 34168 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34198,9 +34201,9 @@ module Tables = struct let _startpos = _startpos_x1_ in let _endpos = _endpos_x2_ in let _v : (Parsetree.core_type list) = -# 1179 "parsing/parser.mly" +# 1182 "parsing/parser.mly" ( [ x2; x1 ] ) -# 34204 "parsing/parser.ml" +# 34207 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34237,9 +34240,9 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Parsetree.expression list) = -# 1175 "parsing/parser.mly" +# 1178 "parsing/parser.mly" ( x :: xs ) -# 34243 "parsing/parser.ml" +# 34246 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34276,9 +34279,9 @@ module Tables = struct let _startpos = _startpos_x1_ in let _endpos = _endpos_x2_ in let _v : (Parsetree.expression list) = -# 1179 "parsing/parser.mly" +# 1182 "parsing/parser.mly" ( [ x2; x1 ] ) -# 34282 "parsing/parser.ml" +# 34285 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34315,9 +34318,9 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Parsetree.core_type list) = -# 1175 "parsing/parser.mly" +# 1178 "parsing/parser.mly" ( x :: xs ) -# 34321 "parsing/parser.ml" +# 34324 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34354,9 +34357,9 @@ module Tables = struct let _startpos = _startpos_x1_ in let _endpos = _endpos_x2_ in let _v : (Parsetree.core_type list) = -# 1179 "parsing/parser.mly" +# 1182 "parsing/parser.mly" ( [ x2; x1 ] ) -# 34360 "parsing/parser.ml" +# 34363 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34379,9 +34382,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.row_field) = -# 3800 "parsing/parser.mly" +# 3803 "parsing/parser.mly" ( _1 ) -# 34385 "parsing/parser.ml" +# 34388 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34407,9 +34410,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3802 "parsing/parser.mly" +# 3805 "parsing/parser.mly" ( Rf.inherit_ ~loc:(make_loc _sloc) _1 ) -# 34413 "parsing/parser.ml" +# 34416 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34434,12 +34437,12 @@ module Tables = struct let _v : (Parsetree.expression list) = let _2 = # 124 "" ( None ) -# 34438 "parsing/parser.ml" +# 34441 "parsing/parser.ml" in -# 1196 "parsing/parser.mly" +# 1199 "parsing/parser.mly" ( [x] ) -# 34443 "parsing/parser.ml" +# 34446 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34473,13 +34476,13 @@ module Tables = struct # 126 "" ( Some x ) -# 34477 "parsing/parser.ml" +# 34480 "parsing/parser.ml" in -# 1196 "parsing/parser.mly" +# 1199 "parsing/parser.mly" ( [x] ) -# 34483 "parsing/parser.ml" +# 34486 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34516,9 +34519,9 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_xs_ in let _v : (Parsetree.expression list) = -# 1200 "parsing/parser.mly" +# 1203 "parsing/parser.mly" ( x :: xs ) -# 34522 "parsing/parser.ml" +# 34525 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34544,9 +34547,9 @@ module Tables = struct } = _menhir_stack in let oe : (Parsetree.expression option) = Obj.magic oe in let _1 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 34550 "parsing/parser.ml" +# 34553 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -34554,26 +34557,26 @@ module Tables = struct let _v : ((Asttypes.label Asttypes.loc * Parsetree.expression) list) = let _2 = # 124 "" ( None ) -# 34558 "parsing/parser.ml" +# 34561 "parsing/parser.ml" in let x = let label = let _1 = -# 3864 "parsing/parser.mly" +# 3867 "parsing/parser.mly" ( _1 ) -# 34565 "parsing/parser.ml" +# 34568 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 34573 "parsing/parser.ml" +# 34576 "parsing/parser.ml" in -# 2952 "parsing/parser.mly" +# 2955 "parsing/parser.mly" ( let label, e = match oe with | None -> @@ -34583,13 +34586,13 @@ module Tables = struct label, e in label, e ) -# 34587 "parsing/parser.ml" +# 34590 "parsing/parser.ml" in -# 1196 "parsing/parser.mly" +# 1199 "parsing/parser.mly" ( [x] ) -# 34593 "parsing/parser.ml" +# 34596 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34622,9 +34625,9 @@ module Tables = struct let x : unit = Obj.magic x in let oe : (Parsetree.expression option) = Obj.magic oe in let _1 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 34628 "parsing/parser.ml" +# 34631 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -34632,26 +34635,26 @@ module Tables = struct let _v : ((Asttypes.label Asttypes.loc * Parsetree.expression) list) = let _2 = # 126 "" ( Some x ) -# 34636 "parsing/parser.ml" +# 34639 "parsing/parser.ml" in let x = let label = let _1 = -# 3864 "parsing/parser.mly" +# 3867 "parsing/parser.mly" ( _1 ) -# 34643 "parsing/parser.ml" +# 34646 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 34651 "parsing/parser.ml" +# 34654 "parsing/parser.ml" in -# 2952 "parsing/parser.mly" +# 2955 "parsing/parser.mly" ( let label, e = match oe with | None -> @@ -34661,13 +34664,13 @@ module Tables = struct label, e in label, e ) -# 34665 "parsing/parser.ml" +# 34668 "parsing/parser.ml" in -# 1196 "parsing/parser.mly" +# 1199 "parsing/parser.mly" ( [x] ) -# 34671 "parsing/parser.ml" +# 34674 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34707,9 +34710,9 @@ module Tables = struct let _2 : unit = Obj.magic _2 in let oe : (Parsetree.expression option) = Obj.magic oe in let _1 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 34713 "parsing/parser.ml" +# 34716 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -34717,21 +34720,21 @@ module Tables = struct let _v : ((Asttypes.label Asttypes.loc * Parsetree.expression) list) = let x = let label = let _1 = -# 3864 "parsing/parser.mly" +# 3867 "parsing/parser.mly" ( _1 ) -# 34723 "parsing/parser.ml" +# 34726 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 34731 "parsing/parser.ml" +# 34734 "parsing/parser.ml" in -# 2952 "parsing/parser.mly" +# 2955 "parsing/parser.mly" ( let label, e = match oe with | None -> @@ -34741,13 +34744,13 @@ module Tables = struct label, e in label, e ) -# 34745 "parsing/parser.ml" +# 34748 "parsing/parser.ml" in -# 1200 "parsing/parser.mly" +# 1203 "parsing/parser.mly" ( x :: xs ) -# 34751 "parsing/parser.ml" +# 34754 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34772,12 +34775,12 @@ module Tables = struct let _v : (Parsetree.pattern list) = let _2 = # 124 "" ( None ) -# 34776 "parsing/parser.ml" +# 34779 "parsing/parser.ml" in -# 1196 "parsing/parser.mly" +# 1199 "parsing/parser.mly" ( [x] ) -# 34781 "parsing/parser.ml" +# 34784 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34811,13 +34814,13 @@ module Tables = struct # 126 "" ( Some x ) -# 34815 "parsing/parser.ml" +# 34818 "parsing/parser.ml" in -# 1196 "parsing/parser.mly" +# 1199 "parsing/parser.mly" ( [x] ) -# 34821 "parsing/parser.ml" +# 34824 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34854,9 +34857,9 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_xs_ in let _v : (Parsetree.pattern list) = -# 1200 "parsing/parser.mly" +# 1203 "parsing/parser.mly" ( x :: xs ) -# 34860 "parsing/parser.ml" +# 34863 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34895,7 +34898,7 @@ module Tables = struct let _v : ((Longident.t Asttypes.loc * Parsetree.expression) list) = let _2 = # 124 "" ( None ) -# 34899 "parsing/parser.ml" +# 34902 "parsing/parser.ml" in let x = let label = @@ -34903,9 +34906,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 34909 "parsing/parser.ml" +# 34912 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in @@ -34913,7 +34916,7 @@ module Tables = struct let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in -# 2935 "parsing/parser.mly" +# 2938 "parsing/parser.mly" ( let constraint_loc, label, e = match eo with | None -> @@ -34923,13 +34926,13 @@ module Tables = struct (_startpos_c_, _endpos), label, e in label, mkexp_opt_constraint ~loc:constraint_loc e c ) -# 34927 "parsing/parser.ml" +# 34930 "parsing/parser.ml" in -# 1196 "parsing/parser.mly" +# 1199 "parsing/parser.mly" ( [x] ) -# 34933 "parsing/parser.ml" +# 34936 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34975,7 +34978,7 @@ module Tables = struct let _v : ((Longident.t Asttypes.loc * Parsetree.expression) list) = let _2 = # 126 "" ( Some x ) -# 34979 "parsing/parser.ml" +# 34982 "parsing/parser.ml" in let x = let label = @@ -34983,9 +34986,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 34989 "parsing/parser.ml" +# 34992 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in @@ -34993,7 +34996,7 @@ module Tables = struct let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in -# 2935 "parsing/parser.mly" +# 2938 "parsing/parser.mly" ( let constraint_loc, label, e = match eo with | None -> @@ -35003,13 +35006,13 @@ module Tables = struct (_startpos_c_, _endpos), label, e in label, mkexp_opt_constraint ~loc:constraint_loc e c ) -# 35007 "parsing/parser.ml" +# 35010 "parsing/parser.ml" in -# 1196 "parsing/parser.mly" +# 1199 "parsing/parser.mly" ( [x] ) -# 35013 "parsing/parser.ml" +# 35016 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35065,9 +35068,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 35071 "parsing/parser.ml" +# 35074 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in @@ -35075,7 +35078,7 @@ module Tables = struct let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in -# 2935 "parsing/parser.mly" +# 2938 "parsing/parser.mly" ( let constraint_loc, label, e = match eo with | None -> @@ -35085,13 +35088,13 @@ module Tables = struct (_startpos_c_, _endpos), label, e in label, mkexp_opt_constraint ~loc:constraint_loc e c ) -# 35089 "parsing/parser.ml" +# 35092 "parsing/parser.ml" in -# 1200 "parsing/parser.mly" +# 1203 "parsing/parser.mly" ( x :: xs ) -# 35095 "parsing/parser.ml" +# 35098 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35114,9 +35117,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.expression) = -# 2329 "parsing/parser.mly" +# 2332 "parsing/parser.mly" ( _1 ) -# 35120 "parsing/parser.ml" +# 35123 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35146,9 +35149,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = -# 2330 "parsing/parser.mly" +# 2333 "parsing/parser.mly" ( _1 ) -# 35152 "parsing/parser.ml" +# 35155 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35186,24 +35189,24 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.expression) = let _1 = let _1 = -# 2332 "parsing/parser.mly" +# 2335 "parsing/parser.mly" ( Pexp_sequence(_1, _3) ) -# 35192 "parsing/parser.ml" +# 35195 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 35201 "parsing/parser.ml" +# 35204 "parsing/parser.ml" in -# 2333 "parsing/parser.mly" +# 2336 "parsing/parser.mly" ( _1 ) -# 35207 "parsing/parser.ml" +# 35210 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35257,11 +35260,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2335 "parsing/parser.mly" +# 2338 "parsing/parser.mly" ( let seq = mkexp ~loc:_sloc (Pexp_sequence (_1, _5)) in let payload = PStr [mkstrexp seq []] in mkexp ~loc:_sloc (Pexp_extension (_4, payload)) ) -# 35265 "parsing/parser.ml" +# 35268 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35329,18 +35332,18 @@ module Tables = struct let _v : (Parsetree.type_exception * string Asttypes.loc option) = let attrs = let _1 = _1_inlined4 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 35335 "parsing/parser.ml" +# 35338 "parsing/parser.ml" in let _endpos_attrs_ = _endpos__1_inlined4_ in let attrs2 = let _1 = _1_inlined3 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 35344 "parsing/parser.ml" +# 35347 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -35350,17 +35353,17 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 35356 "parsing/parser.ml" +# 35359 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 35364 "parsing/parser.ml" +# 35367 "parsing/parser.ml" in let _endpos = _endpos_attrs_ in @@ -35368,14 +35371,14 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3424 "parsing/parser.mly" +# 3427 "parsing/parser.mly" ( let vars, args, res = vars_args_res in let loc = make_loc (_startpos, _endpos_attrs2_) in let docs = symbol_docs _sloc in Te.mk_exception ~attrs (Te.decl id ~vars ~args ?res ~attrs:(attrs1 @ attrs2) ~loc ~docs) , ext ) -# 35379 "parsing/parser.ml" +# 35382 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35401,21 +35404,21 @@ module Tables = struct let _1 = # 260 "" ( List.flatten xss ) -# 35405 "parsing/parser.ml" +# 35408 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1019 "parsing/parser.mly" +# 1022 "parsing/parser.mly" ( extra_sig _startpos _endpos _1 ) -# 35413 "parsing/parser.ml" +# 35416 "parsing/parser.ml" in -# 1778 "parsing/parser.mly" +# 1781 "parsing/parser.mly" ( _1 ) -# 35419 "parsing/parser.ml" +# 35422 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35447,9 +35450,9 @@ module Tables = struct let _v : (Parsetree.signature_item) = let _2 = let _1 = _1_inlined1 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 35453 "parsing/parser.ml" +# 35456 "parsing/parser.ml" in let _endpos__2_ = _endpos__1_inlined1_ in @@ -35457,10 +35460,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1793 "parsing/parser.mly" +# 1796 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mksig ~loc:_sloc (Psig_extension (_1, (add_docs_attrs docs _2))) ) -# 35464 "parsing/parser.ml" +# 35467 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35484,23 +35487,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.signature_item) = let _1 = let _1 = -# 1797 "parsing/parser.mly" +# 1800 "parsing/parser.mly" ( Psig_attribute _1 ) -# 35490 "parsing/parser.ml" +# 35493 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1067 "parsing/parser.mly" +# 1070 "parsing/parser.mly" ( mksig ~loc:_sloc _1 ) -# 35498 "parsing/parser.ml" +# 35501 "parsing/parser.ml" in -# 1799 "parsing/parser.mly" +# 1802 "parsing/parser.mly" ( _1 ) -# 35504 "parsing/parser.ml" +# 35507 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35524,23 +35527,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.signature_item) = let _1 = let _1 = -# 1802 "parsing/parser.mly" +# 1805 "parsing/parser.mly" ( psig_value _1 ) -# 35530 "parsing/parser.ml" +# 35533 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1084 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 35538 "parsing/parser.ml" +# 35541 "parsing/parser.ml" in -# 1834 "parsing/parser.mly" +# 1837 "parsing/parser.mly" ( _1 ) -# 35544 "parsing/parser.ml" +# 35547 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35564,23 +35567,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.signature_item) = let _1 = let _1 = -# 1804 "parsing/parser.mly" +# 1807 "parsing/parser.mly" ( psig_value _1 ) -# 35570 "parsing/parser.ml" +# 35573 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1084 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 35578 "parsing/parser.ml" +# 35581 "parsing/parser.ml" in -# 1834 "parsing/parser.mly" +# 1837 "parsing/parser.mly" ( _1 ) -# 35584 "parsing/parser.ml" +# 35587 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35615,26 +35618,26 @@ module Tables = struct let _1 = let _1 = let _1 = -# 1257 "parsing/parser.mly" +# 1260 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 35621 "parsing/parser.ml" +# 35624 "parsing/parser.ml" in -# 3230 "parsing/parser.mly" +# 3233 "parsing/parser.mly" ( _1 ) -# 35626 "parsing/parser.ml" +# 35629 "parsing/parser.ml" in -# 3213 "parsing/parser.mly" +# 3216 "parsing/parser.mly" ( _1 ) -# 35632 "parsing/parser.ml" +# 35635 "parsing/parser.ml" in -# 1806 "parsing/parser.mly" +# 1809 "parsing/parser.mly" ( psig_type _1 ) -# 35638 "parsing/parser.ml" +# 35641 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_bs_, _startpos_a_) in @@ -35642,15 +35645,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1084 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 35648 "parsing/parser.ml" +# 35651 "parsing/parser.ml" in -# 1834 "parsing/parser.mly" +# 1837 "parsing/parser.mly" ( _1 ) -# 35654 "parsing/parser.ml" +# 35657 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35685,26 +35688,26 @@ module Tables = struct let _1 = let _1 = let _1 = -# 1257 "parsing/parser.mly" +# 1260 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 35691 "parsing/parser.ml" +# 35694 "parsing/parser.ml" in -# 3230 "parsing/parser.mly" +# 3233 "parsing/parser.mly" ( _1 ) -# 35696 "parsing/parser.ml" +# 35699 "parsing/parser.ml" in -# 3218 "parsing/parser.mly" +# 3221 "parsing/parser.mly" ( _1 ) -# 35702 "parsing/parser.ml" +# 35705 "parsing/parser.ml" in -# 1808 "parsing/parser.mly" +# 1811 "parsing/parser.mly" ( psig_typesubst _1 ) -# 35708 "parsing/parser.ml" +# 35711 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_bs_, _startpos_a_) in @@ -35712,15 +35715,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1084 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 35718 "parsing/parser.ml" +# 35721 "parsing/parser.ml" in -# 1834 "parsing/parser.mly" +# 1837 "parsing/parser.mly" ( _1 ) -# 35724 "parsing/parser.ml" +# 35727 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35805,16 +35808,16 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 35811 "parsing/parser.ml" +# 35814 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let cs = -# 1249 "parsing/parser.mly" +# 1252 "parsing/parser.mly" ( List.rev xs ) -# 35818 "parsing/parser.ml" +# 35821 "parsing/parser.ml" in let tid = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in @@ -35822,46 +35825,46 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 35828 "parsing/parser.ml" +# 35831 "parsing/parser.ml" in let _4 = -# 4047 "parsing/parser.mly" +# 4050 "parsing/parser.mly" ( Recursive ) -# 35834 "parsing/parser.ml" +# 35837 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 35841 "parsing/parser.ml" +# 35844 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3511 "parsing/parser.mly" +# 3514 "parsing/parser.mly" ( let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in Te.mk tid cs ~params ~priv ~attrs ~docs, ext ) -# 35853 "parsing/parser.ml" +# 35856 "parsing/parser.ml" in -# 3498 "parsing/parser.mly" +# 3501 "parsing/parser.mly" ( _1 ) -# 35859 "parsing/parser.ml" +# 35862 "parsing/parser.ml" in -# 1810 "parsing/parser.mly" +# 1813 "parsing/parser.mly" ( psig_typext _1 ) -# 35865 "parsing/parser.ml" +# 35868 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined3_ in @@ -35869,15 +35872,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1084 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 35875 "parsing/parser.ml" +# 35878 "parsing/parser.ml" in -# 1834 "parsing/parser.mly" +# 1837 "parsing/parser.mly" ( _1 ) -# 35881 "parsing/parser.ml" +# 35884 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35969,16 +35972,16 @@ module Tables = struct let attrs2 = let _1 = _1_inlined4 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 35975 "parsing/parser.ml" +# 35978 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in let cs = -# 1249 "parsing/parser.mly" +# 1252 "parsing/parser.mly" ( List.rev xs ) -# 35982 "parsing/parser.ml" +# 35985 "parsing/parser.ml" in let tid = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in @@ -35986,9 +35989,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 35992 "parsing/parser.ml" +# 35995 "parsing/parser.ml" in let _4 = @@ -35997,41 +36000,41 @@ module Tables = struct let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in -# 4049 "parsing/parser.mly" +# 4052 "parsing/parser.mly" ( not_expecting _loc "nonrec flag" ) -# 36003 "parsing/parser.ml" +# 36006 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 36011 "parsing/parser.ml" +# 36014 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3511 "parsing/parser.mly" +# 3514 "parsing/parser.mly" ( let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in Te.mk tid cs ~params ~priv ~attrs ~docs, ext ) -# 36023 "parsing/parser.ml" +# 36026 "parsing/parser.ml" in -# 3498 "parsing/parser.mly" +# 3501 "parsing/parser.mly" ( _1 ) -# 36029 "parsing/parser.ml" +# 36032 "parsing/parser.ml" in -# 1810 "parsing/parser.mly" +# 1813 "parsing/parser.mly" ( psig_typext _1 ) -# 36035 "parsing/parser.ml" +# 36038 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined4_ in @@ -36039,15 +36042,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1084 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36045 "parsing/parser.ml" +# 36048 "parsing/parser.ml" in -# 1834 "parsing/parser.mly" +# 1837 "parsing/parser.mly" ( _1 ) -# 36051 "parsing/parser.ml" +# 36054 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36071,23 +36074,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.signature_item) = let _1 = let _1 = -# 1812 "parsing/parser.mly" +# 1815 "parsing/parser.mly" ( psig_exception _1 ) -# 36077 "parsing/parser.ml" +# 36080 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1084 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36085 "parsing/parser.ml" +# 36088 "parsing/parser.ml" in -# 1834 "parsing/parser.mly" +# 1837 "parsing/parser.mly" ( _1 ) -# 36091 "parsing/parser.ml" +# 36094 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36150,9 +36153,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 36156 "parsing/parser.ml" +# 36159 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -36162,37 +36165,37 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 36168 "parsing/parser.ml" +# 36171 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 36176 "parsing/parser.ml" +# 36179 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1843 "parsing/parser.mly" +# 1846 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in let docs = symbol_docs _sloc in Md.mk name body ~attrs ~loc ~docs, ext ) -# 36190 "parsing/parser.ml" +# 36193 "parsing/parser.ml" in -# 1814 "parsing/parser.mly" +# 1817 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_module body, ext) ) -# 36196 "parsing/parser.ml" +# 36199 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined3_ in @@ -36200,15 +36203,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1084 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36206 "parsing/parser.ml" +# 36209 "parsing/parser.ml" in -# 1834 "parsing/parser.mly" +# 1837 "parsing/parser.mly" ( _1 ) -# 36212 "parsing/parser.ml" +# 36215 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36278,9 +36281,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined4 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 36284 "parsing/parser.ml" +# 36287 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in @@ -36291,9 +36294,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 36297 "parsing/parser.ml" +# 36300 "parsing/parser.ml" in let (_endpos_id_, _startpos_id_) = (_endpos__1_, _startpos__1_) in @@ -36301,9 +36304,9 @@ module Tables = struct let _symbolstartpos = _startpos_id_ in let _sloc = (_symbolstartpos, _endpos) in -# 1880 "parsing/parser.mly" +# 1883 "parsing/parser.mly" ( Mty.alias ~loc:(make_loc _sloc) id ) -# 36307 "parsing/parser.ml" +# 36310 "parsing/parser.ml" in let name = @@ -36312,37 +36315,37 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 36318 "parsing/parser.ml" +# 36321 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 36326 "parsing/parser.ml" +# 36329 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1871 "parsing/parser.mly" +# 1874 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in let docs = symbol_docs _sloc in Md.mk name body ~attrs ~loc ~docs, ext ) -# 36340 "parsing/parser.ml" +# 36343 "parsing/parser.ml" in -# 1816 "parsing/parser.mly" +# 1819 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_module body, ext) ) -# 36346 "parsing/parser.ml" +# 36349 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined4_ in @@ -36350,15 +36353,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1084 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36356 "parsing/parser.ml" +# 36359 "parsing/parser.ml" in -# 1834 "parsing/parser.mly" +# 1837 "parsing/parser.mly" ( _1 ) -# 36362 "parsing/parser.ml" +# 36365 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36382,23 +36385,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.signature_item) = let _1 = let _1 = -# 1818 "parsing/parser.mly" +# 1821 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_modsubst body, ext) ) -# 36388 "parsing/parser.ml" +# 36391 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1084 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36396 "parsing/parser.ml" +# 36399 "parsing/parser.ml" in -# 1834 "parsing/parser.mly" +# 1837 "parsing/parser.mly" ( _1 ) -# 36402 "parsing/parser.ml" +# 36405 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36484,9 +36487,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 36490 "parsing/parser.ml" +# 36493 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -36496,49 +36499,49 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 36502 "parsing/parser.ml" +# 36505 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 36510 "parsing/parser.ml" +# 36513 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1914 "parsing/parser.mly" +# 1917 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in let docs = symbol_docs _sloc in ext, Md.mk name mty ~attrs ~loc ~docs ) -# 36524 "parsing/parser.ml" +# 36527 "parsing/parser.ml" in -# 1257 "parsing/parser.mly" +# 1260 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 36530 "parsing/parser.ml" +# 36533 "parsing/parser.ml" in -# 1903 "parsing/parser.mly" +# 1906 "parsing/parser.mly" ( _1 ) -# 36536 "parsing/parser.ml" +# 36539 "parsing/parser.ml" in -# 1820 "parsing/parser.mly" +# 1823 "parsing/parser.mly" ( let (ext, l) = _1 in (Psig_recmodule l, ext) ) -# 36542 "parsing/parser.ml" +# 36545 "parsing/parser.ml" in let _endpos__1_ = _endpos_bs_ in @@ -36546,15 +36549,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1084 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36552 "parsing/parser.ml" +# 36555 "parsing/parser.ml" in -# 1834 "parsing/parser.mly" +# 1837 "parsing/parser.mly" ( _1 ) -# 36558 "parsing/parser.ml" +# 36561 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36578,23 +36581,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.signature_item) = let _1 = let _1 = -# 1822 "parsing/parser.mly" +# 1825 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_modtype body, ext) ) -# 36584 "parsing/parser.ml" +# 36587 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1084 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36592 "parsing/parser.ml" +# 36595 "parsing/parser.ml" in -# 1834 "parsing/parser.mly" +# 1837 "parsing/parser.mly" ( _1 ) -# 36598 "parsing/parser.ml" +# 36601 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36618,23 +36621,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.signature_item) = let _1 = let _1 = -# 1824 "parsing/parser.mly" +# 1827 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_modtypesubst body, ext) ) -# 36624 "parsing/parser.ml" +# 36627 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1084 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36632 "parsing/parser.ml" +# 36635 "parsing/parser.ml" in -# 1834 "parsing/parser.mly" +# 1837 "parsing/parser.mly" ( _1 ) -# 36638 "parsing/parser.ml" +# 36641 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36658,23 +36661,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.signature_item) = let _1 = let _1 = -# 1826 "parsing/parser.mly" +# 1829 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_open body, ext) ) -# 36664 "parsing/parser.ml" +# 36667 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1084 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36672 "parsing/parser.ml" +# 36675 "parsing/parser.ml" in -# 1834 "parsing/parser.mly" +# 1837 "parsing/parser.mly" ( _1 ) -# 36678 "parsing/parser.ml" +# 36681 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36730,35 +36733,35 @@ module Tables = struct let attrs2 = let _1 = _1_inlined1 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 36736 "parsing/parser.ml" +# 36739 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined1_ in let attrs1 = -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 36743 "parsing/parser.ml" +# 36746 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos_attrs0_ in let _sloc = (_symbolstartpos, _endpos) in -# 1670 "parsing/parser.mly" +# 1673 "parsing/parser.mly" ( let attrs = attrs0 @ attrs1 @ attrs2 in let loc = make_loc _sloc in let docs = symbol_docs _sloc in Incl.mk thing ~attrs ~loc ~docs, ext ) -# 36756 "parsing/parser.ml" +# 36759 "parsing/parser.ml" in -# 1828 "parsing/parser.mly" +# 1831 "parsing/parser.mly" ( psig_include _1 ) -# 36762 "parsing/parser.ml" +# 36765 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_attrs0_) in @@ -36766,15 +36769,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1084 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36772 "parsing/parser.ml" +# 36775 "parsing/parser.ml" in -# 1834 "parsing/parser.mly" +# 1837 "parsing/parser.mly" ( _1 ) -# 36778 "parsing/parser.ml" +# 36781 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36851,9 +36854,9 @@ module Tables = struct let cty : (Parsetree.class_type) = Obj.magic cty in let _7 : unit = Obj.magic _7 in let _1_inlined2 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 36857 "parsing/parser.ml" +# 36860 "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 @@ -36871,9 +36874,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 36877 "parsing/parser.ml" +# 36880 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -36883,24 +36886,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 36889 "parsing/parser.ml" +# 36892 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 36897 "parsing/parser.ml" +# 36900 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2261 "parsing/parser.mly" +# 2264 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in @@ -36908,25 +36911,25 @@ module Tables = struct ext, Ci.mk id cty ~virt ~params ~attrs ~loc ~docs ) -# 36912 "parsing/parser.ml" +# 36915 "parsing/parser.ml" in -# 1257 "parsing/parser.mly" +# 1260 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 36918 "parsing/parser.ml" +# 36921 "parsing/parser.ml" in -# 2249 "parsing/parser.mly" +# 2252 "parsing/parser.mly" ( _1 ) -# 36924 "parsing/parser.ml" +# 36927 "parsing/parser.ml" in -# 1830 "parsing/parser.mly" +# 1833 "parsing/parser.mly" ( let (ext, l) = _1 in (Psig_class l, ext) ) -# 36930 "parsing/parser.ml" +# 36933 "parsing/parser.ml" in let _endpos__1_ = _endpos_bs_ in @@ -36934,15 +36937,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1084 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36940 "parsing/parser.ml" +# 36943 "parsing/parser.ml" in -# 1834 "parsing/parser.mly" +# 1837 "parsing/parser.mly" ( _1 ) -# 36946 "parsing/parser.ml" +# 36949 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36966,23 +36969,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.signature_item) = let _1 = let _1 = -# 1832 "parsing/parser.mly" +# 1835 "parsing/parser.mly" ( let (ext, l) = _1 in (Psig_class_type l, ext) ) -# 36972 "parsing/parser.ml" +# 36975 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1084 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36980 "parsing/parser.ml" +# 36983 "parsing/parser.ml" in -# 1834 "parsing/parser.mly" +# 1837 "parsing/parser.mly" ( _1 ) -# 36986 "parsing/parser.ml" +# 36989 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37005,9 +37008,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.constant) = -# 3876 "parsing/parser.mly" +# 3879 "parsing/parser.mly" ( _1 ) -# 37011 "parsing/parser.ml" +# 37014 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37032,18 +37035,18 @@ module Tables = struct }; } = _menhir_stack in let _2 : ( -# 825 "parsing/parser.mly" +# 828 "parsing/parser.mly" (string * char option) -# 37038 "parsing/parser.ml" +# 37041 "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) = -# 3877 "parsing/parser.mly" +# 3880 "parsing/parser.mly" ( let (n, m) = _2 in Pconst_integer("-" ^ n, m) ) -# 37047 "parsing/parser.ml" +# 37050 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37068,18 +37071,18 @@ module Tables = struct }; } = _menhir_stack in let _2 : ( -# 803 "parsing/parser.mly" +# 806 "parsing/parser.mly" (string * char option) -# 37074 "parsing/parser.ml" +# 37077 "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) = -# 3878 "parsing/parser.mly" +# 3881 "parsing/parser.mly" ( let (f, m) = _2 in Pconst_float("-" ^ f, m) ) -# 37083 "parsing/parser.ml" +# 37086 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37104,18 +37107,18 @@ module Tables = struct }; } = _menhir_stack in let _2 : ( -# 825 "parsing/parser.mly" +# 828 "parsing/parser.mly" (string * char option) -# 37110 "parsing/parser.ml" +# 37113 "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) = -# 3879 "parsing/parser.mly" +# 3882 "parsing/parser.mly" ( let (n, m) = _2 in Pconst_integer (n, m) ) -# 37119 "parsing/parser.ml" +# 37122 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37140,18 +37143,18 @@ module Tables = struct }; } = _menhir_stack in let _2 : ( -# 803 "parsing/parser.mly" +# 806 "parsing/parser.mly" (string * char option) -# 37146 "parsing/parser.ml" +# 37149 "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) = -# 3880 "parsing/parser.mly" +# 3883 "parsing/parser.mly" ( let (f, m) = _2 in Pconst_float(f, m) ) -# 37155 "parsing/parser.ml" +# 37158 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37192,18 +37195,18 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 3142 "parsing/parser.mly" +# 3145 "parsing/parser.mly" ( let fields, closed = _1 in let closed = match closed with Some () -> Open | None -> Closed in fields, closed ) -# 37200 "parsing/parser.ml" +# 37203 "parsing/parser.ml" in -# 3109 "parsing/parser.mly" +# 3112 "parsing/parser.mly" ( let (fields, closed) = _2 in Ppat_record(fields, closed) ) -# 37207 "parsing/parser.ml" +# 37210 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -37211,15 +37214,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 37217 "parsing/parser.ml" +# 37220 "parsing/parser.ml" in -# 3127 "parsing/parser.mly" +# 3130 "parsing/parser.mly" ( _1 ) -# 37223 "parsing/parser.ml" +# 37226 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37260,19 +37263,19 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 3142 "parsing/parser.mly" +# 3145 "parsing/parser.mly" ( let fields, closed = _1 in let closed = match closed with Some () -> Open | None -> Closed in fields, closed ) -# 37268 "parsing/parser.ml" +# 37271 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 3112 "parsing/parser.mly" +# 3115 "parsing/parser.mly" ( unclosed "{" _loc__1_ "}" _loc__3_ ) -# 37276 "parsing/parser.ml" +# 37279 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -37280,15 +37283,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 37286 "parsing/parser.ml" +# 37289 "parsing/parser.ml" in -# 3127 "parsing/parser.mly" +# 3130 "parsing/parser.mly" ( _1 ) -# 37292 "parsing/parser.ml" +# 37295 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37327,15 +37330,15 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = let _1 = let _2 = -# 3136 "parsing/parser.mly" +# 3139 "parsing/parser.mly" ( ps ) -# 37333 "parsing/parser.ml" +# 37336 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3114 "parsing/parser.mly" +# 3117 "parsing/parser.mly" ( fst (mktailpat _loc__3_ _2) ) -# 37339 "parsing/parser.ml" +# 37342 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -37343,15 +37346,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 37349 "parsing/parser.ml" +# 37352 "parsing/parser.ml" in -# 3127 "parsing/parser.mly" +# 3130 "parsing/parser.mly" ( _1 ) -# 37355 "parsing/parser.ml" +# 37358 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37390,16 +37393,16 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = let _1 = let _2 = -# 3136 "parsing/parser.mly" +# 3139 "parsing/parser.mly" ( ps ) -# 37396 "parsing/parser.ml" +# 37399 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 3116 "parsing/parser.mly" +# 3119 "parsing/parser.mly" ( unclosed "[" _loc__1_ "]" _loc__3_ ) -# 37403 "parsing/parser.ml" +# 37406 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -37407,15 +37410,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 37413 "parsing/parser.ml" +# 37416 "parsing/parser.ml" in -# 3127 "parsing/parser.mly" +# 3130 "parsing/parser.mly" ( _1 ) -# 37419 "parsing/parser.ml" +# 37422 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37456,29 +37459,29 @@ module Tables = struct let _1 = let _1 = let _2 = -# 3136 "parsing/parser.mly" +# 3139 "parsing/parser.mly" ( ps ) -# 37462 "parsing/parser.ml" +# 37465 "parsing/parser.ml" in -# 2617 "parsing/parser.mly" +# 2620 "parsing/parser.mly" ( Generic_array.Literal _2 ) -# 37467 "parsing/parser.ml" +# 37470 "parsing/parser.ml" in -# 2639 "parsing/parser.mly" +# 2642 "parsing/parser.mly" ( _1 ) -# 37473 "parsing/parser.ml" +# 37476 "parsing/parser.ml" in -# 3118 "parsing/parser.mly" +# 3121 "parsing/parser.mly" ( Generic_array.pattern "[|" "|]" (fun elts -> Ppat_array elts) _1 ) -# 37482 "parsing/parser.ml" +# 37485 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -37486,15 +37489,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 37492 "parsing/parser.ml" +# 37495 "parsing/parser.ml" in -# 3127 "parsing/parser.mly" +# 3130 "parsing/parser.mly" ( _1 ) -# 37498 "parsing/parser.ml" +# 37501 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37535,31 +37538,31 @@ module Tables = struct let _1 = let _1 = let _2 = -# 3136 "parsing/parser.mly" +# 3139 "parsing/parser.mly" ( ps ) -# 37541 "parsing/parser.ml" +# 37544 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2619 "parsing/parser.mly" +# 2622 "parsing/parser.mly" ( Generic_array.Unclosed(_loc__1_,_loc__3_) ) -# 37548 "parsing/parser.ml" +# 37551 "parsing/parser.ml" in -# 2639 "parsing/parser.mly" +# 2642 "parsing/parser.mly" ( _1 ) -# 37554 "parsing/parser.ml" +# 37557 "parsing/parser.ml" in -# 3118 "parsing/parser.mly" +# 3121 "parsing/parser.mly" ( Generic_array.pattern "[|" "|]" (fun elts -> Ppat_array elts) _1 ) -# 37563 "parsing/parser.ml" +# 37566 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -37567,15 +37570,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 37573 "parsing/parser.ml" +# 37576 "parsing/parser.ml" in -# 3127 "parsing/parser.mly" +# 3130 "parsing/parser.mly" ( _1 ) -# 37579 "parsing/parser.ml" +# 37582 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37608,23 +37611,23 @@ module Tables = struct let _1 = let _1 = let _1 = -# 2621 "parsing/parser.mly" +# 2624 "parsing/parser.mly" ( Generic_array.Literal [] ) -# 37614 "parsing/parser.ml" +# 37617 "parsing/parser.ml" in -# 2639 "parsing/parser.mly" +# 2642 "parsing/parser.mly" ( _1 ) -# 37619 "parsing/parser.ml" +# 37622 "parsing/parser.ml" in -# 3118 "parsing/parser.mly" +# 3121 "parsing/parser.mly" ( Generic_array.pattern "[|" "|]" (fun elts -> Ppat_array elts) _1 ) -# 37628 "parsing/parser.ml" +# 37631 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -37632,15 +37635,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 37638 "parsing/parser.ml" +# 37641 "parsing/parser.ml" in -# 3127 "parsing/parser.mly" +# 3130 "parsing/parser.mly" ( _1 ) -# 37644 "parsing/parser.ml" +# 37647 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37681,20 +37684,20 @@ module Tables = struct let _1 = let _1 = let _2 = -# 3136 "parsing/parser.mly" +# 3139 "parsing/parser.mly" ( ps ) -# 37687 "parsing/parser.ml" +# 37690 "parsing/parser.ml" in -# 2617 "parsing/parser.mly" +# 2620 "parsing/parser.mly" ( Generic_array.Literal _2 ) -# 37692 "parsing/parser.ml" +# 37695 "parsing/parser.ml" in -# 2639 "parsing/parser.mly" +# 2642 "parsing/parser.mly" ( _1 ) -# 37698 "parsing/parser.ml" +# 37701 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -37702,12 +37705,12 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3123 "parsing/parser.mly" +# 3126 "parsing/parser.mly" ( Generic_array.pattern "[:" ":]" (ppat_iarray _sloc) _1 ) -# 37711 "parsing/parser.ml" +# 37714 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -37715,15 +37718,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 37721 "parsing/parser.ml" +# 37724 "parsing/parser.ml" in -# 3127 "parsing/parser.mly" +# 3130 "parsing/parser.mly" ( _1 ) -# 37727 "parsing/parser.ml" +# 37730 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37764,22 +37767,22 @@ module Tables = struct let _1 = let _1 = let _2 = -# 3136 "parsing/parser.mly" +# 3139 "parsing/parser.mly" ( ps ) -# 37770 "parsing/parser.ml" +# 37773 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2619 "parsing/parser.mly" +# 2622 "parsing/parser.mly" ( Generic_array.Unclosed(_loc__1_,_loc__3_) ) -# 37777 "parsing/parser.ml" +# 37780 "parsing/parser.ml" in -# 2639 "parsing/parser.mly" +# 2642 "parsing/parser.mly" ( _1 ) -# 37783 "parsing/parser.ml" +# 37786 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -37787,12 +37790,12 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3123 "parsing/parser.mly" +# 3126 "parsing/parser.mly" ( Generic_array.pattern "[:" ":]" (ppat_iarray _sloc) _1 ) -# 37796 "parsing/parser.ml" +# 37799 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -37800,15 +37803,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 37806 "parsing/parser.ml" +# 37809 "parsing/parser.ml" in -# 3127 "parsing/parser.mly" +# 3130 "parsing/parser.mly" ( _1 ) -# 37812 "parsing/parser.ml" +# 37815 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37841,14 +37844,14 @@ module Tables = struct let _1 = let _1 = let _1 = -# 2621 "parsing/parser.mly" +# 2624 "parsing/parser.mly" ( Generic_array.Literal [] ) -# 37847 "parsing/parser.ml" +# 37850 "parsing/parser.ml" in -# 2639 "parsing/parser.mly" +# 2642 "parsing/parser.mly" ( _1 ) -# 37852 "parsing/parser.ml" +# 37855 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -37856,12 +37859,12 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3123 "parsing/parser.mly" +# 3126 "parsing/parser.mly" ( Generic_array.pattern "[:" ":]" (ppat_iarray _sloc) _1 ) -# 37865 "parsing/parser.ml" +# 37868 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -37869,15 +37872,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 37875 "parsing/parser.ml" +# 37878 "parsing/parser.ml" in -# 3127 "parsing/parser.mly" +# 3130 "parsing/parser.mly" ( _1 ) -# 37881 "parsing/parser.ml" +# 37884 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37917,9 +37920,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2526 "parsing/parser.mly" +# 2529 "parsing/parser.mly" ( reloc_exp ~loc:_sloc _2 ) -# 37923 "parsing/parser.ml" +# 37926 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37958,9 +37961,9 @@ module Tables = struct let _v : (Parsetree.expression) = let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2528 "parsing/parser.mly" +# 2531 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) -# 37964 "parsing/parser.ml" +# 37967 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38007,9 +38010,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2530 "parsing/parser.mly" +# 2533 "parsing/parser.mly" ( mkexp_constraint ~loc:_sloc _2 _3 ) -# 38013 "parsing/parser.ml" +# 38016 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38061,14 +38064,14 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2531 "parsing/parser.mly" +# 2534 "parsing/parser.mly" ( None ) -# 38067 "parsing/parser.ml" +# 38070 "parsing/parser.ml" in -# 2418 "parsing/parser.mly" +# 2421 "parsing/parser.mly" ( array, d, Paren, i, r ) -# 38072 "parsing/parser.ml" +# 38075 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -38076,9 +38079,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2532 "parsing/parser.mly" +# 2535 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 38082 "parsing/parser.ml" +# 38085 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38130,14 +38133,14 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2531 "parsing/parser.mly" +# 2534 "parsing/parser.mly" ( None ) -# 38136 "parsing/parser.ml" +# 38139 "parsing/parser.ml" in -# 2420 "parsing/parser.mly" +# 2423 "parsing/parser.mly" ( array, d, Brace, i, r ) -# 38141 "parsing/parser.ml" +# 38144 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -38145,9 +38148,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2532 "parsing/parser.mly" +# 2535 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 38151 "parsing/parser.ml" +# 38154 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38199,14 +38202,14 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2531 "parsing/parser.mly" +# 2534 "parsing/parser.mly" ( None ) -# 38205 "parsing/parser.ml" +# 38208 "parsing/parser.ml" in -# 2422 "parsing/parser.mly" +# 2425 "parsing/parser.mly" ( array, d, Bracket, i, r ) -# 38210 "parsing/parser.ml" +# 38213 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -38214,9 +38217,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2532 "parsing/parser.mly" +# 2535 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 38220 "parsing/parser.ml" +# 38223 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38262,9 +38265,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 820 "parsing/parser.mly" +# 823 "parsing/parser.mly" (string) -# 38268 "parsing/parser.ml" +# 38271 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -38272,31 +38275,31 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2535 "parsing/parser.mly" +# 2538 "parsing/parser.mly" ( None ) -# 38278 "parsing/parser.ml" +# 38281 "parsing/parser.ml" in let i = -# 2964 "parsing/parser.mly" +# 2967 "parsing/parser.mly" ( es ) -# 38283 "parsing/parser.ml" +# 38286 "parsing/parser.ml" in let d = let _1 = # 124 "" ( None ) -# 38289 "parsing/parser.ml" +# 38292 "parsing/parser.ml" in -# 2434 "parsing/parser.mly" +# 2437 "parsing/parser.mly" ( _1, _2 ) -# 38294 "parsing/parser.ml" +# 38297 "parsing/parser.ml" in -# 2418 "parsing/parser.mly" +# 2421 "parsing/parser.mly" ( array, d, Paren, i, r ) -# 38300 "parsing/parser.ml" +# 38303 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -38304,9 +38307,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2536 "parsing/parser.mly" +# 2539 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 38310 "parsing/parser.ml" +# 38313 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38364,9 +38367,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 820 "parsing/parser.mly" +# 823 "parsing/parser.mly" (string) -# 38370 "parsing/parser.ml" +# 38373 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -38376,39 +38379,39 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2535 "parsing/parser.mly" +# 2538 "parsing/parser.mly" ( None ) -# 38382 "parsing/parser.ml" +# 38385 "parsing/parser.ml" in let i = -# 2964 "parsing/parser.mly" +# 2967 "parsing/parser.mly" ( es ) -# 38387 "parsing/parser.ml" +# 38390 "parsing/parser.ml" in let d = let _1 = let _2 = _2_inlined1 in let x = -# 2434 "parsing/parser.mly" +# 2437 "parsing/parser.mly" (_2) -# 38395 "parsing/parser.ml" +# 38398 "parsing/parser.ml" in # 126 "" ( Some x ) -# 38400 "parsing/parser.ml" +# 38403 "parsing/parser.ml" in -# 2434 "parsing/parser.mly" +# 2437 "parsing/parser.mly" ( _1, _2 ) -# 38406 "parsing/parser.ml" +# 38409 "parsing/parser.ml" in -# 2418 "parsing/parser.mly" +# 2421 "parsing/parser.mly" ( array, d, Paren, i, r ) -# 38412 "parsing/parser.ml" +# 38415 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -38416,9 +38419,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2536 "parsing/parser.mly" +# 2539 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 38422 "parsing/parser.ml" +# 38425 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38464,9 +38467,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 820 "parsing/parser.mly" +# 823 "parsing/parser.mly" (string) -# 38470 "parsing/parser.ml" +# 38473 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -38474,31 +38477,31 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2535 "parsing/parser.mly" +# 2538 "parsing/parser.mly" ( None ) -# 38480 "parsing/parser.ml" +# 38483 "parsing/parser.ml" in let i = -# 2964 "parsing/parser.mly" +# 2967 "parsing/parser.mly" ( es ) -# 38485 "parsing/parser.ml" +# 38488 "parsing/parser.ml" in let d = let _1 = # 124 "" ( None ) -# 38491 "parsing/parser.ml" +# 38494 "parsing/parser.ml" in -# 2434 "parsing/parser.mly" +# 2437 "parsing/parser.mly" ( _1, _2 ) -# 38496 "parsing/parser.ml" +# 38499 "parsing/parser.ml" in -# 2420 "parsing/parser.mly" +# 2423 "parsing/parser.mly" ( array, d, Brace, i, r ) -# 38502 "parsing/parser.ml" +# 38505 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -38506,9 +38509,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2536 "parsing/parser.mly" +# 2539 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 38512 "parsing/parser.ml" +# 38515 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38566,9 +38569,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 820 "parsing/parser.mly" +# 823 "parsing/parser.mly" (string) -# 38572 "parsing/parser.ml" +# 38575 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -38578,39 +38581,39 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2535 "parsing/parser.mly" +# 2538 "parsing/parser.mly" ( None ) -# 38584 "parsing/parser.ml" +# 38587 "parsing/parser.ml" in let i = -# 2964 "parsing/parser.mly" +# 2967 "parsing/parser.mly" ( es ) -# 38589 "parsing/parser.ml" +# 38592 "parsing/parser.ml" in let d = let _1 = let _2 = _2_inlined1 in let x = -# 2434 "parsing/parser.mly" +# 2437 "parsing/parser.mly" (_2) -# 38597 "parsing/parser.ml" +# 38600 "parsing/parser.ml" in # 126 "" ( Some x ) -# 38602 "parsing/parser.ml" +# 38605 "parsing/parser.ml" in -# 2434 "parsing/parser.mly" +# 2437 "parsing/parser.mly" ( _1, _2 ) -# 38608 "parsing/parser.ml" +# 38611 "parsing/parser.ml" in -# 2420 "parsing/parser.mly" +# 2423 "parsing/parser.mly" ( array, d, Brace, i, r ) -# 38614 "parsing/parser.ml" +# 38617 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -38618,9 +38621,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2536 "parsing/parser.mly" +# 2539 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 38624 "parsing/parser.ml" +# 38627 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38666,9 +38669,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 820 "parsing/parser.mly" +# 823 "parsing/parser.mly" (string) -# 38672 "parsing/parser.ml" +# 38675 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -38676,31 +38679,31 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2535 "parsing/parser.mly" +# 2538 "parsing/parser.mly" ( None ) -# 38682 "parsing/parser.ml" +# 38685 "parsing/parser.ml" in let i = -# 2964 "parsing/parser.mly" +# 2967 "parsing/parser.mly" ( es ) -# 38687 "parsing/parser.ml" +# 38690 "parsing/parser.ml" in let d = let _1 = # 124 "" ( None ) -# 38693 "parsing/parser.ml" +# 38696 "parsing/parser.ml" in -# 2434 "parsing/parser.mly" +# 2437 "parsing/parser.mly" ( _1, _2 ) -# 38698 "parsing/parser.ml" +# 38701 "parsing/parser.ml" in -# 2422 "parsing/parser.mly" +# 2425 "parsing/parser.mly" ( array, d, Bracket, i, r ) -# 38704 "parsing/parser.ml" +# 38707 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -38708,9 +38711,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2536 "parsing/parser.mly" +# 2539 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 38714 "parsing/parser.ml" +# 38717 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38768,9 +38771,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 820 "parsing/parser.mly" +# 823 "parsing/parser.mly" (string) -# 38774 "parsing/parser.ml" +# 38777 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -38780,39 +38783,39 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2535 "parsing/parser.mly" +# 2538 "parsing/parser.mly" ( None ) -# 38786 "parsing/parser.ml" +# 38789 "parsing/parser.ml" in let i = -# 2964 "parsing/parser.mly" +# 2967 "parsing/parser.mly" ( es ) -# 38791 "parsing/parser.ml" +# 38794 "parsing/parser.ml" in let d = let _1 = let _2 = _2_inlined1 in let x = -# 2434 "parsing/parser.mly" +# 2437 "parsing/parser.mly" (_2) -# 38799 "parsing/parser.ml" +# 38802 "parsing/parser.ml" in # 126 "" ( Some x ) -# 38804 "parsing/parser.ml" +# 38807 "parsing/parser.ml" in -# 2434 "parsing/parser.mly" +# 2437 "parsing/parser.mly" ( _1, _2 ) -# 38810 "parsing/parser.ml" +# 38813 "parsing/parser.ml" in -# 2422 "parsing/parser.mly" +# 2425 "parsing/parser.mly" ( array, d, Bracket, i, r ) -# 38816 "parsing/parser.ml" +# 38819 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -38820,9 +38823,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2536 "parsing/parser.mly" +# 2539 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 38826 "parsing/parser.ml" +# 38829 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38876,15 +38879,15 @@ module Tables = struct let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in -# 2427 "parsing/parser.mly" +# 2430 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Paren _loc__e_ ) -# 38882 "parsing/parser.ml" +# 38885 "parsing/parser.ml" in -# 2537 "parsing/parser.mly" +# 2540 "parsing/parser.mly" ( _1 ) -# 38888 "parsing/parser.ml" +# 38891 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38938,15 +38941,15 @@ module Tables = struct let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in -# 2429 "parsing/parser.mly" +# 2432 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Brace _loc__e_ ) -# 38944 "parsing/parser.ml" +# 38947 "parsing/parser.ml" in -# 2537 "parsing/parser.mly" +# 2540 "parsing/parser.mly" ( _1 ) -# 38950 "parsing/parser.ml" +# 38953 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39000,15 +39003,15 @@ module Tables = struct let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in -# 2431 "parsing/parser.mly" +# 2434 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Bracket _loc__e_ ) -# 39006 "parsing/parser.ml" +# 39009 "parsing/parser.ml" in -# 2537 "parsing/parser.mly" +# 2540 "parsing/parser.mly" ( _1 ) -# 39012 "parsing/parser.ml" +# 39015 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39054,9 +39057,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _p : unit = Obj.magic _p in let _2 : ( -# 820 "parsing/parser.mly" +# 823 "parsing/parser.mly" (string) -# 39060 "parsing/parser.ml" +# 39063 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -39064,34 +39067,34 @@ module Tables = struct let _endpos = _endpos__e_ in let _v : (Parsetree.expression) = let _1 = let _4 = -# 2964 "parsing/parser.mly" +# 2967 "parsing/parser.mly" ( es ) -# 39070 "parsing/parser.ml" +# 39073 "parsing/parser.ml" in let _2 = let _1 = # 124 "" ( None ) -# 39076 "parsing/parser.ml" +# 39079 "parsing/parser.ml" in -# 2434 "parsing/parser.mly" +# 2437 "parsing/parser.mly" ( _1, _2 ) -# 39081 "parsing/parser.ml" +# 39084 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in -# 2427 "parsing/parser.mly" +# 2430 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Paren _loc__e_ ) -# 39089 "parsing/parser.ml" +# 39092 "parsing/parser.ml" in -# 2538 "parsing/parser.mly" +# 2541 "parsing/parser.mly" ( _1 ) -# 39095 "parsing/parser.ml" +# 39098 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39149,9 +39152,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _p : unit = Obj.magic _p in let _2 : ( -# 820 "parsing/parser.mly" +# 823 "parsing/parser.mly" (string) -# 39155 "parsing/parser.ml" +# 39158 "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 @@ -39161,42 +39164,42 @@ module Tables = struct let _endpos = _endpos__e_ in let _v : (Parsetree.expression) = let _1 = let _4 = -# 2964 "parsing/parser.mly" +# 2967 "parsing/parser.mly" ( es ) -# 39167 "parsing/parser.ml" +# 39170 "parsing/parser.ml" in let _2 = let _1 = let _2 = _2_inlined1 in let x = -# 2434 "parsing/parser.mly" +# 2437 "parsing/parser.mly" (_2) -# 39175 "parsing/parser.ml" +# 39178 "parsing/parser.ml" in # 126 "" ( Some x ) -# 39180 "parsing/parser.ml" +# 39183 "parsing/parser.ml" in -# 2434 "parsing/parser.mly" +# 2437 "parsing/parser.mly" ( _1, _2 ) -# 39186 "parsing/parser.ml" +# 39189 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in -# 2427 "parsing/parser.mly" +# 2430 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Paren _loc__e_ ) -# 39194 "parsing/parser.ml" +# 39197 "parsing/parser.ml" in -# 2538 "parsing/parser.mly" +# 2541 "parsing/parser.mly" ( _1 ) -# 39200 "parsing/parser.ml" +# 39203 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39242,9 +39245,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _p : unit = Obj.magic _p in let _2 : ( -# 820 "parsing/parser.mly" +# 823 "parsing/parser.mly" (string) -# 39248 "parsing/parser.ml" +# 39251 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -39252,34 +39255,34 @@ module Tables = struct let _endpos = _endpos__e_ in let _v : (Parsetree.expression) = let _1 = let _4 = -# 2964 "parsing/parser.mly" +# 2967 "parsing/parser.mly" ( es ) -# 39258 "parsing/parser.ml" +# 39261 "parsing/parser.ml" in let _2 = let _1 = # 124 "" ( None ) -# 39264 "parsing/parser.ml" +# 39267 "parsing/parser.ml" in -# 2434 "parsing/parser.mly" +# 2437 "parsing/parser.mly" ( _1, _2 ) -# 39269 "parsing/parser.ml" +# 39272 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in -# 2429 "parsing/parser.mly" +# 2432 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Brace _loc__e_ ) -# 39277 "parsing/parser.ml" +# 39280 "parsing/parser.ml" in -# 2538 "parsing/parser.mly" +# 2541 "parsing/parser.mly" ( _1 ) -# 39283 "parsing/parser.ml" +# 39286 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39337,9 +39340,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _p : unit = Obj.magic _p in let _2 : ( -# 820 "parsing/parser.mly" +# 823 "parsing/parser.mly" (string) -# 39343 "parsing/parser.ml" +# 39346 "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 @@ -39349,42 +39352,42 @@ module Tables = struct let _endpos = _endpos__e_ in let _v : (Parsetree.expression) = let _1 = let _4 = -# 2964 "parsing/parser.mly" +# 2967 "parsing/parser.mly" ( es ) -# 39355 "parsing/parser.ml" +# 39358 "parsing/parser.ml" in let _2 = let _1 = let _2 = _2_inlined1 in let x = -# 2434 "parsing/parser.mly" +# 2437 "parsing/parser.mly" (_2) -# 39363 "parsing/parser.ml" +# 39366 "parsing/parser.ml" in # 126 "" ( Some x ) -# 39368 "parsing/parser.ml" +# 39371 "parsing/parser.ml" in -# 2434 "parsing/parser.mly" +# 2437 "parsing/parser.mly" ( _1, _2 ) -# 39374 "parsing/parser.ml" +# 39377 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in -# 2429 "parsing/parser.mly" +# 2432 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Brace _loc__e_ ) -# 39382 "parsing/parser.ml" +# 39385 "parsing/parser.ml" in -# 2538 "parsing/parser.mly" +# 2541 "parsing/parser.mly" ( _1 ) -# 39388 "parsing/parser.ml" +# 39391 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39430,9 +39433,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _p : unit = Obj.magic _p in let _2 : ( -# 820 "parsing/parser.mly" +# 823 "parsing/parser.mly" (string) -# 39436 "parsing/parser.ml" +# 39439 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -39440,34 +39443,34 @@ module Tables = struct let _endpos = _endpos__e_ in let _v : (Parsetree.expression) = let _1 = let _4 = -# 2964 "parsing/parser.mly" +# 2967 "parsing/parser.mly" ( es ) -# 39446 "parsing/parser.ml" +# 39449 "parsing/parser.ml" in let _2 = let _1 = # 124 "" ( None ) -# 39452 "parsing/parser.ml" +# 39455 "parsing/parser.ml" in -# 2434 "parsing/parser.mly" +# 2437 "parsing/parser.mly" ( _1, _2 ) -# 39457 "parsing/parser.ml" +# 39460 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in -# 2431 "parsing/parser.mly" +# 2434 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Bracket _loc__e_ ) -# 39465 "parsing/parser.ml" +# 39468 "parsing/parser.ml" in -# 2538 "parsing/parser.mly" +# 2541 "parsing/parser.mly" ( _1 ) -# 39471 "parsing/parser.ml" +# 39474 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39525,9 +39528,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _p : unit = Obj.magic _p in let _2 : ( -# 820 "parsing/parser.mly" +# 823 "parsing/parser.mly" (string) -# 39531 "parsing/parser.ml" +# 39534 "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 @@ -39537,42 +39540,42 @@ module Tables = struct let _endpos = _endpos__e_ in let _v : (Parsetree.expression) = let _1 = let _4 = -# 2964 "parsing/parser.mly" +# 2967 "parsing/parser.mly" ( es ) -# 39543 "parsing/parser.ml" +# 39546 "parsing/parser.ml" in let _2 = let _1 = let _2 = _2_inlined1 in let x = -# 2434 "parsing/parser.mly" +# 2437 "parsing/parser.mly" (_2) -# 39551 "parsing/parser.ml" +# 39554 "parsing/parser.ml" in # 126 "" ( Some x ) -# 39556 "parsing/parser.ml" +# 39559 "parsing/parser.ml" in -# 2434 "parsing/parser.mly" +# 2437 "parsing/parser.mly" ( _1, _2 ) -# 39562 "parsing/parser.ml" +# 39565 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in -# 2431 "parsing/parser.mly" +# 2434 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Bracket _loc__e_ ) -# 39570 "parsing/parser.ml" +# 39573 "parsing/parser.ml" in -# 2538 "parsing/parser.mly" +# 2541 "parsing/parser.mly" ( _1 ) -# 39576 "parsing/parser.ml" +# 39579 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39626,15 +39629,15 @@ module Tables = struct let attrs = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 39632 "parsing/parser.ml" +# 39635 "parsing/parser.ml" in -# 2547 "parsing/parser.mly" +# 2550 "parsing/parser.mly" ( e.pexp_desc, (ext, attrs @ e.pexp_attributes) ) -# 39638 "parsing/parser.ml" +# 39641 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -39642,10 +39645,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2540 "parsing/parser.mly" +# 2543 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 39649 "parsing/parser.ml" +# 39652 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39694,24 +39697,24 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 39700 "parsing/parser.ml" +# 39703 "parsing/parser.ml" in -# 4232 "parsing/parser.mly" +# 4235 "parsing/parser.mly" ( _1, _2 ) -# 39706 "parsing/parser.ml" +# 39709 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2549 "parsing/parser.mly" +# 2552 "parsing/parser.mly" ( Pexp_construct (mkloc (Lident "()") (make_loc _sloc), None), _2 ) -# 39715 "parsing/parser.ml" +# 39718 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -39719,10 +39722,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2540 "parsing/parser.mly" +# 2543 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 39726 "parsing/parser.ml" +# 39729 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39778,23 +39781,23 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 39784 "parsing/parser.ml" +# 39787 "parsing/parser.ml" in -# 4232 "parsing/parser.mly" +# 4235 "parsing/parser.mly" ( _1, _2 ) -# 39790 "parsing/parser.ml" +# 39793 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2551 "parsing/parser.mly" +# 2554 "parsing/parser.mly" ( unclosed "begin" _loc__1_ "end" _loc__4_ ) -# 39798 "parsing/parser.ml" +# 39801 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -39802,10 +39805,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2540 "parsing/parser.mly" +# 2543 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 39809 "parsing/parser.ml" +# 39812 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39855,9 +39858,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 39861 "parsing/parser.ml" +# 39864 "parsing/parser.ml" in let _2 = @@ -39865,21 +39868,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 39871 "parsing/parser.ml" +# 39874 "parsing/parser.ml" in -# 4232 "parsing/parser.mly" +# 4235 "parsing/parser.mly" ( _1, _2 ) -# 39877 "parsing/parser.ml" +# 39880 "parsing/parser.ml" in -# 2553 "parsing/parser.mly" +# 2556 "parsing/parser.mly" ( Pexp_new(_3), _2 ) -# 39883 "parsing/parser.ml" +# 39886 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined3_ in @@ -39887,10 +39890,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2540 "parsing/parser.mly" +# 2543 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 39894 "parsing/parser.ml" +# 39897 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39953,21 +39956,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 39959 "parsing/parser.ml" +# 39962 "parsing/parser.ml" in -# 4232 "parsing/parser.mly" +# 4235 "parsing/parser.mly" ( _1, _2 ) -# 39965 "parsing/parser.ml" +# 39968 "parsing/parser.ml" in -# 2555 "parsing/parser.mly" +# 2558 "parsing/parser.mly" ( Pexp_pack _4, _3 ) -# 39971 "parsing/parser.ml" +# 39974 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -39975,10 +39978,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2540 "parsing/parser.mly" +# 2543 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 39982 "parsing/parser.ml" +# 39985 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40056,11 +40059,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3790 "parsing/parser.mly" +# 3793 "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 ) -# 40064 "parsing/parser.ml" +# 40067 "parsing/parser.ml" in let _3 = @@ -40068,24 +40071,24 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 40074 "parsing/parser.ml" +# 40077 "parsing/parser.ml" in -# 4232 "parsing/parser.mly" +# 4235 "parsing/parser.mly" ( _1, _2 ) -# 40080 "parsing/parser.ml" +# 40083 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2557 "parsing/parser.mly" +# 2560 "parsing/parser.mly" ( Pexp_constraint (ghexp ~loc:_sloc (Pexp_pack _4), _6), _3 ) -# 40089 "parsing/parser.ml" +# 40092 "parsing/parser.ml" in let _endpos__1_ = _endpos__7_ in @@ -40093,10 +40096,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2540 "parsing/parser.mly" +# 2543 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 40100 "parsing/parser.ml" +# 40103 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40166,23 +40169,23 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 40172 "parsing/parser.ml" +# 40175 "parsing/parser.ml" in -# 4232 "parsing/parser.mly" +# 4235 "parsing/parser.mly" ( _1, _2 ) -# 40178 "parsing/parser.ml" +# 40181 "parsing/parser.ml" in let _loc__6_ = (_startpos__6_, _endpos__6_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2559 "parsing/parser.mly" +# 2562 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__6_ ) -# 40186 "parsing/parser.ml" +# 40189 "parsing/parser.ml" in let _endpos__1_ = _endpos__6_ in @@ -40190,10 +40193,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2540 "parsing/parser.mly" +# 2543 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 40197 "parsing/parser.ml" +# 40200 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40258,27 +40261,27 @@ module Tables = struct let _1 = # 260 "" ( List.flatten xss ) -# 40262 "parsing/parser.ml" +# 40265 "parsing/parser.ml" in -# 2077 "parsing/parser.mly" +# 2080 "parsing/parser.mly" ( _1 ) -# 40267 "parsing/parser.ml" +# 40270 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1020 "parsing/parser.mly" +# 1023 "parsing/parser.mly" ( extra_cstr _startpos _endpos _1 ) -# 40276 "parsing/parser.ml" +# 40279 "parsing/parser.ml" in -# 2064 "parsing/parser.mly" +# 2067 "parsing/parser.mly" ( Cstr.mk _1 _2 ) -# 40282 "parsing/parser.ml" +# 40285 "parsing/parser.ml" in let _2 = @@ -40286,21 +40289,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 40292 "parsing/parser.ml" +# 40295 "parsing/parser.ml" in -# 4232 "parsing/parser.mly" +# 4235 "parsing/parser.mly" ( _1, _2 ) -# 40298 "parsing/parser.ml" +# 40301 "parsing/parser.ml" in -# 2561 "parsing/parser.mly" +# 2564 "parsing/parser.mly" ( Pexp_object _3, _2 ) -# 40304 "parsing/parser.ml" +# 40307 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -40308,10 +40311,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2540 "parsing/parser.mly" +# 2543 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 40315 "parsing/parser.ml" +# 40318 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40376,27 +40379,27 @@ module Tables = struct let _1 = # 260 "" ( List.flatten xss ) -# 40380 "parsing/parser.ml" +# 40383 "parsing/parser.ml" in -# 2077 "parsing/parser.mly" +# 2080 "parsing/parser.mly" ( _1 ) -# 40385 "parsing/parser.ml" +# 40388 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1020 "parsing/parser.mly" +# 1023 "parsing/parser.mly" ( extra_cstr _startpos _endpos _1 ) -# 40394 "parsing/parser.ml" +# 40397 "parsing/parser.ml" in -# 2064 "parsing/parser.mly" +# 2067 "parsing/parser.mly" ( Cstr.mk _1 _2 ) -# 40400 "parsing/parser.ml" +# 40403 "parsing/parser.ml" in let _2 = @@ -40404,23 +40407,23 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 40410 "parsing/parser.ml" +# 40413 "parsing/parser.ml" in -# 4232 "parsing/parser.mly" +# 4235 "parsing/parser.mly" ( _1, _2 ) -# 40416 "parsing/parser.ml" +# 40419 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2563 "parsing/parser.mly" +# 2566 "parsing/parser.mly" ( unclosed "object" _loc__1_ "end" _loc__4_ ) -# 40424 "parsing/parser.ml" +# 40427 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -40428,10 +40431,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2540 "parsing/parser.mly" +# 2543 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 40435 "parsing/parser.ml" +# 40438 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40460,30 +40463,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 40466 "parsing/parser.ml" +# 40469 "parsing/parser.ml" in -# 2644 "parsing/parser.mly" +# 2647 "parsing/parser.mly" ( Pexp_ident (_1) ) -# 40472 "parsing/parser.ml" +# 40475 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 40481 "parsing/parser.ml" +# 40484 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 40487 "parsing/parser.ml" +# 40490 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40507,23 +40510,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.expression) = let _1 = let _1 = -# 2646 "parsing/parser.mly" +# 2649 "parsing/parser.mly" ( Pexp_constant _1 ) -# 40513 "parsing/parser.ml" +# 40516 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 40521 "parsing/parser.ml" +# 40524 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 40527 "parsing/parser.ml" +# 40530 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40552,30 +40555,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 40558 "parsing/parser.ml" +# 40561 "parsing/parser.ml" in -# 2648 "parsing/parser.mly" +# 2651 "parsing/parser.mly" ( Pexp_construct(_1, None) ) -# 40564 "parsing/parser.ml" +# 40567 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 40573 "parsing/parser.ml" +# 40576 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 40579 "parsing/parser.ml" +# 40582 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40599,23 +40602,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.expression) = let _1 = let _1 = -# 2650 "parsing/parser.mly" +# 2653 "parsing/parser.mly" ( Pexp_variant(_1, None) ) -# 40605 "parsing/parser.ml" +# 40608 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 40613 "parsing/parser.ml" +# 40616 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 40619 "parsing/parser.ml" +# 40622 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40641,9 +40644,9 @@ module Tables = struct } = _menhir_stack in let _2 : (Parsetree.expression) = Obj.magic _2 in let _1 : ( -# 866 "parsing/parser.mly" +# 869 "parsing/parser.mly" (string) -# 40647 "parsing/parser.ml" +# 40650 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -40655,15 +40658,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1053 "parsing/parser.mly" +# 1056 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 40661 "parsing/parser.ml" +# 40664 "parsing/parser.ml" in -# 2652 "parsing/parser.mly" +# 2655 "parsing/parser.mly" ( Pexp_apply(_1, [Nolabel,_2]) ) -# 40667 "parsing/parser.ml" +# 40670 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -40671,15 +40674,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 40677 "parsing/parser.ml" +# 40680 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 40683 "parsing/parser.ml" +# 40686 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40712,23 +40715,23 @@ module Tables = struct let _1 = let _1 = let _1 = -# 2653 "parsing/parser.mly" +# 2656 "parsing/parser.mly" ("!") -# 40718 "parsing/parser.ml" +# 40721 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1053 "parsing/parser.mly" +# 1056 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 40726 "parsing/parser.ml" +# 40729 "parsing/parser.ml" in -# 2654 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( Pexp_apply(_1, [Nolabel,_2]) ) -# 40732 "parsing/parser.ml" +# 40735 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -40736,15 +40739,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 40742 "parsing/parser.ml" +# 40745 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 40748 "parsing/parser.ml" +# 40751 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40783,14 +40786,14 @@ module Tables = struct let _v : (Parsetree.expression) = let _1 = let _1 = let _2 = -# 2947 "parsing/parser.mly" +# 2950 "parsing/parser.mly" ( xs ) -# 40789 "parsing/parser.ml" +# 40792 "parsing/parser.ml" in -# 2656 "parsing/parser.mly" +# 2659 "parsing/parser.mly" ( Pexp_override _2 ) -# 40794 "parsing/parser.ml" +# 40797 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -40798,15 +40801,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 40804 "parsing/parser.ml" +# 40807 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 40810 "parsing/parser.ml" +# 40813 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40845,16 +40848,16 @@ module Tables = struct let _v : (Parsetree.expression) = let _1 = let _1 = let _2 = -# 2947 "parsing/parser.mly" +# 2950 "parsing/parser.mly" ( xs ) -# 40851 "parsing/parser.ml" +# 40854 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2658 "parsing/parser.mly" +# 2661 "parsing/parser.mly" ( unclosed "{<" _loc__1_ ">}" _loc__3_ ) -# 40858 "parsing/parser.ml" +# 40861 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -40862,15 +40865,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 40868 "parsing/parser.ml" +# 40871 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 40874 "parsing/parser.ml" +# 40877 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40901,24 +40904,24 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = let _1 = let _1 = -# 2660 "parsing/parser.mly" +# 2663 "parsing/parser.mly" ( Pexp_override [] ) -# 40907 "parsing/parser.ml" +# 40910 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 40916 "parsing/parser.ml" +# 40919 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 40922 "parsing/parser.ml" +# 40925 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40962,15 +40965,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 40968 "parsing/parser.ml" +# 40971 "parsing/parser.ml" in -# 2662 "parsing/parser.mly" +# 2665 "parsing/parser.mly" ( Pexp_field(_1, _3) ) -# 40974 "parsing/parser.ml" +# 40977 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -40978,15 +40981,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 40984 "parsing/parser.ml" +# 40987 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 40990 "parsing/parser.ml" +# 40993 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41044,24 +41047,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 41050 "parsing/parser.ml" +# 41053 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1729 "parsing/parser.mly" +# 1732 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 41059 "parsing/parser.ml" +# 41062 "parsing/parser.ml" in -# 2664 "parsing/parser.mly" +# 2667 "parsing/parser.mly" ( Pexp_open(od, _4) ) -# 41065 "parsing/parser.ml" +# 41068 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -41069,15 +41072,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41075 "parsing/parser.ml" +# 41078 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 41081 "parsing/parser.ml" +# 41084 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41130,9 +41133,9 @@ module Tables = struct let _v : (Parsetree.expression) = let _1 = let _1 = let _4 = -# 2947 "parsing/parser.mly" +# 2950 "parsing/parser.mly" ( xs ) -# 41136 "parsing/parser.ml" +# 41139 "parsing/parser.ml" in let od = let _1 = @@ -41140,18 +41143,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 41146 "parsing/parser.ml" +# 41149 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1729 "parsing/parser.mly" +# 1732 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 41155 "parsing/parser.ml" +# 41158 "parsing/parser.ml" in let _startpos_od_ = _startpos__1_ in @@ -41159,10 +41162,10 @@ module Tables = struct let _symbolstartpos = _startpos_od_ in let _sloc = (_symbolstartpos, _endpos) in -# 2666 "parsing/parser.mly" +# 2669 "parsing/parser.mly" ( (* TODO: review the location of Pexp_override *) Pexp_open(od, mkexp ~loc:_sloc (Pexp_override _4)) ) -# 41166 "parsing/parser.ml" +# 41169 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -41170,15 +41173,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41176 "parsing/parser.ml" +# 41179 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 41182 "parsing/parser.ml" +# 41185 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41231,16 +41234,16 @@ module Tables = struct let _v : (Parsetree.expression) = let _1 = let _1 = let _4 = -# 2947 "parsing/parser.mly" +# 2950 "parsing/parser.mly" ( xs ) -# 41237 "parsing/parser.ml" +# 41240 "parsing/parser.ml" in let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2669 "parsing/parser.mly" +# 2672 "parsing/parser.mly" ( unclosed "{<" _loc__3_ ">}" _loc__5_ ) -# 41244 "parsing/parser.ml" +# 41247 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -41248,15 +41251,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41254 "parsing/parser.ml" +# 41257 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 41260 "parsing/parser.ml" +# 41263 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41287,9 +41290,9 @@ module Tables = struct }; } = _menhir_stack in let _1_inlined1 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 41293 "parsing/parser.ml" +# 41296 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in @@ -41301,23 +41304,23 @@ module Tables = struct let _3 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = -# 3864 "parsing/parser.mly" +# 3867 "parsing/parser.mly" ( _1 ) -# 41307 "parsing/parser.ml" +# 41310 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 41315 "parsing/parser.ml" +# 41318 "parsing/parser.ml" in -# 2671 "parsing/parser.mly" +# 2674 "parsing/parser.mly" ( Pexp_send(_1, _3) ) -# 41321 "parsing/parser.ml" +# 41324 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -41325,15 +41328,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41331 "parsing/parser.ml" +# 41334 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 41337 "parsing/parser.ml" +# 41340 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41365,9 +41368,9 @@ module Tables = struct } = _menhir_stack in let _3 : (Parsetree.expression) = Obj.magic _3 in let _1_inlined1 : ( -# 877 "parsing/parser.mly" +# 880 "parsing/parser.mly" (string) -# 41371 "parsing/parser.ml" +# 41374 "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 @@ -41381,15 +41384,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1053 "parsing/parser.mly" +# 1056 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 41387 "parsing/parser.ml" +# 41390 "parsing/parser.ml" in -# 2673 "parsing/parser.mly" +# 2676 "parsing/parser.mly" ( mkinfix _1 _2 _3 ) -# 41393 "parsing/parser.ml" +# 41396 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -41397,15 +41400,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41403 "parsing/parser.ml" +# 41406 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 41409 "parsing/parser.ml" +# 41412 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41429,23 +41432,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.expression) = let _1 = let _1 = -# 2675 "parsing/parser.mly" +# 2678 "parsing/parser.mly" ( Pexp_extension _1 ) -# 41435 "parsing/parser.ml" +# 41438 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41443 "parsing/parser.ml" +# 41446 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 41449 "parsing/parser.ml" +# 41452 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41493,18 +41496,18 @@ module Tables = struct let _3 = let (_endpos__2_, _startpos__1_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in let _1 = -# 2676 "parsing/parser.mly" +# 2679 "parsing/parser.mly" (Lident "()") -# 41499 "parsing/parser.ml" +# 41502 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 41508 "parsing/parser.ml" +# 41511 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in @@ -41514,25 +41517,25 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 41520 "parsing/parser.ml" +# 41523 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1729 "parsing/parser.mly" +# 1732 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 41529 "parsing/parser.ml" +# 41532 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2677 "parsing/parser.mly" +# 2680 "parsing/parser.mly" ( Pexp_open(od, mkexp ~loc:(_loc__3_) (Pexp_construct(_3, None))) ) -# 41536 "parsing/parser.ml" +# 41539 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_inlined1_ in @@ -41540,15 +41543,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41546 "parsing/parser.ml" +# 41549 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 41552 "parsing/parser.ml" +# 41555 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41603,9 +41606,9 @@ module Tables = struct let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2679 "parsing/parser.mly" +# 2682 "parsing/parser.mly" ( unclosed "(" _loc__3_ ")" _loc__5_ ) -# 41609 "parsing/parser.ml" +# 41612 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -41613,15 +41616,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41619 "parsing/parser.ml" +# 41622 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 41625 "parsing/parser.ml" +# 41628 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41660,25 +41663,25 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.expression) = let _1 = let _1 = -# 2681 "parsing/parser.mly" +# 2684 "parsing/parser.mly" ( let (exten, fields) = _2 in Pexp_record(fields, exten) ) -# 41667 "parsing/parser.ml" +# 41670 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41676 "parsing/parser.ml" +# 41679 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 41682 "parsing/parser.ml" +# 41685 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41720,9 +41723,9 @@ module Tables = struct let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2684 "parsing/parser.mly" +# 2687 "parsing/parser.mly" ( unclosed "{" _loc__1_ "}" _loc__3_ ) -# 41726 "parsing/parser.ml" +# 41729 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -41730,15 +41733,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41736 "parsing/parser.ml" +# 41739 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 41742 "parsing/parser.ml" +# 41745 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41797,27 +41800,27 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 41803 "parsing/parser.ml" +# 41806 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1729 "parsing/parser.mly" +# 1732 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 41812 "parsing/parser.ml" +# 41815 "parsing/parser.ml" in let _endpos = _endpos__5_ in -# 2686 "parsing/parser.mly" +# 2689 "parsing/parser.mly" ( let (exten, fields) = _4 in Pexp_open(od, mkexp ~loc:(_startpos__3_, _endpos) (Pexp_record(fields, exten))) ) -# 41821 "parsing/parser.ml" +# 41824 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -41825,15 +41828,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41831 "parsing/parser.ml" +# 41834 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 41837 "parsing/parser.ml" +# 41840 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41889,9 +41892,9 @@ module Tables = struct let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2690 "parsing/parser.mly" +# 2693 "parsing/parser.mly" ( unclosed "{" _loc__3_ "}" _loc__5_ ) -# 41895 "parsing/parser.ml" +# 41898 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -41899,15 +41902,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41905 "parsing/parser.ml" +# 41908 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 41911 "parsing/parser.ml" +# 41914 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41948,29 +41951,29 @@ module Tables = struct let _1 = let _1 = let _2 = -# 2964 "parsing/parser.mly" +# 2967 "parsing/parser.mly" ( es ) -# 41954 "parsing/parser.ml" +# 41957 "parsing/parser.ml" in -# 2617 "parsing/parser.mly" +# 2620 "parsing/parser.mly" ( Generic_array.Literal _2 ) -# 41959 "parsing/parser.ml" +# 41962 "parsing/parser.ml" in -# 2626 "parsing/parser.mly" +# 2629 "parsing/parser.mly" ( _1 ) -# 41965 "parsing/parser.ml" +# 41968 "parsing/parser.ml" in -# 2692 "parsing/parser.mly" +# 2695 "parsing/parser.mly" ( Generic_array.expression "[|" "|]" (fun elts -> Pexp_array elts) _1 ) -# 41974 "parsing/parser.ml" +# 41977 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -41978,15 +41981,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41984 "parsing/parser.ml" +# 41987 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 41990 "parsing/parser.ml" +# 41993 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42027,31 +42030,31 @@ module Tables = struct let _1 = let _1 = let _2 = -# 2964 "parsing/parser.mly" +# 2967 "parsing/parser.mly" ( es ) -# 42033 "parsing/parser.ml" +# 42036 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2619 "parsing/parser.mly" +# 2622 "parsing/parser.mly" ( Generic_array.Unclosed(_loc__1_,_loc__3_) ) -# 42040 "parsing/parser.ml" +# 42043 "parsing/parser.ml" in -# 2626 "parsing/parser.mly" +# 2629 "parsing/parser.mly" ( _1 ) -# 42046 "parsing/parser.ml" +# 42049 "parsing/parser.ml" in -# 2692 "parsing/parser.mly" +# 2695 "parsing/parser.mly" ( Generic_array.expression "[|" "|]" (fun elts -> Pexp_array elts) _1 ) -# 42055 "parsing/parser.ml" +# 42058 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -42059,15 +42062,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42065 "parsing/parser.ml" +# 42068 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 42071 "parsing/parser.ml" +# 42074 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42100,23 +42103,23 @@ module Tables = struct let _1 = let _1 = let _1 = -# 2621 "parsing/parser.mly" +# 2624 "parsing/parser.mly" ( Generic_array.Literal [] ) -# 42106 "parsing/parser.ml" +# 42109 "parsing/parser.ml" in -# 2626 "parsing/parser.mly" +# 2629 "parsing/parser.mly" ( _1 ) -# 42111 "parsing/parser.ml" +# 42114 "parsing/parser.ml" in -# 2692 "parsing/parser.mly" +# 2695 "parsing/parser.mly" ( Generic_array.expression "[|" "|]" (fun elts -> Pexp_array elts) _1 ) -# 42120 "parsing/parser.ml" +# 42123 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -42124,15 +42127,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42130 "parsing/parser.ml" +# 42133 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 42136 "parsing/parser.ml" +# 42139 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42186,9 +42189,9 @@ module Tables = struct let _1 = let _1 = let _4 = -# 2964 "parsing/parser.mly" +# 2967 "parsing/parser.mly" ( es ) -# 42192 "parsing/parser.ml" +# 42195 "parsing/parser.ml" in let od = let _1 = @@ -42196,34 +42199,34 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 42202 "parsing/parser.ml" +# 42205 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1729 "parsing/parser.mly" +# 1732 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 42211 "parsing/parser.ml" +# 42214 "parsing/parser.ml" in let _endpos = _endpos__5_ in -# 2628 "parsing/parser.mly" +# 2631 "parsing/parser.mly" ( Generic_array.Opened_literal(od, _startpos__3_, _endpos, _4) ) -# 42218 "parsing/parser.ml" +# 42221 "parsing/parser.ml" in -# 2692 "parsing/parser.mly" +# 2695 "parsing/parser.mly" ( Generic_array.expression "[|" "|]" (fun elts -> Pexp_array elts) _1 ) -# 42227 "parsing/parser.ml" +# 42230 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -42231,15 +42234,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42237 "parsing/parser.ml" +# 42240 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 42243 "parsing/parser.ml" +# 42246 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42291,35 +42294,35 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 42297 "parsing/parser.ml" +# 42300 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1729 "parsing/parser.mly" +# 1732 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 42306 "parsing/parser.ml" +# 42309 "parsing/parser.ml" in let _endpos = _endpos__4_ in -# 2630 "parsing/parser.mly" +# 2633 "parsing/parser.mly" ( (* TODO: review the location of Pexp_array *) Generic_array.Opened_literal(od, _startpos__3_, _endpos, []) ) -# 42314 "parsing/parser.ml" +# 42317 "parsing/parser.ml" in -# 2692 "parsing/parser.mly" +# 2695 "parsing/parser.mly" ( Generic_array.expression "[|" "|]" (fun elts -> Pexp_array elts) _1 ) -# 42323 "parsing/parser.ml" +# 42326 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -42327,15 +42330,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42333 "parsing/parser.ml" +# 42336 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 42339 "parsing/parser.ml" +# 42342 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42389,25 +42392,25 @@ module Tables = struct let _1 = let _1 = let _4 = -# 2964 "parsing/parser.mly" +# 2967 "parsing/parser.mly" ( es ) -# 42395 "parsing/parser.ml" +# 42398 "parsing/parser.ml" in let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2634 "parsing/parser.mly" +# 2637 "parsing/parser.mly" ( Generic_array.Unclosed(_loc__3_, _loc__5_) ) -# 42402 "parsing/parser.ml" +# 42405 "parsing/parser.ml" in -# 2692 "parsing/parser.mly" +# 2695 "parsing/parser.mly" ( Generic_array.expression "[|" "|]" (fun elts -> Pexp_array elts) _1 ) -# 42411 "parsing/parser.ml" +# 42414 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -42415,15 +42418,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42421 "parsing/parser.ml" +# 42424 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 42427 "parsing/parser.ml" +# 42430 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42464,20 +42467,20 @@ module Tables = struct let _1 = let _1 = let _2 = -# 2964 "parsing/parser.mly" +# 2967 "parsing/parser.mly" ( es ) -# 42470 "parsing/parser.ml" +# 42473 "parsing/parser.ml" in -# 2617 "parsing/parser.mly" +# 2620 "parsing/parser.mly" ( Generic_array.Literal _2 ) -# 42475 "parsing/parser.ml" +# 42478 "parsing/parser.ml" in -# 2626 "parsing/parser.mly" +# 2629 "parsing/parser.mly" ( _1 ) -# 42481 "parsing/parser.ml" +# 42484 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -42485,7 +42488,7 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2697 "parsing/parser.mly" +# 2700 "parsing/parser.mly" ( Generic_array.expression "[:" ":]" (fun elts -> @@ -42493,7 +42496,7 @@ module Tables = struct ~loc:(make_loc _sloc) (Iaexp_immutable_array elts)) _1 ) -# 42497 "parsing/parser.ml" +# 42500 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -42501,15 +42504,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42507 "parsing/parser.ml" +# 42510 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 42513 "parsing/parser.ml" +# 42516 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42550,22 +42553,22 @@ module Tables = struct let _1 = let _1 = let _2 = -# 2964 "parsing/parser.mly" +# 2967 "parsing/parser.mly" ( es ) -# 42556 "parsing/parser.ml" +# 42559 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2619 "parsing/parser.mly" +# 2622 "parsing/parser.mly" ( Generic_array.Unclosed(_loc__1_,_loc__3_) ) -# 42563 "parsing/parser.ml" +# 42566 "parsing/parser.ml" in -# 2626 "parsing/parser.mly" +# 2629 "parsing/parser.mly" ( _1 ) -# 42569 "parsing/parser.ml" +# 42572 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -42573,7 +42576,7 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2697 "parsing/parser.mly" +# 2700 "parsing/parser.mly" ( Generic_array.expression "[:" ":]" (fun elts -> @@ -42581,7 +42584,7 @@ module Tables = struct ~loc:(make_loc _sloc) (Iaexp_immutable_array elts)) _1 ) -# 42585 "parsing/parser.ml" +# 42588 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -42589,15 +42592,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42595 "parsing/parser.ml" +# 42598 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 42601 "parsing/parser.ml" +# 42604 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42630,14 +42633,14 @@ module Tables = struct let _1 = let _1 = let _1 = -# 2621 "parsing/parser.mly" +# 2624 "parsing/parser.mly" ( Generic_array.Literal [] ) -# 42636 "parsing/parser.ml" +# 42639 "parsing/parser.ml" in -# 2626 "parsing/parser.mly" +# 2629 "parsing/parser.mly" ( _1 ) -# 42641 "parsing/parser.ml" +# 42644 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -42645,7 +42648,7 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2697 "parsing/parser.mly" +# 2700 "parsing/parser.mly" ( Generic_array.expression "[:" ":]" (fun elts -> @@ -42653,7 +42656,7 @@ module Tables = struct ~loc:(make_loc _sloc) (Iaexp_immutable_array elts)) _1 ) -# 42657 "parsing/parser.ml" +# 42660 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -42661,15 +42664,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42667 "parsing/parser.ml" +# 42670 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 42673 "parsing/parser.ml" +# 42676 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42723,9 +42726,9 @@ module Tables = struct let _1 = let _1 = let _4 = -# 2964 "parsing/parser.mly" +# 2967 "parsing/parser.mly" ( es ) -# 42729 "parsing/parser.ml" +# 42732 "parsing/parser.ml" in let od = let _1 = @@ -42733,25 +42736,25 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 42739 "parsing/parser.ml" +# 42742 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1729 "parsing/parser.mly" +# 1732 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 42748 "parsing/parser.ml" +# 42751 "parsing/parser.ml" in let _endpos = _endpos__5_ in -# 2628 "parsing/parser.mly" +# 2631 "parsing/parser.mly" ( Generic_array.Opened_literal(od, _startpos__3_, _endpos, _4) ) -# 42755 "parsing/parser.ml" +# 42758 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -42759,7 +42762,7 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2697 "parsing/parser.mly" +# 2700 "parsing/parser.mly" ( Generic_array.expression "[:" ":]" (fun elts -> @@ -42767,7 +42770,7 @@ module Tables = struct ~loc:(make_loc _sloc) (Iaexp_immutable_array elts)) _1 ) -# 42771 "parsing/parser.ml" +# 42774 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -42775,15 +42778,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42781 "parsing/parser.ml" +# 42784 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 42787 "parsing/parser.ml" +# 42790 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42835,26 +42838,26 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 42841 "parsing/parser.ml" +# 42844 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1729 "parsing/parser.mly" +# 1732 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 42850 "parsing/parser.ml" +# 42853 "parsing/parser.ml" in let _endpos = _endpos__4_ in -# 2630 "parsing/parser.mly" +# 2633 "parsing/parser.mly" ( (* TODO: review the location of Pexp_array *) Generic_array.Opened_literal(od, _startpos__3_, _endpos, []) ) -# 42858 "parsing/parser.ml" +# 42861 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -42862,7 +42865,7 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2697 "parsing/parser.mly" +# 2700 "parsing/parser.mly" ( Generic_array.expression "[:" ":]" (fun elts -> @@ -42870,7 +42873,7 @@ module Tables = struct ~loc:(make_loc _sloc) (Iaexp_immutable_array elts)) _1 ) -# 42874 "parsing/parser.ml" +# 42877 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -42878,15 +42881,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42884 "parsing/parser.ml" +# 42887 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 42890 "parsing/parser.ml" +# 42893 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42940,16 +42943,16 @@ module Tables = struct let _1 = let _1 = let _4 = -# 2964 "parsing/parser.mly" +# 2967 "parsing/parser.mly" ( es ) -# 42946 "parsing/parser.ml" +# 42949 "parsing/parser.ml" in let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2634 "parsing/parser.mly" +# 2637 "parsing/parser.mly" ( Generic_array.Unclosed(_loc__3_, _loc__5_) ) -# 42953 "parsing/parser.ml" +# 42956 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -42957,7 +42960,7 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2697 "parsing/parser.mly" +# 2700 "parsing/parser.mly" ( Generic_array.expression "[:" ":]" (fun elts -> @@ -42965,7 +42968,7 @@ module Tables = struct ~loc:(make_loc _sloc) (Iaexp_immutable_array elts)) _1 ) -# 42969 "parsing/parser.ml" +# 42972 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -42973,15 +42976,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42979 "parsing/parser.ml" +# 42982 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 42985 "parsing/parser.ml" +# 42988 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43020,15 +43023,15 @@ module Tables = struct let _v : (Parsetree.expression) = let _1 = let _1 = let _2 = -# 2964 "parsing/parser.mly" +# 2967 "parsing/parser.mly" ( es ) -# 43026 "parsing/parser.ml" +# 43029 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2705 "parsing/parser.mly" +# 2708 "parsing/parser.mly" ( fst (mktailexp _loc__3_ _2) ) -# 43032 "parsing/parser.ml" +# 43035 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -43036,15 +43039,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 43042 "parsing/parser.ml" +# 43045 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 43048 "parsing/parser.ml" +# 43051 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43083,16 +43086,16 @@ module Tables = struct let _v : (Parsetree.expression) = let _1 = let _1 = let _2 = -# 2964 "parsing/parser.mly" +# 2967 "parsing/parser.mly" ( es ) -# 43089 "parsing/parser.ml" +# 43092 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2707 "parsing/parser.mly" +# 2710 "parsing/parser.mly" ( unclosed "[" _loc__1_ "]" _loc__3_ ) -# 43096 "parsing/parser.ml" +# 43099 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -43100,15 +43103,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 43106 "parsing/parser.ml" +# 43109 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 43112 "parsing/parser.ml" +# 43115 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43160,24 +43163,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 43164 "parsing/parser.ml" +# 43167 "parsing/parser.ml" in -# 1128 "parsing/parser.mly" +# 1131 "parsing/parser.mly" ( xs ) -# 43169 "parsing/parser.ml" +# 43172 "parsing/parser.ml" in -# 2598 "parsing/parser.mly" +# 2601 "parsing/parser.mly" ( Extensions.Comprehensions.{ body = _2; clauses = _3 } ) -# 43175 "parsing/parser.ml" +# 43178 "parsing/parser.ml" in -# 2603 "parsing/parser.mly" +# 2606 "parsing/parser.mly" ( Extensions.Comprehensions.Cexp_list_comprehension _1 ) -# 43181 "parsing/parser.ml" +# 43184 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -43185,15 +43188,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2612 "parsing/parser.mly" +# 2615 "parsing/parser.mly" ( Extensions.Comprehensions.expr_of ~loc:(make_loc _sloc) _1 ) -# 43191 "parsing/parser.ml" +# 43194 "parsing/parser.ml" in -# 2708 "parsing/parser.mly" +# 2711 "parsing/parser.mly" ( _1 ) -# 43197 "parsing/parser.ml" +# 43200 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -43201,15 +43204,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 43207 "parsing/parser.ml" +# 43210 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 43213 "parsing/parser.ml" +# 43216 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43261,24 +43264,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 43265 "parsing/parser.ml" +# 43268 "parsing/parser.ml" in -# 1128 "parsing/parser.mly" +# 1131 "parsing/parser.mly" ( xs ) -# 43270 "parsing/parser.ml" +# 43273 "parsing/parser.ml" in -# 2598 "parsing/parser.mly" +# 2601 "parsing/parser.mly" ( Extensions.Comprehensions.{ body = _2; clauses = _3 } ) -# 43276 "parsing/parser.ml" +# 43279 "parsing/parser.ml" in -# 2605 "parsing/parser.mly" +# 2608 "parsing/parser.mly" ( Extensions.Comprehensions.Cexp_array_comprehension (Mutable, _1) ) -# 43282 "parsing/parser.ml" +# 43285 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -43286,15 +43289,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2612 "parsing/parser.mly" +# 2615 "parsing/parser.mly" ( Extensions.Comprehensions.expr_of ~loc:(make_loc _sloc) _1 ) -# 43292 "parsing/parser.ml" +# 43295 "parsing/parser.ml" in -# 2708 "parsing/parser.mly" +# 2711 "parsing/parser.mly" ( _1 ) -# 43298 "parsing/parser.ml" +# 43301 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -43302,15 +43305,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 43308 "parsing/parser.ml" +# 43311 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 43314 "parsing/parser.ml" +# 43317 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43362,24 +43365,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 43366 "parsing/parser.ml" +# 43369 "parsing/parser.ml" in -# 1128 "parsing/parser.mly" +# 1131 "parsing/parser.mly" ( xs ) -# 43371 "parsing/parser.ml" +# 43374 "parsing/parser.ml" in -# 2598 "parsing/parser.mly" +# 2601 "parsing/parser.mly" ( Extensions.Comprehensions.{ body = _2; clauses = _3 } ) -# 43377 "parsing/parser.ml" +# 43380 "parsing/parser.ml" in -# 2607 "parsing/parser.mly" +# 2610 "parsing/parser.mly" ( Extensions.Comprehensions.Cexp_array_comprehension (Immutable, _1) ) -# 43383 "parsing/parser.ml" +# 43386 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -43387,15 +43390,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2612 "parsing/parser.mly" +# 2615 "parsing/parser.mly" ( Extensions.Comprehensions.expr_of ~loc:(make_loc _sloc) _1 ) -# 43393 "parsing/parser.ml" +# 43396 "parsing/parser.ml" in -# 2708 "parsing/parser.mly" +# 2711 "parsing/parser.mly" ( _1 ) -# 43399 "parsing/parser.ml" +# 43402 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -43403,15 +43406,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 43409 "parsing/parser.ml" +# 43412 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 43415 "parsing/parser.ml" +# 43418 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43478,24 +43481,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 43482 "parsing/parser.ml" +# 43485 "parsing/parser.ml" in -# 1128 "parsing/parser.mly" +# 1131 "parsing/parser.mly" ( xs ) -# 43487 "parsing/parser.ml" +# 43490 "parsing/parser.ml" in -# 2598 "parsing/parser.mly" +# 2601 "parsing/parser.mly" ( Extensions.Comprehensions.{ body = _2; clauses = _3 } ) -# 43493 "parsing/parser.ml" +# 43496 "parsing/parser.ml" in -# 2603 "parsing/parser.mly" +# 2606 "parsing/parser.mly" ( Extensions.Comprehensions.Cexp_list_comprehension _1 ) -# 43499 "parsing/parser.ml" +# 43502 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -43503,9 +43506,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2612 "parsing/parser.mly" +# 2615 "parsing/parser.mly" ( Extensions.Comprehensions.expr_of ~loc:(make_loc _sloc) _1 ) -# 43509 "parsing/parser.ml" +# 43512 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__4_, _startpos__1_inlined1_) in @@ -43515,25 +43518,25 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 43521 "parsing/parser.ml" +# 43524 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1729 "parsing/parser.mly" +# 1732 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 43530 "parsing/parser.ml" +# 43533 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2710 "parsing/parser.mly" +# 2713 "parsing/parser.mly" ( Pexp_open(od, mkexp ~loc:(_loc__3_) _3) ) -# 43537 "parsing/parser.ml" +# 43540 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -43541,15 +43544,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 43547 "parsing/parser.ml" +# 43550 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 43553 "parsing/parser.ml" +# 43556 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43616,24 +43619,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 43620 "parsing/parser.ml" +# 43623 "parsing/parser.ml" in -# 1128 "parsing/parser.mly" +# 1131 "parsing/parser.mly" ( xs ) -# 43625 "parsing/parser.ml" +# 43628 "parsing/parser.ml" in -# 2598 "parsing/parser.mly" +# 2601 "parsing/parser.mly" ( Extensions.Comprehensions.{ body = _2; clauses = _3 } ) -# 43631 "parsing/parser.ml" +# 43634 "parsing/parser.ml" in -# 2605 "parsing/parser.mly" +# 2608 "parsing/parser.mly" ( Extensions.Comprehensions.Cexp_array_comprehension (Mutable, _1) ) -# 43637 "parsing/parser.ml" +# 43640 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -43641,9 +43644,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2612 "parsing/parser.mly" +# 2615 "parsing/parser.mly" ( Extensions.Comprehensions.expr_of ~loc:(make_loc _sloc) _1 ) -# 43647 "parsing/parser.ml" +# 43650 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__4_, _startpos__1_inlined1_) in @@ -43653,25 +43656,25 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 43659 "parsing/parser.ml" +# 43662 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1729 "parsing/parser.mly" +# 1732 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 43668 "parsing/parser.ml" +# 43671 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2710 "parsing/parser.mly" +# 2713 "parsing/parser.mly" ( Pexp_open(od, mkexp ~loc:(_loc__3_) _3) ) -# 43675 "parsing/parser.ml" +# 43678 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -43679,15 +43682,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 43685 "parsing/parser.ml" +# 43688 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 43691 "parsing/parser.ml" +# 43694 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43754,24 +43757,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 43758 "parsing/parser.ml" +# 43761 "parsing/parser.ml" in -# 1128 "parsing/parser.mly" +# 1131 "parsing/parser.mly" ( xs ) -# 43763 "parsing/parser.ml" +# 43766 "parsing/parser.ml" in -# 2598 "parsing/parser.mly" +# 2601 "parsing/parser.mly" ( Extensions.Comprehensions.{ body = _2; clauses = _3 } ) -# 43769 "parsing/parser.ml" +# 43772 "parsing/parser.ml" in -# 2607 "parsing/parser.mly" +# 2610 "parsing/parser.mly" ( Extensions.Comprehensions.Cexp_array_comprehension (Immutable, _1) ) -# 43775 "parsing/parser.ml" +# 43778 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -43779,9 +43782,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2612 "parsing/parser.mly" +# 2615 "parsing/parser.mly" ( Extensions.Comprehensions.expr_of ~loc:(make_loc _sloc) _1 ) -# 43785 "parsing/parser.ml" +# 43788 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__4_, _startpos__1_inlined1_) in @@ -43791,25 +43794,25 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 43797 "parsing/parser.ml" +# 43800 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1729 "parsing/parser.mly" +# 1732 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 43806 "parsing/parser.ml" +# 43809 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2710 "parsing/parser.mly" +# 2713 "parsing/parser.mly" ( Pexp_open(od, mkexp ~loc:(_loc__3_) _3) ) -# 43813 "parsing/parser.ml" +# 43816 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -43817,15 +43820,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 43823 "parsing/parser.ml" +# 43826 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 43829 "parsing/parser.ml" +# 43832 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43878,9 +43881,9 @@ module Tables = struct let _v : (Parsetree.expression) = let _1 = let _1 = let _4 = -# 2964 "parsing/parser.mly" +# 2967 "parsing/parser.mly" ( es ) -# 43884 "parsing/parser.ml" +# 43887 "parsing/parser.ml" in let od = let _1 = @@ -43888,30 +43891,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 43894 "parsing/parser.ml" +# 43897 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1729 "parsing/parser.mly" +# 1732 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 43903 "parsing/parser.ml" +# 43906 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _loc__5_ = (_startpos__5_, _endpos__5_) in -# 2712 "parsing/parser.mly" +# 2715 "parsing/parser.mly" ( let list_exp = (* TODO: review the location of list_exp *) let tail_exp, _tail_loc = mktailexp _loc__5_ _4 in mkexp ~loc:(_startpos__3_, _endpos) tail_exp in Pexp_open(od, list_exp) ) -# 43915 "parsing/parser.ml" +# 43918 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -43919,15 +43922,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 43925 "parsing/parser.ml" +# 43928 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 43931 "parsing/parser.ml" +# 43934 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43975,18 +43978,18 @@ module Tables = struct let _3 = let (_endpos__2_, _startpos__1_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in let _1 = -# 2717 "parsing/parser.mly" +# 2720 "parsing/parser.mly" (Lident "[]") -# 43981 "parsing/parser.ml" +# 43984 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 43990 "parsing/parser.ml" +# 43993 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in @@ -43996,25 +43999,25 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 44002 "parsing/parser.ml" +# 44005 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1729 "parsing/parser.mly" +# 1732 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 44011 "parsing/parser.ml" +# 44014 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2718 "parsing/parser.mly" +# 2721 "parsing/parser.mly" ( Pexp_open(od, mkexp ~loc:_loc__3_ (Pexp_construct(_3, None))) ) -# 44018 "parsing/parser.ml" +# 44021 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_inlined1_ in @@ -44022,15 +44025,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 44028 "parsing/parser.ml" +# 44031 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 44034 "parsing/parser.ml" +# 44037 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44083,16 +44086,16 @@ module Tables = struct let _v : (Parsetree.expression) = let _1 = let _1 = let _4 = -# 2964 "parsing/parser.mly" +# 2967 "parsing/parser.mly" ( es ) -# 44089 "parsing/parser.ml" +# 44092 "parsing/parser.ml" in let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2721 "parsing/parser.mly" +# 2724 "parsing/parser.mly" ( unclosed "[" _loc__3_ "]" _loc__5_ ) -# 44096 "parsing/parser.ml" +# 44099 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -44100,15 +44103,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 44106 "parsing/parser.ml" +# 44109 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 44112 "parsing/parser.ml" +# 44115 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44201,11 +44204,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3790 "parsing/parser.mly" +# 3793 "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 ) -# 44209 "parsing/parser.ml" +# 44212 "parsing/parser.ml" in let _5 = @@ -44213,15 +44216,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 44219 "parsing/parser.ml" +# 44222 "parsing/parser.ml" in -# 4232 "parsing/parser.mly" +# 4235 "parsing/parser.mly" ( _1, _2 ) -# 44225 "parsing/parser.ml" +# 44228 "parsing/parser.ml" in let od = @@ -44230,18 +44233,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 44236 "parsing/parser.ml" +# 44239 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1729 "parsing/parser.mly" +# 1732 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 44245 "parsing/parser.ml" +# 44248 "parsing/parser.ml" in let _startpos_od_ = _startpos__1_ in @@ -44249,12 +44252,12 @@ module Tables = struct let _symbolstartpos = _startpos_od_ in let _sloc = (_symbolstartpos, _endpos) in -# 2724 "parsing/parser.mly" +# 2727 "parsing/parser.mly" ( let modexp = mkexp_attrs ~loc:(_startpos__3_, _endpos) (Pexp_constraint (ghexp ~loc:_sloc (Pexp_pack _6), _8)) _5 in Pexp_open(od, modexp) ) -# 44258 "parsing/parser.ml" +# 44261 "parsing/parser.ml" in let _endpos__1_ = _endpos__9_ in @@ -44262,15 +44265,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 44268 "parsing/parser.ml" +# 44271 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 44274 "parsing/parser.ml" +# 44277 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44355,23 +44358,23 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 44361 "parsing/parser.ml" +# 44364 "parsing/parser.ml" in -# 4232 "parsing/parser.mly" +# 4235 "parsing/parser.mly" ( _1, _2 ) -# 44367 "parsing/parser.ml" +# 44370 "parsing/parser.ml" in let _loc__8_ = (_startpos__8_, _endpos__8_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2730 "parsing/parser.mly" +# 2733 "parsing/parser.mly" ( unclosed "(" _loc__3_ ")" _loc__8_ ) -# 44375 "parsing/parser.ml" +# 44378 "parsing/parser.ml" in let _endpos__1_ = _endpos__8_ in @@ -44379,15 +44382,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 44385 "parsing/parser.ml" +# 44388 "parsing/parser.ml" in -# 2543 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1 ) -# 44391 "parsing/parser.ml" +# 44394 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44416,30 +44419,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 44422 "parsing/parser.ml" +# 44425 "parsing/parser.ml" in -# 3047 "parsing/parser.mly" +# 3050 "parsing/parser.mly" ( Ppat_var (_1) ) -# 44428 "parsing/parser.ml" +# 44431 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 44437 "parsing/parser.ml" +# 44440 "parsing/parser.ml" in -# 3048 "parsing/parser.mly" +# 3051 "parsing/parser.mly" ( _1 ) -# 44443 "parsing/parser.ml" +# 44446 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44462,9 +44465,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = -# 3049 "parsing/parser.mly" +# 3052 "parsing/parser.mly" ( _1 ) -# 44468 "parsing/parser.ml" +# 44471 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44504,9 +44507,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3054 "parsing/parser.mly" +# 3057 "parsing/parser.mly" ( reloc_pat ~loc:_sloc _2 ) -# 44510 "parsing/parser.ml" +# 44513 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44529,9 +44532,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = -# 3056 "parsing/parser.mly" +# 3059 "parsing/parser.mly" ( _1 ) -# 44535 "parsing/parser.ml" +# 44538 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44594,9 +44597,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 44600 "parsing/parser.ml" +# 44603 "parsing/parser.ml" in let _3 = @@ -44604,24 +44607,24 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 44610 "parsing/parser.ml" +# 44613 "parsing/parser.ml" in -# 4232 "parsing/parser.mly" +# 4235 "parsing/parser.mly" ( _1, _2 ) -# 44616 "parsing/parser.ml" +# 44619 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3058 "parsing/parser.mly" +# 3061 "parsing/parser.mly" ( mkpat_attrs ~loc:_sloc (Ppat_unpack _4) _3 ) -# 44625 "parsing/parser.ml" +# 44628 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44698,11 +44701,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3790 "parsing/parser.mly" +# 3793 "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 ) -# 44706 "parsing/parser.ml" +# 44709 "parsing/parser.ml" in let _4 = @@ -44711,9 +44714,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 44717 "parsing/parser.ml" +# 44720 "parsing/parser.ml" in let (_endpos__4_, _startpos__4_) = (_endpos__1_inlined3_, _startpos__1_inlined3_) in @@ -44722,15 +44725,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 44728 "parsing/parser.ml" +# 44731 "parsing/parser.ml" in -# 4232 "parsing/parser.mly" +# 4235 "parsing/parser.mly" ( _1, _2 ) -# 44734 "parsing/parser.ml" +# 44737 "parsing/parser.ml" in let _endpos = _endpos__7_ in @@ -44738,11 +44741,11 @@ module Tables = struct let _loc__4_ = (_startpos__4_, _endpos__4_) in let _sloc = (_symbolstartpos, _endpos) in -# 3060 "parsing/parser.mly" +# 3063 "parsing/parser.mly" ( mkpat_attrs ~loc:_sloc (Ppat_constraint(mkpat ~loc:_loc__4_ (Ppat_unpack _4), _6)) _3 ) -# 44746 "parsing/parser.ml" +# 44749 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44766,23 +44769,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 3068 "parsing/parser.mly" +# 3071 "parsing/parser.mly" ( Ppat_any ) -# 44772 "parsing/parser.ml" +# 44775 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 44780 "parsing/parser.ml" +# 44783 "parsing/parser.ml" in -# 3064 "parsing/parser.mly" +# 3067 "parsing/parser.mly" ( _1 ) -# 44786 "parsing/parser.ml" +# 44789 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44806,23 +44809,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 3070 "parsing/parser.mly" +# 3073 "parsing/parser.mly" ( Ppat_constant _1 ) -# 44812 "parsing/parser.ml" +# 44815 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 44820 "parsing/parser.ml" +# 44823 "parsing/parser.ml" in -# 3064 "parsing/parser.mly" +# 3067 "parsing/parser.mly" ( _1 ) -# 44826 "parsing/parser.ml" +# 44829 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44860,24 +44863,24 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 3072 "parsing/parser.mly" +# 3075 "parsing/parser.mly" ( Ppat_interval (_1, _3) ) -# 44866 "parsing/parser.ml" +# 44869 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 44875 "parsing/parser.ml" +# 44878 "parsing/parser.ml" in -# 3064 "parsing/parser.mly" +# 3067 "parsing/parser.mly" ( _1 ) -# 44881 "parsing/parser.ml" +# 44884 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44906,30 +44909,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 44912 "parsing/parser.ml" +# 44915 "parsing/parser.ml" in -# 3074 "parsing/parser.mly" +# 3077 "parsing/parser.mly" ( Ppat_construct(_1, None) ) -# 44918 "parsing/parser.ml" +# 44921 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 44927 "parsing/parser.ml" +# 44930 "parsing/parser.ml" in -# 3064 "parsing/parser.mly" +# 3067 "parsing/parser.mly" ( _1 ) -# 44933 "parsing/parser.ml" +# 44936 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44953,23 +44956,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 3076 "parsing/parser.mly" +# 3079 "parsing/parser.mly" ( Ppat_variant(_1, None) ) -# 44959 "parsing/parser.ml" +# 44962 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 44967 "parsing/parser.ml" +# 44970 "parsing/parser.ml" in -# 3064 "parsing/parser.mly" +# 3067 "parsing/parser.mly" ( _1 ) -# 44973 "parsing/parser.ml" +# 44976 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45006,15 +45009,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 45012 "parsing/parser.ml" +# 45015 "parsing/parser.ml" in -# 3078 "parsing/parser.mly" +# 3081 "parsing/parser.mly" ( Ppat_type (_2) ) -# 45018 "parsing/parser.ml" +# 45021 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -45022,15 +45025,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45028 "parsing/parser.ml" +# 45031 "parsing/parser.ml" in -# 3064 "parsing/parser.mly" +# 3067 "parsing/parser.mly" ( _1 ) -# 45034 "parsing/parser.ml" +# 45037 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45073,15 +45076,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 45079 "parsing/parser.ml" +# 45082 "parsing/parser.ml" in -# 3080 "parsing/parser.mly" +# 3083 "parsing/parser.mly" ( Ppat_open(_1, _3) ) -# 45085 "parsing/parser.ml" +# 45088 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -45089,15 +45092,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45095 "parsing/parser.ml" +# 45098 "parsing/parser.ml" in -# 3064 "parsing/parser.mly" +# 3067 "parsing/parser.mly" ( _1 ) -# 45101 "parsing/parser.ml" +# 45104 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45145,18 +45148,18 @@ module Tables = struct let _3 = let (_endpos__2_, _startpos__1_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in let _1 = -# 3081 "parsing/parser.mly" +# 3084 "parsing/parser.mly" (Lident "[]") -# 45151 "parsing/parser.ml" +# 45154 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 45160 "parsing/parser.ml" +# 45163 "parsing/parser.ml" in let _endpos__3_ = _endpos__2_inlined1_ in @@ -45165,18 +45168,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 45171 "parsing/parser.ml" +# 45174 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3082 "parsing/parser.mly" +# 3085 "parsing/parser.mly" ( Ppat_open(_1, mkpat ~loc:_sloc (Ppat_construct(_3, None))) ) -# 45180 "parsing/parser.ml" +# 45183 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_inlined1_ in @@ -45184,15 +45187,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45190 "parsing/parser.ml" +# 45193 "parsing/parser.ml" in -# 3064 "parsing/parser.mly" +# 3067 "parsing/parser.mly" ( _1 ) -# 45196 "parsing/parser.ml" +# 45199 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45240,18 +45243,18 @@ module Tables = struct let _3 = let (_endpos__2_, _startpos__1_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in let _1 = -# 3083 "parsing/parser.mly" +# 3086 "parsing/parser.mly" (Lident "()") -# 45246 "parsing/parser.ml" +# 45249 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 45255 "parsing/parser.ml" +# 45258 "parsing/parser.ml" in let _endpos__3_ = _endpos__2_inlined1_ in @@ -45260,18 +45263,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 45266 "parsing/parser.ml" +# 45269 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3084 "parsing/parser.mly" +# 3087 "parsing/parser.mly" ( Ppat_open(_1, mkpat ~loc:_sloc (Ppat_construct(_3, None))) ) -# 45275 "parsing/parser.ml" +# 45278 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_inlined1_ in @@ -45279,15 +45282,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45285 "parsing/parser.ml" +# 45288 "parsing/parser.ml" in -# 3064 "parsing/parser.mly" +# 3067 "parsing/parser.mly" ( _1 ) -# 45291 "parsing/parser.ml" +# 45294 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45344,15 +45347,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 45350 "parsing/parser.ml" +# 45353 "parsing/parser.ml" in -# 3086 "parsing/parser.mly" +# 3089 "parsing/parser.mly" ( Ppat_open (_1, _4) ) -# 45356 "parsing/parser.ml" +# 45359 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -45360,15 +45363,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45366 "parsing/parser.ml" +# 45369 "parsing/parser.ml" in -# 3064 "parsing/parser.mly" +# 3067 "parsing/parser.mly" ( _1 ) -# 45372 "parsing/parser.ml" +# 45375 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45423,9 +45426,9 @@ module Tables = struct let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3088 "parsing/parser.mly" +# 3091 "parsing/parser.mly" ( unclosed "(" _loc__3_ ")" _loc__5_ ) -# 45429 "parsing/parser.ml" +# 45432 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -45433,15 +45436,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45439 "parsing/parser.ml" +# 45442 "parsing/parser.ml" in -# 3064 "parsing/parser.mly" +# 3067 "parsing/parser.mly" ( _1 ) -# 45445 "parsing/parser.ml" +# 45448 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45488,9 +45491,9 @@ module Tables = struct let _1 = let _loc__4_ = (_startpos__4_, _endpos__4_) in -# 3090 "parsing/parser.mly" +# 3093 "parsing/parser.mly" ( expecting _loc__4_ "pattern" ) -# 45494 "parsing/parser.ml" +# 45497 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -45498,15 +45501,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45504 "parsing/parser.ml" +# 45507 "parsing/parser.ml" in -# 3064 "parsing/parser.mly" +# 3067 "parsing/parser.mly" ( _1 ) -# 45510 "parsing/parser.ml" +# 45513 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45547,9 +45550,9 @@ module Tables = struct let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 3092 "parsing/parser.mly" +# 3095 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) -# 45553 "parsing/parser.ml" +# 45556 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -45557,15 +45560,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45563 "parsing/parser.ml" +# 45566 "parsing/parser.ml" in -# 3064 "parsing/parser.mly" +# 3067 "parsing/parser.mly" ( _1 ) -# 45569 "parsing/parser.ml" +# 45572 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45617,24 +45620,24 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 3094 "parsing/parser.mly" +# 3097 "parsing/parser.mly" ( Ppat_constraint(_2, _4) ) -# 45623 "parsing/parser.ml" +# 45626 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45632 "parsing/parser.ml" +# 45635 "parsing/parser.ml" in -# 3064 "parsing/parser.mly" +# 3067 "parsing/parser.mly" ( _1 ) -# 45638 "parsing/parser.ml" +# 45641 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45689,9 +45692,9 @@ module Tables = struct let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 3096 "parsing/parser.mly" +# 3099 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__5_ ) -# 45695 "parsing/parser.ml" +# 45698 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -45699,15 +45702,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45705 "parsing/parser.ml" +# 45708 "parsing/parser.ml" in -# 3064 "parsing/parser.mly" +# 3067 "parsing/parser.mly" ( _1 ) -# 45711 "parsing/parser.ml" +# 45714 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45754,9 +45757,9 @@ module Tables = struct let _1 = let _loc__4_ = (_startpos__4_, _endpos__4_) in -# 3098 "parsing/parser.mly" +# 3101 "parsing/parser.mly" ( expecting _loc__4_ "type" ) -# 45760 "parsing/parser.ml" +# 45763 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -45764,15 +45767,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45770 "parsing/parser.ml" +# 45773 "parsing/parser.ml" in -# 3064 "parsing/parser.mly" +# 3067 "parsing/parser.mly" ( _1 ) -# 45776 "parsing/parser.ml" +# 45779 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45851,11 +45854,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3790 "parsing/parser.mly" +# 3793 "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 ) -# 45859 "parsing/parser.ml" +# 45862 "parsing/parser.ml" in let _3 = @@ -45863,23 +45866,23 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 45869 "parsing/parser.ml" +# 45872 "parsing/parser.ml" in -# 4232 "parsing/parser.mly" +# 4235 "parsing/parser.mly" ( _1, _2 ) -# 45875 "parsing/parser.ml" +# 45878 "parsing/parser.ml" in let _loc__7_ = (_startpos__7_, _endpos__7_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 3101 "parsing/parser.mly" +# 3104 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__7_ ) -# 45883 "parsing/parser.ml" +# 45886 "parsing/parser.ml" in let _endpos__1_ = _endpos__7_ in @@ -45887,15 +45890,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45893 "parsing/parser.ml" +# 45896 "parsing/parser.ml" in -# 3064 "parsing/parser.mly" +# 3067 "parsing/parser.mly" ( _1 ) -# 45899 "parsing/parser.ml" +# 45902 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45919,23 +45922,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 3103 "parsing/parser.mly" +# 3106 "parsing/parser.mly" ( Ppat_extension _1 ) -# 45925 "parsing/parser.ml" +# 45928 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45933 "parsing/parser.ml" +# 45936 "parsing/parser.ml" in -# 3064 "parsing/parser.mly" +# 3067 "parsing/parser.mly" ( _1 ) -# 45939 "parsing/parser.ml" +# 45942 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45954,17 +45957,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 45960 "parsing/parser.ml" +# 45963 "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) = -# 4138 "parsing/parser.mly" +# 4141 "parsing/parser.mly" ( _1 ) -# 45968 "parsing/parser.ml" +# 45971 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45983,92 +45986,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 893 "parsing/parser.mly" +# 896 "parsing/parser.mly" (string) -# 45989 "parsing/parser.ml" +# 45992 "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) = -# 4139 "parsing/parser.mly" - ( _1 ) -# 45997 "parsing/parser.ml" - in - { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = Obj.repr _v; - MenhirLib.EngineTypes.startp = _startpos; - MenhirLib.EngineTypes.endp = _endpos; - MenhirLib.EngineTypes.next = _menhir_stack; - }); - (fun _menhir_env -> - let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in - let { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = _1; - MenhirLib.EngineTypes.startp = _startpos__1_; - MenhirLib.EngineTypes.endp = _endpos__1_; - MenhirLib.EngineTypes.next = _menhir_stack; - } = _menhir_stack 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__1_ in - let _v : (string) = -# 4140 "parsing/parser.mly" - ( "and" ) -# 46022 "parsing/parser.ml" - in - { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = Obj.repr _v; - MenhirLib.EngineTypes.startp = _startpos; - MenhirLib.EngineTypes.endp = _endpos; - MenhirLib.EngineTypes.next = _menhir_stack; - }); - (fun _menhir_env -> - let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in - let { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = _1; - MenhirLib.EngineTypes.startp = _startpos__1_; - MenhirLib.EngineTypes.endp = _endpos__1_; - MenhirLib.EngineTypes.next = _menhir_stack; - } = _menhir_stack 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__1_ in - let _v : (string) = -# 4141 "parsing/parser.mly" - ( "as" ) -# 46047 "parsing/parser.ml" - in - { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = Obj.repr _v; - MenhirLib.EngineTypes.startp = _startpos; - MenhirLib.EngineTypes.endp = _endpos; - MenhirLib.EngineTypes.next = _menhir_stack; - }); - (fun _menhir_env -> - let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in - let { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = _1; - MenhirLib.EngineTypes.startp = _startpos__1_; - MenhirLib.EngineTypes.endp = _endpos__1_; - MenhirLib.EngineTypes.next = _menhir_stack; - } = _menhir_stack 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__1_ in - let _v : (string) = # 4142 "parsing/parser.mly" - ( "assert" ) -# 46072 "parsing/parser.ml" + ( _1 ) +# 46000 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46092,8 +46020,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4143 "parsing/parser.mly" - ( "begin" ) -# 46097 "parsing/parser.ml" + ( "and" ) +# 46025 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46117,8 +46045,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4144 "parsing/parser.mly" - ( "class" ) -# 46122 "parsing/parser.ml" + ( "as" ) +# 46050 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46142,8 +46070,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4145 "parsing/parser.mly" - ( "constraint" ) -# 46147 "parsing/parser.ml" + ( "assert" ) +# 46075 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46167,8 +46095,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4146 "parsing/parser.mly" - ( "do" ) -# 46172 "parsing/parser.ml" + ( "begin" ) +# 46100 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46192,8 +46120,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4147 "parsing/parser.mly" - ( "done" ) -# 46197 "parsing/parser.ml" + ( "class" ) +# 46125 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46217,8 +46145,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4148 "parsing/parser.mly" - ( "downto" ) -# 46222 "parsing/parser.ml" + ( "constraint" ) +# 46150 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46242,8 +46170,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4149 "parsing/parser.mly" - ( "else" ) -# 46247 "parsing/parser.ml" + ( "do" ) +# 46175 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46267,8 +46195,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4150 "parsing/parser.mly" - ( "end" ) -# 46272 "parsing/parser.ml" + ( "done" ) +# 46200 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46292,8 +46220,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4151 "parsing/parser.mly" - ( "exception" ) -# 46297 "parsing/parser.ml" + ( "downto" ) +# 46225 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46317,8 +46245,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4152 "parsing/parser.mly" - ( "external" ) -# 46322 "parsing/parser.ml" + ( "else" ) +# 46250 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46342,8 +46270,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4153 "parsing/parser.mly" - ( "false" ) -# 46347 "parsing/parser.ml" + ( "end" ) +# 46275 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46367,8 +46295,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4154 "parsing/parser.mly" - ( "for" ) -# 46372 "parsing/parser.ml" + ( "exception" ) +# 46300 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46392,8 +46320,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4155 "parsing/parser.mly" - ( "fun" ) -# 46397 "parsing/parser.ml" + ( "external" ) +# 46325 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46417,8 +46345,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4156 "parsing/parser.mly" - ( "function" ) -# 46422 "parsing/parser.ml" + ( "false" ) +# 46350 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46442,8 +46370,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4157 "parsing/parser.mly" - ( "functor" ) -# 46447 "parsing/parser.ml" + ( "for" ) +# 46375 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46467,8 +46395,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4158 "parsing/parser.mly" - ( "nonlocal_" ) -# 46472 "parsing/parser.ml" + ( "fun" ) +# 46400 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46492,8 +46420,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4159 "parsing/parser.mly" - ( "if" ) -# 46497 "parsing/parser.ml" + ( "function" ) +# 46425 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46517,8 +46445,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4160 "parsing/parser.mly" - ( "in" ) -# 46522 "parsing/parser.ml" + ( "functor" ) +# 46450 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46542,8 +46470,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4161 "parsing/parser.mly" - ( "include" ) -# 46547 "parsing/parser.ml" + ( "nonlocal_" ) +# 46475 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46567,8 +46495,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4162 "parsing/parser.mly" - ( "inherit" ) -# 46572 "parsing/parser.ml" + ( "if" ) +# 46500 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46592,8 +46520,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4163 "parsing/parser.mly" - ( "initializer" ) -# 46597 "parsing/parser.ml" + ( "in" ) +# 46525 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46617,8 +46545,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4164 "parsing/parser.mly" - ( "lazy" ) -# 46622 "parsing/parser.ml" + ( "include" ) +# 46550 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46642,8 +46570,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4165 "parsing/parser.mly" - ( "let" ) -# 46647 "parsing/parser.ml" + ( "inherit" ) +# 46575 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46667,8 +46595,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4166 "parsing/parser.mly" - ( "local_" ) -# 46672 "parsing/parser.ml" + ( "initializer" ) +# 46600 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46692,8 +46620,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4167 "parsing/parser.mly" - ( "match" ) -# 46697 "parsing/parser.ml" + ( "lazy" ) +# 46625 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46717,8 +46645,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4168 "parsing/parser.mly" - ( "method" ) -# 46722 "parsing/parser.ml" + ( "let" ) +# 46650 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46742,8 +46670,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4169 "parsing/parser.mly" - ( "module" ) -# 46747 "parsing/parser.ml" + ( "local_" ) +# 46675 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46767,8 +46695,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4170 "parsing/parser.mly" - ( "mutable" ) -# 46772 "parsing/parser.ml" + ( "match" ) +# 46700 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46792,8 +46720,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4171 "parsing/parser.mly" - ( "new" ) -# 46797 "parsing/parser.ml" + ( "method" ) +# 46725 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46817,8 +46745,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4172 "parsing/parser.mly" - ( "nonrec" ) -# 46822 "parsing/parser.ml" + ( "module" ) +# 46750 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46842,8 +46770,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4173 "parsing/parser.mly" - ( "object" ) -# 46847 "parsing/parser.ml" + ( "mutable" ) +# 46775 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46867,8 +46795,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4174 "parsing/parser.mly" - ( "of" ) -# 46872 "parsing/parser.ml" + ( "new" ) +# 46800 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46892,8 +46820,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4175 "parsing/parser.mly" - ( "open" ) -# 46897 "parsing/parser.ml" + ( "nonrec" ) +# 46825 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46917,8 +46845,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4176 "parsing/parser.mly" - ( "or" ) -# 46922 "parsing/parser.ml" + ( "object" ) +# 46850 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46942,8 +46870,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4177 "parsing/parser.mly" - ( "private" ) -# 46947 "parsing/parser.ml" + ( "of" ) +# 46875 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46967,8 +46895,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4178 "parsing/parser.mly" - ( "rec" ) -# 46972 "parsing/parser.ml" + ( "open" ) +# 46900 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46992,8 +46920,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4179 "parsing/parser.mly" - ( "sig" ) -# 46997 "parsing/parser.ml" + ( "or" ) +# 46925 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47017,8 +46945,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4180 "parsing/parser.mly" - ( "struct" ) -# 47022 "parsing/parser.ml" + ( "private" ) +# 46950 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47042,8 +46970,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4181 "parsing/parser.mly" - ( "then" ) -# 47047 "parsing/parser.ml" + ( "rec" ) +# 46975 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47067,8 +46995,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4182 "parsing/parser.mly" - ( "to" ) -# 47072 "parsing/parser.ml" + ( "sig" ) +# 47000 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47092,8 +47020,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4183 "parsing/parser.mly" - ( "true" ) -# 47097 "parsing/parser.ml" + ( "struct" ) +# 47025 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47117,8 +47045,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4184 "parsing/parser.mly" - ( "try" ) -# 47122 "parsing/parser.ml" + ( "then" ) +# 47050 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47142,8 +47070,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4185 "parsing/parser.mly" - ( "type" ) -# 47147 "parsing/parser.ml" + ( "to" ) +# 47075 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47167,8 +47095,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4186 "parsing/parser.mly" - ( "val" ) -# 47172 "parsing/parser.ml" + ( "true" ) +# 47100 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47192,8 +47120,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4187 "parsing/parser.mly" - ( "virtual" ) -# 47197 "parsing/parser.ml" + ( "try" ) +# 47125 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47217,8 +47145,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4188 "parsing/parser.mly" - ( "when" ) -# 47222 "parsing/parser.ml" + ( "type" ) +# 47150 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47242,8 +47170,8 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4189 "parsing/parser.mly" - ( "while" ) -# 47247 "parsing/parser.ml" + ( "val" ) +# 47175 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47267,8 +47195,83 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string) = # 4190 "parsing/parser.mly" + ( "virtual" ) +# 47200 "parsing/parser.ml" + in + { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = Obj.repr _v; + MenhirLib.EngineTypes.startp = _startpos; + MenhirLib.EngineTypes.endp = _endpos; + MenhirLib.EngineTypes.next = _menhir_stack; + }); + (fun _menhir_env -> + let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in + let { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = _1; + MenhirLib.EngineTypes.startp = _startpos__1_; + MenhirLib.EngineTypes.endp = _endpos__1_; + MenhirLib.EngineTypes.next = _menhir_stack; + } = _menhir_stack 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__1_ in + let _v : (string) = +# 4191 "parsing/parser.mly" + ( "when" ) +# 47225 "parsing/parser.ml" + in + { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = Obj.repr _v; + MenhirLib.EngineTypes.startp = _startpos; + MenhirLib.EngineTypes.endp = _endpos; + MenhirLib.EngineTypes.next = _menhir_stack; + }); + (fun _menhir_env -> + let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in + let { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = _1; + MenhirLib.EngineTypes.startp = _startpos__1_; + MenhirLib.EngineTypes.endp = _endpos__1_; + MenhirLib.EngineTypes.next = _menhir_stack; + } = _menhir_stack 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__1_ in + let _v : (string) = +# 4192 "parsing/parser.mly" + ( "while" ) +# 47250 "parsing/parser.ml" + in + { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = Obj.repr _v; + MenhirLib.EngineTypes.startp = _startpos; + MenhirLib.EngineTypes.endp = _endpos; + MenhirLib.EngineTypes.next = _menhir_stack; + }); + (fun _menhir_env -> + let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in + let { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = _1; + MenhirLib.EngineTypes.startp = _startpos__1_; + MenhirLib.EngineTypes.endp = _endpos__1_; + MenhirLib.EngineTypes.next = _menhir_stack; + } = _menhir_stack 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__1_ in + let _v : (string) = +# 4193 "parsing/parser.mly" ( "with" ) -# 47272 "parsing/parser.ml" +# 47275 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47291,9 +47294,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.type_exception * string Asttypes.loc option) = -# 3401 "parsing/parser.mly" +# 3404 "parsing/parser.mly" ( _1 ) -# 47297 "parsing/parser.ml" +# 47300 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47367,18 +47370,18 @@ module Tables = struct let _v : (Parsetree.type_exception * string Asttypes.loc option) = let attrs = let _1 = _1_inlined5 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 47373 "parsing/parser.ml" +# 47376 "parsing/parser.ml" in let _endpos_attrs_ = _endpos__1_inlined5_ in let attrs2 = let _1 = _1_inlined4 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 47382 "parsing/parser.ml" +# 47385 "parsing/parser.ml" in let lid = @@ -47387,9 +47390,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 47393 "parsing/parser.ml" +# 47396 "parsing/parser.ml" in let id = @@ -47398,30 +47401,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 47404 "parsing/parser.ml" +# 47407 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 47412 "parsing/parser.ml" +# 47415 "parsing/parser.ml" in let _endpos = _endpos_attrs_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3410 "parsing/parser.mly" +# 3413 "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 ) -# 47425 "parsing/parser.ml" +# 47428 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47451,9 +47454,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = -# 2875 "parsing/parser.mly" +# 2878 "parsing/parser.mly" ( _2 ) -# 47457 "parsing/parser.ml" +# 47460 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47486,9 +47489,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2877 "parsing/parser.mly" +# 2880 "parsing/parser.mly" ( let (l, o, p) = _1 in ghexp ~loc:_sloc (Pexp_fun(l, o, p, _2)) ) -# 47492 "parsing/parser.ml" +# 47495 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47539,17 +47542,17 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _3 = -# 2751 "parsing/parser.mly" +# 2754 "parsing/parser.mly" ( xs ) -# 47545 "parsing/parser.ml" +# 47548 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2879 "parsing/parser.mly" +# 2882 "parsing/parser.mly" ( mk_newtypes ~loc:_sloc _3 _5 ) -# 47553 "parsing/parser.ml" +# 47556 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47631,24 +47634,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 47635 "parsing/parser.ml" +# 47638 "parsing/parser.ml" in -# 1128 "parsing/parser.mly" +# 1131 "parsing/parser.mly" ( xs ) -# 47640 "parsing/parser.ml" +# 47643 "parsing/parser.ml" in -# 3586 "parsing/parser.mly" +# 3589 "parsing/parser.mly" ( _1 ) -# 47646 "parsing/parser.ml" +# 47649 "parsing/parser.ml" in -# 3698 "parsing/parser.mly" +# 3701 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 47652 "parsing/parser.ml" +# 47655 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -47656,40 +47659,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 47662 "parsing/parser.ml" +# 47665 "parsing/parser.ml" in -# 3700 "parsing/parser.mly" +# 3703 "parsing/parser.mly" ( _1 ) -# 47668 "parsing/parser.ml" +# 47671 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1024 "parsing/parser.mly" +# 1027 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 47675 "parsing/parser.ml" +# 47678 "parsing/parser.ml" in let local = -# 3691 "parsing/parser.mly" +# 3694 "parsing/parser.mly" ( false ) -# 47681 "parsing/parser.ml" +# 47684 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos_label_, _endpos_label_) in let label = -# 3683 "parsing/parser.mly" +# 3686 "parsing/parser.mly" ( Optional label ) -# 47687 "parsing/parser.ml" +# 47690 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3663 "parsing/parser.mly" +# 3666 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 47693 "parsing/parser.ml" +# 47696 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -47697,15 +47700,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 47703 "parsing/parser.ml" +# 47706 "parsing/parser.ml" in -# 3665 "parsing/parser.mly" +# 3668 "parsing/parser.mly" ( _1 ) -# 47709 "parsing/parser.ml" +# 47712 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47752,33 +47755,33 @@ module Tables = struct let _1 = let domain = let _1 = -# 3702 "parsing/parser.mly" +# 3705 "parsing/parser.mly" ( ty ) -# 47758 "parsing/parser.ml" +# 47761 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1024 "parsing/parser.mly" +# 1027 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 47764 "parsing/parser.ml" +# 47767 "parsing/parser.ml" in let local = -# 3691 "parsing/parser.mly" +# 3694 "parsing/parser.mly" ( false ) -# 47770 "parsing/parser.ml" +# 47773 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos_label_, _endpos_label_) in let label = -# 3683 "parsing/parser.mly" +# 3686 "parsing/parser.mly" ( Optional label ) -# 47776 "parsing/parser.ml" +# 47779 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3663 "parsing/parser.mly" +# 3666 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 47782 "parsing/parser.ml" +# 47785 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -47786,15 +47789,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 47792 "parsing/parser.ml" +# 47795 "parsing/parser.ml" in -# 3665 "parsing/parser.mly" +# 3668 "parsing/parser.mly" ( _1 ) -# 47798 "parsing/parser.ml" +# 47801 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47884,24 +47887,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 47888 "parsing/parser.ml" +# 47891 "parsing/parser.ml" in -# 1128 "parsing/parser.mly" +# 1131 "parsing/parser.mly" ( xs ) -# 47893 "parsing/parser.ml" +# 47896 "parsing/parser.ml" in -# 3586 "parsing/parser.mly" +# 3589 "parsing/parser.mly" ( _1 ) -# 47899 "parsing/parser.ml" +# 47902 "parsing/parser.ml" in -# 3698 "parsing/parser.mly" +# 3701 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 47905 "parsing/parser.ml" +# 47908 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -47909,40 +47912,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 47915 "parsing/parser.ml" +# 47918 "parsing/parser.ml" in -# 3700 "parsing/parser.mly" +# 3703 "parsing/parser.mly" ( _1 ) -# 47921 "parsing/parser.ml" +# 47924 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1024 "parsing/parser.mly" +# 1027 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 47928 "parsing/parser.ml" +# 47931 "parsing/parser.ml" in let local = -# 3693 "parsing/parser.mly" +# 3696 "parsing/parser.mly" ( true ) -# 47934 "parsing/parser.ml" +# 47937 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3683 "parsing/parser.mly" +# 3686 "parsing/parser.mly" ( Optional label ) -# 47940 "parsing/parser.ml" +# 47943 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3663 "parsing/parser.mly" +# 3666 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 47946 "parsing/parser.ml" +# 47949 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -47950,15 +47953,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 47956 "parsing/parser.ml" +# 47959 "parsing/parser.ml" in -# 3665 "parsing/parser.mly" +# 3668 "parsing/parser.mly" ( _1 ) -# 47962 "parsing/parser.ml" +# 47965 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48012,33 +48015,33 @@ module Tables = struct let _1 = let domain = let _1 = -# 3702 "parsing/parser.mly" +# 3705 "parsing/parser.mly" ( ty ) -# 48018 "parsing/parser.ml" +# 48021 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1024 "parsing/parser.mly" +# 1027 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 48024 "parsing/parser.ml" +# 48027 "parsing/parser.ml" in let local = -# 3693 "parsing/parser.mly" +# 3696 "parsing/parser.mly" ( true ) -# 48030 "parsing/parser.ml" +# 48033 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3683 "parsing/parser.mly" +# 3686 "parsing/parser.mly" ( Optional label ) -# 48036 "parsing/parser.ml" +# 48039 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3663 "parsing/parser.mly" +# 3666 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 48042 "parsing/parser.ml" +# 48045 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -48046,15 +48049,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48052 "parsing/parser.ml" +# 48055 "parsing/parser.ml" in -# 3665 "parsing/parser.mly" +# 3668 "parsing/parser.mly" ( _1 ) -# 48058 "parsing/parser.ml" +# 48061 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48129,9 +48132,9 @@ module Tables = struct let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 48135 "parsing/parser.ml" +# 48138 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -48147,24 +48150,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 48151 "parsing/parser.ml" +# 48154 "parsing/parser.ml" in -# 1128 "parsing/parser.mly" +# 1131 "parsing/parser.mly" ( xs ) -# 48156 "parsing/parser.ml" +# 48159 "parsing/parser.ml" in -# 3586 "parsing/parser.mly" +# 3589 "parsing/parser.mly" ( _1 ) -# 48162 "parsing/parser.ml" +# 48165 "parsing/parser.ml" in -# 3698 "parsing/parser.mly" +# 3701 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 48168 "parsing/parser.ml" +# 48171 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -48172,40 +48175,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48178 "parsing/parser.ml" +# 48181 "parsing/parser.ml" in -# 3700 "parsing/parser.mly" +# 3703 "parsing/parser.mly" ( _1 ) -# 48184 "parsing/parser.ml" +# 48187 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1024 "parsing/parser.mly" +# 1027 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 48191 "parsing/parser.ml" +# 48194 "parsing/parser.ml" in let local = -# 3691 "parsing/parser.mly" +# 3694 "parsing/parser.mly" ( false ) -# 48197 "parsing/parser.ml" +# 48200 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__2_, _endpos__2_) in let label = -# 3685 "parsing/parser.mly" +# 3688 "parsing/parser.mly" ( Labelled label ) -# 48203 "parsing/parser.ml" +# 48206 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3663 "parsing/parser.mly" +# 3666 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 48209 "parsing/parser.ml" +# 48212 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -48213,15 +48216,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48219 "parsing/parser.ml" +# 48222 "parsing/parser.ml" in -# 3665 "parsing/parser.mly" +# 3668 "parsing/parser.mly" ( _1 ) -# 48225 "parsing/parser.ml" +# 48228 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48268,9 +48271,9 @@ module Tables = struct let ty : (Parsetree.core_type) = Obj.magic ty in let _2 : unit = Obj.magic _2 in let label : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 48274 "parsing/parser.ml" +# 48277 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -48279,33 +48282,33 @@ module Tables = struct let _1 = let domain = let _1 = -# 3702 "parsing/parser.mly" +# 3705 "parsing/parser.mly" ( ty ) -# 48285 "parsing/parser.ml" +# 48288 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1024 "parsing/parser.mly" +# 1027 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 48291 "parsing/parser.ml" +# 48294 "parsing/parser.ml" in let local = -# 3691 "parsing/parser.mly" +# 3694 "parsing/parser.mly" ( false ) -# 48297 "parsing/parser.ml" +# 48300 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__2_, _endpos__2_) in let label = -# 3685 "parsing/parser.mly" +# 3688 "parsing/parser.mly" ( Labelled label ) -# 48303 "parsing/parser.ml" +# 48306 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3663 "parsing/parser.mly" +# 3666 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 48309 "parsing/parser.ml" +# 48312 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -48313,15 +48316,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48319 "parsing/parser.ml" +# 48322 "parsing/parser.ml" in -# 3665 "parsing/parser.mly" +# 3668 "parsing/parser.mly" ( _1 ) -# 48325 "parsing/parser.ml" +# 48328 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48403,9 +48406,9 @@ module Tables = struct let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 48409 "parsing/parser.ml" +# 48412 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -48422,24 +48425,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 48426 "parsing/parser.ml" +# 48429 "parsing/parser.ml" in -# 1128 "parsing/parser.mly" +# 1131 "parsing/parser.mly" ( xs ) -# 48431 "parsing/parser.ml" +# 48434 "parsing/parser.ml" in -# 3586 "parsing/parser.mly" +# 3589 "parsing/parser.mly" ( _1 ) -# 48437 "parsing/parser.ml" +# 48440 "parsing/parser.ml" in -# 3698 "parsing/parser.mly" +# 3701 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 48443 "parsing/parser.ml" +# 48446 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -48447,40 +48450,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48453 "parsing/parser.ml" +# 48456 "parsing/parser.ml" in -# 3700 "parsing/parser.mly" +# 3703 "parsing/parser.mly" ( _1 ) -# 48459 "parsing/parser.ml" +# 48462 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1024 "parsing/parser.mly" +# 1027 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 48466 "parsing/parser.ml" +# 48469 "parsing/parser.ml" in let local = -# 3693 "parsing/parser.mly" +# 3696 "parsing/parser.mly" ( true ) -# 48472 "parsing/parser.ml" +# 48475 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3685 "parsing/parser.mly" +# 3688 "parsing/parser.mly" ( Labelled label ) -# 48478 "parsing/parser.ml" +# 48481 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3663 "parsing/parser.mly" +# 3666 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 48484 "parsing/parser.ml" +# 48487 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -48488,15 +48491,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48494 "parsing/parser.ml" +# 48497 "parsing/parser.ml" in -# 3665 "parsing/parser.mly" +# 3668 "parsing/parser.mly" ( _1 ) -# 48500 "parsing/parser.ml" +# 48503 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48550,9 +48553,9 @@ module Tables = struct let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 48556 "parsing/parser.ml" +# 48559 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -48561,33 +48564,33 @@ module Tables = struct let _1 = let domain = let _1 = -# 3702 "parsing/parser.mly" +# 3705 "parsing/parser.mly" ( ty ) -# 48567 "parsing/parser.ml" +# 48570 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1024 "parsing/parser.mly" +# 1027 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 48573 "parsing/parser.ml" +# 48576 "parsing/parser.ml" in let local = -# 3693 "parsing/parser.mly" +# 3696 "parsing/parser.mly" ( true ) -# 48579 "parsing/parser.ml" +# 48582 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3685 "parsing/parser.mly" +# 3688 "parsing/parser.mly" ( Labelled label ) -# 48585 "parsing/parser.ml" +# 48588 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3663 "parsing/parser.mly" +# 3666 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 48591 "parsing/parser.ml" +# 48594 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -48595,15 +48598,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48601 "parsing/parser.ml" +# 48604 "parsing/parser.ml" in -# 3665 "parsing/parser.mly" +# 3668 "parsing/parser.mly" ( _1 ) -# 48607 "parsing/parser.ml" +# 48610 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48678,24 +48681,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 48682 "parsing/parser.ml" +# 48685 "parsing/parser.ml" in -# 1128 "parsing/parser.mly" +# 1131 "parsing/parser.mly" ( xs ) -# 48687 "parsing/parser.ml" +# 48690 "parsing/parser.ml" in -# 3586 "parsing/parser.mly" +# 3589 "parsing/parser.mly" ( _1 ) -# 48693 "parsing/parser.ml" +# 48696 "parsing/parser.ml" in -# 3698 "parsing/parser.mly" +# 3701 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 48699 "parsing/parser.ml" +# 48702 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -48703,40 +48706,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48709 "parsing/parser.ml" +# 48712 "parsing/parser.ml" in -# 3700 "parsing/parser.mly" +# 3703 "parsing/parser.mly" ( _1 ) -# 48715 "parsing/parser.ml" +# 48718 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1024 "parsing/parser.mly" +# 1027 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 48722 "parsing/parser.ml" +# 48725 "parsing/parser.ml" in let local = -# 3691 "parsing/parser.mly" +# 3694 "parsing/parser.mly" ( false ) -# 48728 "parsing/parser.ml" +# 48731 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__0_, _endpos__0_) in let label = -# 3687 "parsing/parser.mly" +# 3690 "parsing/parser.mly" ( Nolabel ) -# 48734 "parsing/parser.ml" +# 48737 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3663 "parsing/parser.mly" +# 3666 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 48740 "parsing/parser.ml" +# 48743 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -48744,15 +48747,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48750 "parsing/parser.ml" +# 48753 "parsing/parser.ml" in -# 3665 "parsing/parser.mly" +# 3668 "parsing/parser.mly" ( _1 ) -# 48756 "parsing/parser.ml" +# 48759 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48792,33 +48795,33 @@ module Tables = struct let _1 = let domain = let _1 = -# 3702 "parsing/parser.mly" +# 3705 "parsing/parser.mly" ( ty ) -# 48798 "parsing/parser.ml" +# 48801 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1024 "parsing/parser.mly" +# 1027 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 48804 "parsing/parser.ml" +# 48807 "parsing/parser.ml" in let local = -# 3691 "parsing/parser.mly" +# 3694 "parsing/parser.mly" ( false ) -# 48810 "parsing/parser.ml" +# 48813 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__0_, _endpos__0_) in let label = -# 3687 "parsing/parser.mly" +# 3690 "parsing/parser.mly" ( Nolabel ) -# 48816 "parsing/parser.ml" +# 48819 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3663 "parsing/parser.mly" +# 3666 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 48822 "parsing/parser.ml" +# 48825 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_ty_) in @@ -48826,15 +48829,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48832 "parsing/parser.ml" +# 48835 "parsing/parser.ml" in -# 3665 "parsing/parser.mly" +# 3668 "parsing/parser.mly" ( _1 ) -# 48838 "parsing/parser.ml" +# 48841 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48917,24 +48920,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 48921 "parsing/parser.ml" +# 48924 "parsing/parser.ml" in -# 1128 "parsing/parser.mly" +# 1131 "parsing/parser.mly" ( xs ) -# 48926 "parsing/parser.ml" +# 48929 "parsing/parser.ml" in -# 3586 "parsing/parser.mly" +# 3589 "parsing/parser.mly" ( _1 ) -# 48932 "parsing/parser.ml" +# 48935 "parsing/parser.ml" in -# 3698 "parsing/parser.mly" +# 3701 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 48938 "parsing/parser.ml" +# 48941 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -48942,40 +48945,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48948 "parsing/parser.ml" +# 48951 "parsing/parser.ml" in -# 3700 "parsing/parser.mly" +# 3703 "parsing/parser.mly" ( _1 ) -# 48954 "parsing/parser.ml" +# 48957 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1024 "parsing/parser.mly" +# 1027 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 48961 "parsing/parser.ml" +# 48964 "parsing/parser.ml" in let local = -# 3693 "parsing/parser.mly" +# 3696 "parsing/parser.mly" ( true ) -# 48967 "parsing/parser.ml" +# 48970 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3687 "parsing/parser.mly" +# 3690 "parsing/parser.mly" ( Nolabel ) -# 48973 "parsing/parser.ml" +# 48976 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3663 "parsing/parser.mly" +# 3666 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 48979 "parsing/parser.ml" +# 48982 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -48983,15 +48986,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48989 "parsing/parser.ml" +# 48992 "parsing/parser.ml" in -# 3665 "parsing/parser.mly" +# 3668 "parsing/parser.mly" ( _1 ) -# 48995 "parsing/parser.ml" +# 48998 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49038,33 +49041,33 @@ module Tables = struct let _1 = let domain = let _1 = -# 3702 "parsing/parser.mly" +# 3705 "parsing/parser.mly" ( ty ) -# 49044 "parsing/parser.ml" +# 49047 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1024 "parsing/parser.mly" +# 1027 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 49050 "parsing/parser.ml" +# 49053 "parsing/parser.ml" in let local = -# 3693 "parsing/parser.mly" +# 3696 "parsing/parser.mly" ( true ) -# 49056 "parsing/parser.ml" +# 49059 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3687 "parsing/parser.mly" +# 3690 "parsing/parser.mly" ( Nolabel ) -# 49062 "parsing/parser.ml" +# 49065 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3663 "parsing/parser.mly" +# 3666 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 49068 "parsing/parser.ml" +# 49071 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -49072,15 +49075,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49078 "parsing/parser.ml" +# 49081 "parsing/parser.ml" in -# 3665 "parsing/parser.mly" +# 3668 "parsing/parser.mly" ( _1 ) -# 49084 "parsing/parser.ml" +# 49087 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49154,9 +49157,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3691 "parsing/parser.mly" +# 3694 "parsing/parser.mly" ( false ) -# 49160 "parsing/parser.ml" +# 49163 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = @@ -49168,24 +49171,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 49172 "parsing/parser.ml" +# 49175 "parsing/parser.ml" in -# 1128 "parsing/parser.mly" +# 1131 "parsing/parser.mly" ( xs ) -# 49177 "parsing/parser.ml" +# 49180 "parsing/parser.ml" in -# 3586 "parsing/parser.mly" +# 3589 "parsing/parser.mly" ( _1 ) -# 49183 "parsing/parser.ml" +# 49186 "parsing/parser.ml" in -# 3698 "parsing/parser.mly" +# 3701 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 49189 "parsing/parser.ml" +# 49192 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -49193,45 +49196,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49199 "parsing/parser.ml" +# 49202 "parsing/parser.ml" in -# 3700 "parsing/parser.mly" +# 3703 "parsing/parser.mly" ( _1 ) -# 49205 "parsing/parser.ml" +# 49208 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1024 "parsing/parser.mly" +# 1027 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 49212 "parsing/parser.ml" +# 49215 "parsing/parser.ml" in let arg_local = -# 3691 "parsing/parser.mly" +# 3694 "parsing/parser.mly" ( false ) -# 49218 "parsing/parser.ml" +# 49221 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos_label_, _endpos_label_) in let label = -# 3683 "parsing/parser.mly" +# 3686 "parsing/parser.mly" ( Optional label ) -# 49224 "parsing/parser.ml" +# 49227 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3674 "parsing/parser.mly" +# 3677 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 49235 "parsing/parser.ml" +# 49238 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -49239,15 +49242,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49245 "parsing/parser.ml" +# 49248 "parsing/parser.ml" in -# 3679 "parsing/parser.mly" +# 3682 "parsing/parser.mly" ( _1 ) -# 49251 "parsing/parser.ml" +# 49254 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49328,9 +49331,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3693 "parsing/parser.mly" +# 3696 "parsing/parser.mly" ( true ) -# 49334 "parsing/parser.ml" +# 49337 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let domain = @@ -49342,24 +49345,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 49346 "parsing/parser.ml" +# 49349 "parsing/parser.ml" in -# 1128 "parsing/parser.mly" +# 1131 "parsing/parser.mly" ( xs ) -# 49351 "parsing/parser.ml" +# 49354 "parsing/parser.ml" in -# 3586 "parsing/parser.mly" +# 3589 "parsing/parser.mly" ( _1 ) -# 49357 "parsing/parser.ml" +# 49360 "parsing/parser.ml" in -# 3698 "parsing/parser.mly" +# 3701 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 49363 "parsing/parser.ml" +# 49366 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -49367,45 +49370,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49373 "parsing/parser.ml" +# 49376 "parsing/parser.ml" in -# 3700 "parsing/parser.mly" +# 3703 "parsing/parser.mly" ( _1 ) -# 49379 "parsing/parser.ml" +# 49382 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1024 "parsing/parser.mly" +# 1027 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 49386 "parsing/parser.ml" +# 49389 "parsing/parser.ml" in let arg_local = -# 3691 "parsing/parser.mly" +# 3694 "parsing/parser.mly" ( false ) -# 49392 "parsing/parser.ml" +# 49395 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos_label_, _endpos_label_) in let label = -# 3683 "parsing/parser.mly" +# 3686 "parsing/parser.mly" ( Optional label ) -# 49398 "parsing/parser.ml" +# 49401 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3674 "parsing/parser.mly" +# 3677 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 49409 "parsing/parser.ml" +# 49412 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -49413,15 +49416,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49419 "parsing/parser.ml" +# 49422 "parsing/parser.ml" in -# 3679 "parsing/parser.mly" +# 3682 "parsing/parser.mly" ( _1 ) -# 49425 "parsing/parser.ml" +# 49428 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49467,45 +49470,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3691 "parsing/parser.mly" +# 3694 "parsing/parser.mly" ( false ) -# 49473 "parsing/parser.ml" +# 49476 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = let _1 = -# 3702 "parsing/parser.mly" +# 3705 "parsing/parser.mly" ( ty ) -# 49480 "parsing/parser.ml" +# 49483 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1024 "parsing/parser.mly" +# 1027 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 49486 "parsing/parser.ml" +# 49489 "parsing/parser.ml" in let arg_local = -# 3691 "parsing/parser.mly" +# 3694 "parsing/parser.mly" ( false ) -# 49492 "parsing/parser.ml" +# 49495 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos_label_, _endpos_label_) in let label = -# 3683 "parsing/parser.mly" +# 3686 "parsing/parser.mly" ( Optional label ) -# 49498 "parsing/parser.ml" +# 49501 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3674 "parsing/parser.mly" +# 3677 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 49509 "parsing/parser.ml" +# 49512 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -49513,15 +49516,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49519 "parsing/parser.ml" +# 49522 "parsing/parser.ml" in -# 3679 "parsing/parser.mly" +# 3682 "parsing/parser.mly" ( _1 ) -# 49525 "parsing/parser.ml" +# 49528 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49574,45 +49577,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3693 "parsing/parser.mly" +# 3696 "parsing/parser.mly" ( true ) -# 49580 "parsing/parser.ml" +# 49583 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_, _startpos__1_) in let domain = let _1 = -# 3702 "parsing/parser.mly" +# 3705 "parsing/parser.mly" ( ty ) -# 49587 "parsing/parser.ml" +# 49590 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1024 "parsing/parser.mly" +# 1027 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 49593 "parsing/parser.ml" +# 49596 "parsing/parser.ml" in let arg_local = -# 3691 "parsing/parser.mly" +# 3694 "parsing/parser.mly" ( false ) -# 49599 "parsing/parser.ml" +# 49602 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos_label_, _endpos_label_) in let label = -# 3683 "parsing/parser.mly" +# 3686 "parsing/parser.mly" ( Optional label ) -# 49605 "parsing/parser.ml" +# 49608 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3674 "parsing/parser.mly" +# 3677 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 49616 "parsing/parser.ml" +# 49619 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -49620,15 +49623,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49626 "parsing/parser.ml" +# 49629 "parsing/parser.ml" in -# 3679 "parsing/parser.mly" +# 3682 "parsing/parser.mly" ( _1 ) -# 49632 "parsing/parser.ml" +# 49635 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49709,9 +49712,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3691 "parsing/parser.mly" +# 3694 "parsing/parser.mly" ( false ) -# 49715 "parsing/parser.ml" +# 49718 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = @@ -49724,24 +49727,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 49728 "parsing/parser.ml" +# 49731 "parsing/parser.ml" in -# 1128 "parsing/parser.mly" +# 1131 "parsing/parser.mly" ( xs ) -# 49733 "parsing/parser.ml" +# 49736 "parsing/parser.ml" in -# 3586 "parsing/parser.mly" +# 3589 "parsing/parser.mly" ( _1 ) -# 49739 "parsing/parser.ml" +# 49742 "parsing/parser.ml" in -# 3698 "parsing/parser.mly" +# 3701 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 49745 "parsing/parser.ml" +# 49748 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -49749,45 +49752,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49755 "parsing/parser.ml" +# 49758 "parsing/parser.ml" in -# 3700 "parsing/parser.mly" +# 3703 "parsing/parser.mly" ( _1 ) -# 49761 "parsing/parser.ml" +# 49764 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1024 "parsing/parser.mly" +# 1027 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 49768 "parsing/parser.ml" +# 49771 "parsing/parser.ml" in let arg_local = -# 3693 "parsing/parser.mly" +# 3696 "parsing/parser.mly" ( true ) -# 49774 "parsing/parser.ml" +# 49777 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3683 "parsing/parser.mly" +# 3686 "parsing/parser.mly" ( Optional label ) -# 49780 "parsing/parser.ml" +# 49783 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3674 "parsing/parser.mly" +# 3677 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 49791 "parsing/parser.ml" +# 49794 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -49795,15 +49798,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49801 "parsing/parser.ml" +# 49804 "parsing/parser.ml" in -# 3679 "parsing/parser.mly" +# 3682 "parsing/parser.mly" ( _1 ) -# 49807 "parsing/parser.ml" +# 49810 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49891,9 +49894,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3693 "parsing/parser.mly" +# 3696 "parsing/parser.mly" ( true ) -# 49897 "parsing/parser.ml" +# 49900 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in let domain = @@ -49906,24 +49909,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 49910 "parsing/parser.ml" +# 49913 "parsing/parser.ml" in -# 1128 "parsing/parser.mly" +# 1131 "parsing/parser.mly" ( xs ) -# 49915 "parsing/parser.ml" +# 49918 "parsing/parser.ml" in -# 3586 "parsing/parser.mly" +# 3589 "parsing/parser.mly" ( _1 ) -# 49921 "parsing/parser.ml" +# 49924 "parsing/parser.ml" in -# 3698 "parsing/parser.mly" +# 3701 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 49927 "parsing/parser.ml" +# 49930 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -49931,45 +49934,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49937 "parsing/parser.ml" +# 49940 "parsing/parser.ml" in -# 3700 "parsing/parser.mly" +# 3703 "parsing/parser.mly" ( _1 ) -# 49943 "parsing/parser.ml" +# 49946 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1024 "parsing/parser.mly" +# 1027 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 49950 "parsing/parser.ml" +# 49953 "parsing/parser.ml" in let arg_local = -# 3693 "parsing/parser.mly" +# 3696 "parsing/parser.mly" ( true ) -# 49956 "parsing/parser.ml" +# 49959 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3683 "parsing/parser.mly" +# 3686 "parsing/parser.mly" ( Optional label ) -# 49962 "parsing/parser.ml" +# 49965 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3674 "parsing/parser.mly" +# 3677 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 49973 "parsing/parser.ml" +# 49976 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -49977,15 +49980,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49983 "parsing/parser.ml" +# 49986 "parsing/parser.ml" in -# 3679 "parsing/parser.mly" +# 3682 "parsing/parser.mly" ( _1 ) -# 49989 "parsing/parser.ml" +# 49992 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50038,45 +50041,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3691 "parsing/parser.mly" +# 3694 "parsing/parser.mly" ( false ) -# 50044 "parsing/parser.ml" +# 50047 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = let _1 = -# 3702 "parsing/parser.mly" +# 3705 "parsing/parser.mly" ( ty ) -# 50051 "parsing/parser.ml" +# 50054 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1024 "parsing/parser.mly" +# 1027 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 50057 "parsing/parser.ml" +# 50060 "parsing/parser.ml" in let arg_local = -# 3693 "parsing/parser.mly" +# 3696 "parsing/parser.mly" ( true ) -# 50063 "parsing/parser.ml" +# 50066 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3683 "parsing/parser.mly" +# 3686 "parsing/parser.mly" ( Optional label ) -# 50069 "parsing/parser.ml" +# 50072 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3674 "parsing/parser.mly" +# 3677 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 50080 "parsing/parser.ml" +# 50083 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -50084,15 +50087,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 50090 "parsing/parser.ml" +# 50093 "parsing/parser.ml" in -# 3679 "parsing/parser.mly" +# 3682 "parsing/parser.mly" ( _1 ) -# 50096 "parsing/parser.ml" +# 50099 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50152,45 +50155,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3693 "parsing/parser.mly" +# 3696 "parsing/parser.mly" ( true ) -# 50158 "parsing/parser.ml" +# 50161 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let domain = let _1 = -# 3702 "parsing/parser.mly" +# 3705 "parsing/parser.mly" ( ty ) -# 50165 "parsing/parser.ml" +# 50168 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1024 "parsing/parser.mly" +# 1027 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 50171 "parsing/parser.ml" +# 50174 "parsing/parser.ml" in let arg_local = -# 3693 "parsing/parser.mly" +# 3696 "parsing/parser.mly" ( true ) -# 50177 "parsing/parser.ml" +# 50180 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3683 "parsing/parser.mly" +# 3686 "parsing/parser.mly" ( Optional label ) -# 50183 "parsing/parser.ml" +# 50186 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3674 "parsing/parser.mly" +# 3677 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 50194 "parsing/parser.ml" +# 50197 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -50198,15 +50201,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 50204 "parsing/parser.ml" +# 50207 "parsing/parser.ml" in -# 3679 "parsing/parser.mly" +# 3682 "parsing/parser.mly" ( _1 ) -# 50210 "parsing/parser.ml" +# 50213 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50281,9 +50284,9 @@ module Tables = struct let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 50287 "parsing/parser.ml" +# 50290 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -50291,9 +50294,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3691 "parsing/parser.mly" +# 3694 "parsing/parser.mly" ( false ) -# 50297 "parsing/parser.ml" +# 50300 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = @@ -50305,24 +50308,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 50309 "parsing/parser.ml" +# 50312 "parsing/parser.ml" in -# 1128 "parsing/parser.mly" +# 1131 "parsing/parser.mly" ( xs ) -# 50314 "parsing/parser.ml" +# 50317 "parsing/parser.ml" in -# 3586 "parsing/parser.mly" +# 3589 "parsing/parser.mly" ( _1 ) -# 50320 "parsing/parser.ml" +# 50323 "parsing/parser.ml" in -# 3698 "parsing/parser.mly" +# 3701 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 50326 "parsing/parser.ml" +# 50329 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -50330,45 +50333,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 50336 "parsing/parser.ml" +# 50339 "parsing/parser.ml" in -# 3700 "parsing/parser.mly" +# 3703 "parsing/parser.mly" ( _1 ) -# 50342 "parsing/parser.ml" +# 50345 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1024 "parsing/parser.mly" +# 1027 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 50349 "parsing/parser.ml" +# 50352 "parsing/parser.ml" in let arg_local = -# 3691 "parsing/parser.mly" +# 3694 "parsing/parser.mly" ( false ) -# 50355 "parsing/parser.ml" +# 50358 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__2_, _endpos__2_) in let label = -# 3685 "parsing/parser.mly" +# 3688 "parsing/parser.mly" ( Labelled label ) -# 50361 "parsing/parser.ml" +# 50364 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3674 "parsing/parser.mly" +# 3677 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 50372 "parsing/parser.ml" +# 50375 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -50376,15 +50379,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 50382 "parsing/parser.ml" +# 50385 "parsing/parser.ml" in -# 3679 "parsing/parser.mly" +# 3682 "parsing/parser.mly" ( _1 ) -# 50388 "parsing/parser.ml" +# 50391 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50466,9 +50469,9 @@ module Tables = struct let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 50472 "parsing/parser.ml" +# 50475 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -50476,9 +50479,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3693 "parsing/parser.mly" +# 3696 "parsing/parser.mly" ( true ) -# 50482 "parsing/parser.ml" +# 50485 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let domain = @@ -50490,24 +50493,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 50494 "parsing/parser.ml" +# 50497 "parsing/parser.ml" in -# 1128 "parsing/parser.mly" +# 1131 "parsing/parser.mly" ( xs ) -# 50499 "parsing/parser.ml" +# 50502 "parsing/parser.ml" in -# 3586 "parsing/parser.mly" +# 3589 "parsing/parser.mly" ( _1 ) -# 50505 "parsing/parser.ml" +# 50508 "parsing/parser.ml" in -# 3698 "parsing/parser.mly" +# 3701 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 50511 "parsing/parser.ml" +# 50514 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -50515,45 +50518,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 50521 "parsing/parser.ml" +# 50524 "parsing/parser.ml" in -# 3700 "parsing/parser.mly" +# 3703 "parsing/parser.mly" ( _1 ) -# 50527 "parsing/parser.ml" +# 50530 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1024 "parsing/parser.mly" +# 1027 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 50534 "parsing/parser.ml" +# 50537 "parsing/parser.ml" in let arg_local = -# 3691 "parsing/parser.mly" +# 3694 "parsing/parser.mly" ( false ) -# 50540 "parsing/parser.ml" +# 50543 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__2_, _endpos__2_) in let label = -# 3685 "parsing/parser.mly" +# 3688 "parsing/parser.mly" ( Labelled label ) -# 50546 "parsing/parser.ml" +# 50549 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3674 "parsing/parser.mly" +# 3677 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 50557 "parsing/parser.ml" +# 50560 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -50561,15 +50564,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 50567 "parsing/parser.ml" +# 50570 "parsing/parser.ml" in -# 3679 "parsing/parser.mly" +# 3682 "parsing/parser.mly" ( _1 ) -# 50573 "parsing/parser.ml" +# 50576 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50616,9 +50619,9 @@ module Tables = struct let ty : (Parsetree.core_type) = Obj.magic ty in let _2 : unit = Obj.magic _2 in let label : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 50622 "parsing/parser.ml" +# 50625 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -50626,45 +50629,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3691 "parsing/parser.mly" +# 3694 "parsing/parser.mly" ( false ) -# 50632 "parsing/parser.ml" +# 50635 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = let _1 = -# 3702 "parsing/parser.mly" +# 3705 "parsing/parser.mly" ( ty ) -# 50639 "parsing/parser.ml" +# 50642 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1024 "parsing/parser.mly" +# 1027 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 50645 "parsing/parser.ml" +# 50648 "parsing/parser.ml" in let arg_local = -# 3691 "parsing/parser.mly" +# 3694 "parsing/parser.mly" ( false ) -# 50651 "parsing/parser.ml" +# 50654 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__2_, _endpos__2_) in let label = -# 3685 "parsing/parser.mly" +# 3688 "parsing/parser.mly" ( Labelled label ) -# 50657 "parsing/parser.ml" +# 50660 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3674 "parsing/parser.mly" +# 3677 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 50668 "parsing/parser.ml" +# 50671 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -50672,15 +50675,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 50678 "parsing/parser.ml" +# 50681 "parsing/parser.ml" in -# 3679 "parsing/parser.mly" +# 3682 "parsing/parser.mly" ( _1 ) -# 50684 "parsing/parser.ml" +# 50687 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50734,9 +50737,9 @@ module Tables = struct let ty : (Parsetree.core_type) = Obj.magic ty in let _2 : unit = Obj.magic _2 in let label : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 50740 "parsing/parser.ml" +# 50743 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -50744,45 +50747,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3693 "parsing/parser.mly" +# 3696 "parsing/parser.mly" ( true ) -# 50750 "parsing/parser.ml" +# 50753 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_, _startpos__1_) in let domain = let _1 = -# 3702 "parsing/parser.mly" +# 3705 "parsing/parser.mly" ( ty ) -# 50757 "parsing/parser.ml" +# 50760 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1024 "parsing/parser.mly" +# 1027 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 50763 "parsing/parser.ml" +# 50766 "parsing/parser.ml" in let arg_local = -# 3691 "parsing/parser.mly" +# 3694 "parsing/parser.mly" ( false ) -# 50769 "parsing/parser.ml" +# 50772 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__2_, _endpos__2_) in let label = -# 3685 "parsing/parser.mly" +# 3688 "parsing/parser.mly" ( Labelled label ) -# 50775 "parsing/parser.ml" +# 50778 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3674 "parsing/parser.mly" +# 3677 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 50786 "parsing/parser.ml" +# 50789 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -50790,15 +50793,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 50796 "parsing/parser.ml" +# 50799 "parsing/parser.ml" in -# 3679 "parsing/parser.mly" +# 3682 "parsing/parser.mly" ( _1 ) -# 50802 "parsing/parser.ml" +# 50805 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50880,9 +50883,9 @@ module Tables = struct let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 50886 "parsing/parser.ml" +# 50889 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -50890,9 +50893,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3691 "parsing/parser.mly" +# 3694 "parsing/parser.mly" ( false ) -# 50896 "parsing/parser.ml" +# 50899 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = @@ -50905,24 +50908,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 50909 "parsing/parser.ml" +# 50912 "parsing/parser.ml" in -# 1128 "parsing/parser.mly" +# 1131 "parsing/parser.mly" ( xs ) -# 50914 "parsing/parser.ml" +# 50917 "parsing/parser.ml" in -# 3586 "parsing/parser.mly" +# 3589 "parsing/parser.mly" ( _1 ) -# 50920 "parsing/parser.ml" +# 50923 "parsing/parser.ml" in -# 3698 "parsing/parser.mly" +# 3701 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 50926 "parsing/parser.ml" +# 50929 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -50930,45 +50933,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 50936 "parsing/parser.ml" +# 50939 "parsing/parser.ml" in -# 3700 "parsing/parser.mly" +# 3703 "parsing/parser.mly" ( _1 ) -# 50942 "parsing/parser.ml" +# 50945 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1024 "parsing/parser.mly" +# 1027 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 50949 "parsing/parser.ml" +# 50952 "parsing/parser.ml" in let arg_local = -# 3693 "parsing/parser.mly" +# 3696 "parsing/parser.mly" ( true ) -# 50955 "parsing/parser.ml" +# 50958 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3685 "parsing/parser.mly" +# 3688 "parsing/parser.mly" ( Labelled label ) -# 50961 "parsing/parser.ml" +# 50964 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3674 "parsing/parser.mly" +# 3677 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 50972 "parsing/parser.ml" +# 50975 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -50976,15 +50979,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 50982 "parsing/parser.ml" +# 50985 "parsing/parser.ml" in -# 3679 "parsing/parser.mly" +# 3682 "parsing/parser.mly" ( _1 ) -# 50988 "parsing/parser.ml" +# 50991 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51073,9 +51076,9 @@ module Tables = struct let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 51079 "parsing/parser.ml" +# 51082 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -51083,9 +51086,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3693 "parsing/parser.mly" +# 3696 "parsing/parser.mly" ( true ) -# 51089 "parsing/parser.ml" +# 51092 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in let domain = @@ -51098,24 +51101,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 51102 "parsing/parser.ml" +# 51105 "parsing/parser.ml" in -# 1128 "parsing/parser.mly" +# 1131 "parsing/parser.mly" ( xs ) -# 51107 "parsing/parser.ml" +# 51110 "parsing/parser.ml" in -# 3586 "parsing/parser.mly" +# 3589 "parsing/parser.mly" ( _1 ) -# 51113 "parsing/parser.ml" +# 51116 "parsing/parser.ml" in -# 3698 "parsing/parser.mly" +# 3701 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 51119 "parsing/parser.ml" +# 51122 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -51123,45 +51126,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51129 "parsing/parser.ml" +# 51132 "parsing/parser.ml" in -# 3700 "parsing/parser.mly" +# 3703 "parsing/parser.mly" ( _1 ) -# 51135 "parsing/parser.ml" +# 51138 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1024 "parsing/parser.mly" +# 1027 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 51142 "parsing/parser.ml" +# 51145 "parsing/parser.ml" in let arg_local = -# 3693 "parsing/parser.mly" +# 3696 "parsing/parser.mly" ( true ) -# 51148 "parsing/parser.ml" +# 51151 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3685 "parsing/parser.mly" +# 3688 "parsing/parser.mly" ( Labelled label ) -# 51154 "parsing/parser.ml" +# 51157 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3674 "parsing/parser.mly" +# 3677 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 51165 "parsing/parser.ml" +# 51168 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -51169,15 +51172,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51175 "parsing/parser.ml" +# 51178 "parsing/parser.ml" in -# 3679 "parsing/parser.mly" +# 3682 "parsing/parser.mly" ( _1 ) -# 51181 "parsing/parser.ml" +# 51184 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51231,9 +51234,9 @@ module Tables = struct let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 51237 "parsing/parser.ml" +# 51240 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -51241,45 +51244,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3691 "parsing/parser.mly" +# 3694 "parsing/parser.mly" ( false ) -# 51247 "parsing/parser.ml" +# 51250 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = let _1 = -# 3702 "parsing/parser.mly" +# 3705 "parsing/parser.mly" ( ty ) -# 51254 "parsing/parser.ml" +# 51257 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1024 "parsing/parser.mly" +# 1027 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 51260 "parsing/parser.ml" +# 51263 "parsing/parser.ml" in let arg_local = -# 3693 "parsing/parser.mly" +# 3696 "parsing/parser.mly" ( true ) -# 51266 "parsing/parser.ml" +# 51269 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3685 "parsing/parser.mly" +# 3688 "parsing/parser.mly" ( Labelled label ) -# 51272 "parsing/parser.ml" +# 51275 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3674 "parsing/parser.mly" +# 3677 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 51283 "parsing/parser.ml" +# 51286 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -51287,15 +51290,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51293 "parsing/parser.ml" +# 51296 "parsing/parser.ml" in -# 3679 "parsing/parser.mly" +# 3682 "parsing/parser.mly" ( _1 ) -# 51299 "parsing/parser.ml" +# 51302 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51356,9 +51359,9 @@ module Tables = struct let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 51362 "parsing/parser.ml" +# 51365 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -51366,45 +51369,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3693 "parsing/parser.mly" +# 3696 "parsing/parser.mly" ( true ) -# 51372 "parsing/parser.ml" +# 51375 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let domain = let _1 = -# 3702 "parsing/parser.mly" +# 3705 "parsing/parser.mly" ( ty ) -# 51379 "parsing/parser.ml" +# 51382 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1024 "parsing/parser.mly" +# 1027 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 51385 "parsing/parser.ml" +# 51388 "parsing/parser.ml" in let arg_local = -# 3693 "parsing/parser.mly" +# 3696 "parsing/parser.mly" ( true ) -# 51391 "parsing/parser.ml" +# 51394 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3685 "parsing/parser.mly" +# 3688 "parsing/parser.mly" ( Labelled label ) -# 51397 "parsing/parser.ml" +# 51400 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3674 "parsing/parser.mly" +# 3677 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 51408 "parsing/parser.ml" +# 51411 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -51412,15 +51415,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51418 "parsing/parser.ml" +# 51421 "parsing/parser.ml" in -# 3679 "parsing/parser.mly" +# 3682 "parsing/parser.mly" ( _1 ) -# 51424 "parsing/parser.ml" +# 51427 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51487,9 +51490,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3691 "parsing/parser.mly" +# 3694 "parsing/parser.mly" ( false ) -# 51493 "parsing/parser.ml" +# 51496 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = @@ -51501,24 +51504,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 51505 "parsing/parser.ml" +# 51508 "parsing/parser.ml" in -# 1128 "parsing/parser.mly" +# 1131 "parsing/parser.mly" ( xs ) -# 51510 "parsing/parser.ml" +# 51513 "parsing/parser.ml" in -# 3586 "parsing/parser.mly" +# 3589 "parsing/parser.mly" ( _1 ) -# 51516 "parsing/parser.ml" +# 51519 "parsing/parser.ml" in -# 3698 "parsing/parser.mly" +# 3701 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 51522 "parsing/parser.ml" +# 51525 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -51526,45 +51529,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51532 "parsing/parser.ml" +# 51535 "parsing/parser.ml" in -# 3700 "parsing/parser.mly" +# 3703 "parsing/parser.mly" ( _1 ) -# 51538 "parsing/parser.ml" +# 51541 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1024 "parsing/parser.mly" +# 1027 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 51545 "parsing/parser.ml" +# 51548 "parsing/parser.ml" in let arg_local = -# 3691 "parsing/parser.mly" +# 3694 "parsing/parser.mly" ( false ) -# 51551 "parsing/parser.ml" +# 51554 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__0_, _endpos__0_) in let label = -# 3687 "parsing/parser.mly" +# 3690 "parsing/parser.mly" ( Nolabel ) -# 51557 "parsing/parser.ml" +# 51560 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3674 "parsing/parser.mly" +# 3677 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 51568 "parsing/parser.ml" +# 51571 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -51572,15 +51575,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51578 "parsing/parser.ml" +# 51581 "parsing/parser.ml" in -# 3679 "parsing/parser.mly" +# 3682 "parsing/parser.mly" ( _1 ) -# 51584 "parsing/parser.ml" +# 51587 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51654,9 +51657,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3693 "parsing/parser.mly" +# 3696 "parsing/parser.mly" ( true ) -# 51660 "parsing/parser.ml" +# 51663 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let domain = @@ -51668,24 +51671,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 51672 "parsing/parser.ml" +# 51675 "parsing/parser.ml" in -# 1128 "parsing/parser.mly" +# 1131 "parsing/parser.mly" ( xs ) -# 51677 "parsing/parser.ml" +# 51680 "parsing/parser.ml" in -# 3586 "parsing/parser.mly" +# 3589 "parsing/parser.mly" ( _1 ) -# 51683 "parsing/parser.ml" +# 51686 "parsing/parser.ml" in -# 3698 "parsing/parser.mly" +# 3701 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 51689 "parsing/parser.ml" +# 51692 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -51693,45 +51696,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51699 "parsing/parser.ml" +# 51702 "parsing/parser.ml" in -# 3700 "parsing/parser.mly" +# 3703 "parsing/parser.mly" ( _1 ) -# 51705 "parsing/parser.ml" +# 51708 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1024 "parsing/parser.mly" +# 1027 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 51712 "parsing/parser.ml" +# 51715 "parsing/parser.ml" in let arg_local = -# 3691 "parsing/parser.mly" +# 3694 "parsing/parser.mly" ( false ) -# 51718 "parsing/parser.ml" +# 51721 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__0_, _endpos__0_) in let label = -# 3687 "parsing/parser.mly" +# 3690 "parsing/parser.mly" ( Nolabel ) -# 51724 "parsing/parser.ml" +# 51727 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3674 "parsing/parser.mly" +# 3677 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 51735 "parsing/parser.ml" +# 51738 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -51739,15 +51742,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51745 "parsing/parser.ml" +# 51748 "parsing/parser.ml" in -# 3679 "parsing/parser.mly" +# 3682 "parsing/parser.mly" ( _1 ) -# 51751 "parsing/parser.ml" +# 51754 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51786,45 +51789,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3691 "parsing/parser.mly" +# 3694 "parsing/parser.mly" ( false ) -# 51792 "parsing/parser.ml" +# 51795 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = let _1 = -# 3702 "parsing/parser.mly" +# 3705 "parsing/parser.mly" ( ty ) -# 51799 "parsing/parser.ml" +# 51802 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1024 "parsing/parser.mly" +# 1027 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 51805 "parsing/parser.ml" +# 51808 "parsing/parser.ml" in let arg_local = -# 3691 "parsing/parser.mly" +# 3694 "parsing/parser.mly" ( false ) -# 51811 "parsing/parser.ml" +# 51814 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__0_, _endpos__0_) in let label = -# 3687 "parsing/parser.mly" +# 3690 "parsing/parser.mly" ( Nolabel ) -# 51817 "parsing/parser.ml" +# 51820 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3674 "parsing/parser.mly" +# 3677 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 51828 "parsing/parser.ml" +# 51831 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_ty_) in @@ -51832,15 +51835,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51838 "parsing/parser.ml" +# 51841 "parsing/parser.ml" in -# 3679 "parsing/parser.mly" +# 3682 "parsing/parser.mly" ( _1 ) -# 51844 "parsing/parser.ml" +# 51847 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51886,45 +51889,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3693 "parsing/parser.mly" +# 3696 "parsing/parser.mly" ( true ) -# 51892 "parsing/parser.ml" +# 51895 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_, _startpos__1_) in let domain = let _1 = -# 3702 "parsing/parser.mly" +# 3705 "parsing/parser.mly" ( ty ) -# 51899 "parsing/parser.ml" +# 51902 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1024 "parsing/parser.mly" +# 1027 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 51905 "parsing/parser.ml" +# 51908 "parsing/parser.ml" in let arg_local = -# 3691 "parsing/parser.mly" +# 3694 "parsing/parser.mly" ( false ) -# 51911 "parsing/parser.ml" +# 51914 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__0_, _endpos__0_) in let label = -# 3687 "parsing/parser.mly" +# 3690 "parsing/parser.mly" ( Nolabel ) -# 51917 "parsing/parser.ml" +# 51920 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3674 "parsing/parser.mly" +# 3677 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 51928 "parsing/parser.ml" +# 51931 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_ty_) in @@ -51932,15 +51935,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51938 "parsing/parser.ml" +# 51941 "parsing/parser.ml" in -# 3679 "parsing/parser.mly" +# 3682 "parsing/parser.mly" ( _1 ) -# 51944 "parsing/parser.ml" +# 51947 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52014,9 +52017,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3691 "parsing/parser.mly" +# 3694 "parsing/parser.mly" ( false ) -# 52020 "parsing/parser.ml" +# 52023 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = @@ -52029,24 +52032,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 52033 "parsing/parser.ml" +# 52036 "parsing/parser.ml" in -# 1128 "parsing/parser.mly" +# 1131 "parsing/parser.mly" ( xs ) -# 52038 "parsing/parser.ml" +# 52041 "parsing/parser.ml" in -# 3586 "parsing/parser.mly" +# 3589 "parsing/parser.mly" ( _1 ) -# 52044 "parsing/parser.ml" +# 52047 "parsing/parser.ml" in -# 3698 "parsing/parser.mly" +# 3701 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 52050 "parsing/parser.ml" +# 52053 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -52054,45 +52057,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 52060 "parsing/parser.ml" +# 52063 "parsing/parser.ml" in -# 3700 "parsing/parser.mly" +# 3703 "parsing/parser.mly" ( _1 ) -# 52066 "parsing/parser.ml" +# 52069 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1024 "parsing/parser.mly" +# 1027 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 52073 "parsing/parser.ml" +# 52076 "parsing/parser.ml" in let arg_local = -# 3693 "parsing/parser.mly" +# 3696 "parsing/parser.mly" ( true ) -# 52079 "parsing/parser.ml" +# 52082 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3687 "parsing/parser.mly" +# 3690 "parsing/parser.mly" ( Nolabel ) -# 52085 "parsing/parser.ml" +# 52088 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3674 "parsing/parser.mly" +# 3677 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 52096 "parsing/parser.ml" +# 52099 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -52100,15 +52103,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 52106 "parsing/parser.ml" +# 52109 "parsing/parser.ml" in -# 3679 "parsing/parser.mly" +# 3682 "parsing/parser.mly" ( _1 ) -# 52112 "parsing/parser.ml" +# 52115 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52189,9 +52192,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3693 "parsing/parser.mly" +# 3696 "parsing/parser.mly" ( true ) -# 52195 "parsing/parser.ml" +# 52198 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in let domain = @@ -52204,24 +52207,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 52208 "parsing/parser.ml" +# 52211 "parsing/parser.ml" in -# 1128 "parsing/parser.mly" +# 1131 "parsing/parser.mly" ( xs ) -# 52213 "parsing/parser.ml" +# 52216 "parsing/parser.ml" in -# 3586 "parsing/parser.mly" +# 3589 "parsing/parser.mly" ( _1 ) -# 52219 "parsing/parser.ml" +# 52222 "parsing/parser.ml" in -# 3698 "parsing/parser.mly" +# 3701 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 52225 "parsing/parser.ml" +# 52228 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -52229,45 +52232,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 52235 "parsing/parser.ml" +# 52238 "parsing/parser.ml" in -# 3700 "parsing/parser.mly" +# 3703 "parsing/parser.mly" ( _1 ) -# 52241 "parsing/parser.ml" +# 52244 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1024 "parsing/parser.mly" +# 1027 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 52248 "parsing/parser.ml" +# 52251 "parsing/parser.ml" in let arg_local = -# 3693 "parsing/parser.mly" +# 3696 "parsing/parser.mly" ( true ) -# 52254 "parsing/parser.ml" +# 52257 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3687 "parsing/parser.mly" +# 3690 "parsing/parser.mly" ( Nolabel ) -# 52260 "parsing/parser.ml" +# 52263 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3674 "parsing/parser.mly" +# 3677 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 52271 "parsing/parser.ml" +# 52274 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -52275,15 +52278,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 52281 "parsing/parser.ml" +# 52284 "parsing/parser.ml" in -# 3679 "parsing/parser.mly" +# 3682 "parsing/parser.mly" ( _1 ) -# 52287 "parsing/parser.ml" +# 52290 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52329,45 +52332,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3691 "parsing/parser.mly" +# 3694 "parsing/parser.mly" ( false ) -# 52335 "parsing/parser.ml" +# 52338 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = let _1 = -# 3702 "parsing/parser.mly" +# 3705 "parsing/parser.mly" ( ty ) -# 52342 "parsing/parser.ml" +# 52345 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1024 "parsing/parser.mly" +# 1027 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 52348 "parsing/parser.ml" +# 52351 "parsing/parser.ml" in let arg_local = -# 3693 "parsing/parser.mly" +# 3696 "parsing/parser.mly" ( true ) -# 52354 "parsing/parser.ml" +# 52357 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3687 "parsing/parser.mly" +# 3690 "parsing/parser.mly" ( Nolabel ) -# 52360 "parsing/parser.ml" +# 52363 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3674 "parsing/parser.mly" +# 3677 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 52371 "parsing/parser.ml" +# 52374 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -52375,15 +52378,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 52381 "parsing/parser.ml" +# 52384 "parsing/parser.ml" in -# 3679 "parsing/parser.mly" +# 3682 "parsing/parser.mly" ( _1 ) -# 52387 "parsing/parser.ml" +# 52390 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52436,45 +52439,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3693 "parsing/parser.mly" +# 3696 "parsing/parser.mly" ( true ) -# 52442 "parsing/parser.ml" +# 52445 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let domain = let _1 = -# 3702 "parsing/parser.mly" +# 3705 "parsing/parser.mly" ( ty ) -# 52449 "parsing/parser.ml" +# 52452 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1024 "parsing/parser.mly" +# 1027 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 52455 "parsing/parser.ml" +# 52458 "parsing/parser.ml" in let arg_local = -# 3693 "parsing/parser.mly" +# 3696 "parsing/parser.mly" ( true ) -# 52461 "parsing/parser.ml" +# 52464 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3687 "parsing/parser.mly" +# 3690 "parsing/parser.mly" ( Nolabel ) -# 52467 "parsing/parser.ml" +# 52470 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3674 "parsing/parser.mly" +# 3677 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 52478 "parsing/parser.ml" +# 52481 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -52482,15 +52485,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 52488 "parsing/parser.ml" +# 52491 "parsing/parser.ml" in -# 3679 "parsing/parser.mly" +# 3682 "parsing/parser.mly" ( _1 ) -# 52494 "parsing/parser.ml" +# 52497 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52517,39 +52520,39 @@ module Tables = struct let ys = # 260 "" ( List.flatten xss ) -# 52521 "parsing/parser.ml" +# 52524 "parsing/parser.ml" in let xs = let items = -# 1096 "parsing/parser.mly" +# 1099 "parsing/parser.mly" ( [] ) -# 52527 "parsing/parser.ml" +# 52530 "parsing/parser.ml" in -# 1525 "parsing/parser.mly" +# 1528 "parsing/parser.mly" ( items ) -# 52532 "parsing/parser.ml" +# 52535 "parsing/parser.ml" in # 267 "" ( xs @ ys ) -# 52538 "parsing/parser.ml" +# 52541 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1018 "parsing/parser.mly" +# 1021 "parsing/parser.mly" ( extra_str _startpos _endpos _1 ) -# 52547 "parsing/parser.ml" +# 52550 "parsing/parser.ml" in -# 1518 "parsing/parser.mly" +# 1521 "parsing/parser.mly" ( _1 ) -# 52553 "parsing/parser.ml" +# 52556 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52590,7 +52593,7 @@ module Tables = struct let ys = # 260 "" ( List.flatten xss ) -# 52594 "parsing/parser.ml" +# 52597 "parsing/parser.ml" in let xs = let items = @@ -52598,65 +52601,65 @@ module Tables = struct let _1 = let _1 = let attrs = -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 52604 "parsing/parser.ml" +# 52607 "parsing/parser.ml" in -# 1532 "parsing/parser.mly" +# 1535 "parsing/parser.mly" ( mkstrexp e attrs ) -# 52609 "parsing/parser.ml" +# 52612 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _startpos = _startpos__1_ in -# 1030 "parsing/parser.mly" +# 1033 "parsing/parser.mly" ( text_str _startpos @ [_1] ) -# 52617 "parsing/parser.ml" +# 52620 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1049 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mark_rhs_docs _startpos _endpos; _1 ) -# 52627 "parsing/parser.ml" +# 52630 "parsing/parser.ml" in -# 1098 "parsing/parser.mly" +# 1101 "parsing/parser.mly" ( x ) -# 52633 "parsing/parser.ml" +# 52636 "parsing/parser.ml" in -# 1525 "parsing/parser.mly" +# 1528 "parsing/parser.mly" ( items ) -# 52639 "parsing/parser.ml" +# 52642 "parsing/parser.ml" in # 267 "" ( xs @ ys ) -# 52645 "parsing/parser.ml" +# 52648 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_e_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1018 "parsing/parser.mly" +# 1021 "parsing/parser.mly" ( extra_str _startpos _endpos _1 ) -# 52654 "parsing/parser.ml" +# 52657 "parsing/parser.ml" in -# 1518 "parsing/parser.mly" +# 1521 "parsing/parser.mly" ( _1 ) -# 52660 "parsing/parser.ml" +# 52663 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52682,9 +52685,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1547 "parsing/parser.mly" +# 1550 "parsing/parser.mly" ( val_of_let_bindings ~loc:_sloc _1 ) -# 52688 "parsing/parser.ml" +# 52691 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52718,9 +52721,9 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 52724 "parsing/parser.ml" +# 52727 "parsing/parser.ml" in let _endpos__2_ = _endpos__1_inlined1_ in @@ -52728,10 +52731,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1550 "parsing/parser.mly" +# 1553 "parsing/parser.mly" ( let docs = symbol_docs _sloc in Pstr_extension (_1, add_docs_attrs docs _2) ) -# 52735 "parsing/parser.ml" +# 52738 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -52739,15 +52742,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1065 "parsing/parser.mly" +# 1068 "parsing/parser.mly" ( mkstr ~loc:_sloc _1 ) -# 52745 "parsing/parser.ml" +# 52748 "parsing/parser.ml" in -# 1581 "parsing/parser.mly" +# 1584 "parsing/parser.mly" ( _1 ) -# 52751 "parsing/parser.ml" +# 52754 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52771,23 +52774,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.structure_item) = let _1 = let _1 = -# 1553 "parsing/parser.mly" +# 1556 "parsing/parser.mly" ( Pstr_attribute _1 ) -# 52777 "parsing/parser.ml" +# 52780 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1065 "parsing/parser.mly" +# 1068 "parsing/parser.mly" ( mkstr ~loc:_sloc _1 ) -# 52785 "parsing/parser.ml" +# 52788 "parsing/parser.ml" in -# 1581 "parsing/parser.mly" +# 1584 "parsing/parser.mly" ( _1 ) -# 52791 "parsing/parser.ml" +# 52794 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52811,23 +52814,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.structure_item) = let _1 = let _1 = -# 1557 "parsing/parser.mly" +# 1560 "parsing/parser.mly" ( pstr_primitive _1 ) -# 52817 "parsing/parser.ml" +# 52820 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1082 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 52825 "parsing/parser.ml" +# 52828 "parsing/parser.ml" in -# 1581 "parsing/parser.mly" +# 1584 "parsing/parser.mly" ( _1 ) -# 52831 "parsing/parser.ml" +# 52834 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52851,23 +52854,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.structure_item) = let _1 = let _1 = -# 1559 "parsing/parser.mly" +# 1562 "parsing/parser.mly" ( pstr_primitive _1 ) -# 52857 "parsing/parser.ml" +# 52860 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1082 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 52865 "parsing/parser.ml" +# 52868 "parsing/parser.ml" in -# 1581 "parsing/parser.mly" +# 1584 "parsing/parser.mly" ( _1 ) -# 52871 "parsing/parser.ml" +# 52874 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52902,26 +52905,26 @@ module Tables = struct let _1 = let _1 = let _1 = -# 1257 "parsing/parser.mly" +# 1260 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 52908 "parsing/parser.ml" +# 52911 "parsing/parser.ml" in -# 3230 "parsing/parser.mly" +# 3233 "parsing/parser.mly" ( _1 ) -# 52913 "parsing/parser.ml" +# 52916 "parsing/parser.ml" in -# 3213 "parsing/parser.mly" +# 3216 "parsing/parser.mly" ( _1 ) -# 52919 "parsing/parser.ml" +# 52922 "parsing/parser.ml" in -# 1561 "parsing/parser.mly" +# 1564 "parsing/parser.mly" ( pstr_type _1 ) -# 52925 "parsing/parser.ml" +# 52928 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_bs_, _startpos_a_) in @@ -52929,15 +52932,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1082 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 52935 "parsing/parser.ml" +# 52938 "parsing/parser.ml" in -# 1581 "parsing/parser.mly" +# 1584 "parsing/parser.mly" ( _1 ) -# 52941 "parsing/parser.ml" +# 52944 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53022,16 +53025,16 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 53028 "parsing/parser.ml" +# 53031 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let cs = -# 1249 "parsing/parser.mly" +# 1252 "parsing/parser.mly" ( List.rev xs ) -# 53035 "parsing/parser.ml" +# 53038 "parsing/parser.ml" in let tid = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in @@ -53039,46 +53042,46 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 53045 "parsing/parser.ml" +# 53048 "parsing/parser.ml" in let _4 = -# 4047 "parsing/parser.mly" +# 4050 "parsing/parser.mly" ( Recursive ) -# 53051 "parsing/parser.ml" +# 53054 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 53058 "parsing/parser.ml" +# 53061 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3511 "parsing/parser.mly" +# 3514 "parsing/parser.mly" ( let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in Te.mk tid cs ~params ~priv ~attrs ~docs, ext ) -# 53070 "parsing/parser.ml" +# 53073 "parsing/parser.ml" in -# 3494 "parsing/parser.mly" +# 3497 "parsing/parser.mly" ( _1 ) -# 53076 "parsing/parser.ml" +# 53079 "parsing/parser.ml" in -# 1563 "parsing/parser.mly" +# 1566 "parsing/parser.mly" ( pstr_typext _1 ) -# 53082 "parsing/parser.ml" +# 53085 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined3_ in @@ -53086,15 +53089,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1082 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 53092 "parsing/parser.ml" +# 53095 "parsing/parser.ml" in -# 1581 "parsing/parser.mly" +# 1584 "parsing/parser.mly" ( _1 ) -# 53098 "parsing/parser.ml" +# 53101 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53186,16 +53189,16 @@ module Tables = struct let attrs2 = let _1 = _1_inlined4 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 53192 "parsing/parser.ml" +# 53195 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in let cs = -# 1249 "parsing/parser.mly" +# 1252 "parsing/parser.mly" ( List.rev xs ) -# 53199 "parsing/parser.ml" +# 53202 "parsing/parser.ml" in let tid = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in @@ -53203,9 +53206,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 53209 "parsing/parser.ml" +# 53212 "parsing/parser.ml" in let _4 = @@ -53214,41 +53217,41 @@ module Tables = struct let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in -# 4049 "parsing/parser.mly" +# 4052 "parsing/parser.mly" ( not_expecting _loc "nonrec flag" ) -# 53220 "parsing/parser.ml" +# 53223 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 53228 "parsing/parser.ml" +# 53231 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3511 "parsing/parser.mly" +# 3514 "parsing/parser.mly" ( let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in Te.mk tid cs ~params ~priv ~attrs ~docs, ext ) -# 53240 "parsing/parser.ml" +# 53243 "parsing/parser.ml" in -# 3494 "parsing/parser.mly" +# 3497 "parsing/parser.mly" ( _1 ) -# 53246 "parsing/parser.ml" +# 53249 "parsing/parser.ml" in -# 1563 "parsing/parser.mly" +# 1566 "parsing/parser.mly" ( pstr_typext _1 ) -# 53252 "parsing/parser.ml" +# 53255 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined4_ in @@ -53256,15 +53259,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1082 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 53262 "parsing/parser.ml" +# 53265 "parsing/parser.ml" in -# 1581 "parsing/parser.mly" +# 1584 "parsing/parser.mly" ( _1 ) -# 53268 "parsing/parser.ml" +# 53271 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53288,23 +53291,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.structure_item) = let _1 = let _1 = -# 1565 "parsing/parser.mly" +# 1568 "parsing/parser.mly" ( pstr_exception _1 ) -# 53294 "parsing/parser.ml" +# 53297 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1082 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 53302 "parsing/parser.ml" +# 53305 "parsing/parser.ml" in -# 1581 "parsing/parser.mly" +# 1584 "parsing/parser.mly" ( _1 ) -# 53308 "parsing/parser.ml" +# 53311 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53367,9 +53370,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 53373 "parsing/parser.ml" +# 53376 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -53379,36 +53382,36 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 53385 "parsing/parser.ml" +# 53388 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 53393 "parsing/parser.ml" +# 53396 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1591 "parsing/parser.mly" +# 1594 "parsing/parser.mly" ( let docs = symbol_docs _sloc in let loc = make_loc _sloc in let attrs = attrs1 @ attrs2 in let body = Mb.mk name body ~attrs ~loc ~docs in Pstr_module body, ext ) -# 53406 "parsing/parser.ml" +# 53409 "parsing/parser.ml" in -# 1567 "parsing/parser.mly" +# 1570 "parsing/parser.mly" ( _1 ) -# 53412 "parsing/parser.ml" +# 53415 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined3_ in @@ -53416,15 +53419,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1082 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 53422 "parsing/parser.ml" +# 53425 "parsing/parser.ml" in -# 1581 "parsing/parser.mly" +# 1584 "parsing/parser.mly" ( _1 ) -# 53428 "parsing/parser.ml" +# 53431 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53503,9 +53506,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 53509 "parsing/parser.ml" +# 53512 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -53515,24 +53518,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 53521 "parsing/parser.ml" +# 53524 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 53529 "parsing/parser.ml" +# 53532 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1626 "parsing/parser.mly" +# 1629 "parsing/parser.mly" ( let loc = make_loc _sloc in let attrs = attrs1 @ attrs2 in @@ -53540,25 +53543,25 @@ module Tables = struct ext, Mb.mk name body ~attrs ~loc ~docs ) -# 53544 "parsing/parser.ml" +# 53547 "parsing/parser.ml" in -# 1257 "parsing/parser.mly" +# 1260 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 53550 "parsing/parser.ml" +# 53553 "parsing/parser.ml" in -# 1614 "parsing/parser.mly" +# 1617 "parsing/parser.mly" ( _1 ) -# 53556 "parsing/parser.ml" +# 53559 "parsing/parser.ml" in -# 1569 "parsing/parser.mly" +# 1572 "parsing/parser.mly" ( pstr_recmodule _1 ) -# 53562 "parsing/parser.ml" +# 53565 "parsing/parser.ml" in let _endpos__1_ = _endpos_bs_ in @@ -53566,15 +53569,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1082 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 53572 "parsing/parser.ml" +# 53575 "parsing/parser.ml" in -# 1581 "parsing/parser.mly" +# 1584 "parsing/parser.mly" ( _1 ) -# 53578 "parsing/parser.ml" +# 53581 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53598,23 +53601,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.structure_item) = let _1 = let _1 = -# 1571 "parsing/parser.mly" +# 1574 "parsing/parser.mly" ( let (body, ext) = _1 in (Pstr_modtype body, ext) ) -# 53604 "parsing/parser.ml" +# 53607 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1082 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 53612 "parsing/parser.ml" +# 53615 "parsing/parser.ml" in -# 1581 "parsing/parser.mly" +# 1584 "parsing/parser.mly" ( _1 ) -# 53618 "parsing/parser.ml" +# 53621 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53638,23 +53641,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.structure_item) = let _1 = let _1 = -# 1573 "parsing/parser.mly" +# 1576 "parsing/parser.mly" ( let (body, ext) = _1 in (Pstr_open body, ext) ) -# 53644 "parsing/parser.ml" +# 53647 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1082 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 53652 "parsing/parser.ml" +# 53655 "parsing/parser.ml" in -# 1581 "parsing/parser.mly" +# 1584 "parsing/parser.mly" ( _1 ) -# 53658 "parsing/parser.ml" +# 53661 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53724,9 +53727,9 @@ module Tables = struct let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let body : (Parsetree.class_expr) = Obj.magic body in let _1_inlined2 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 53730 "parsing/parser.ml" +# 53733 "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 @@ -53744,9 +53747,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 53750 "parsing/parser.ml" +# 53753 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -53756,24 +53759,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 53762 "parsing/parser.ml" +# 53765 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 53770 "parsing/parser.ml" +# 53773 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1971 "parsing/parser.mly" +# 1974 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in @@ -53781,25 +53784,25 @@ module Tables = struct ext, Ci.mk id body ~virt ~params ~attrs ~loc ~docs ) -# 53785 "parsing/parser.ml" +# 53788 "parsing/parser.ml" in -# 1257 "parsing/parser.mly" +# 1260 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 53791 "parsing/parser.ml" +# 53794 "parsing/parser.ml" in -# 1960 "parsing/parser.mly" +# 1963 "parsing/parser.mly" ( _1 ) -# 53797 "parsing/parser.ml" +# 53800 "parsing/parser.ml" in -# 1575 "parsing/parser.mly" +# 1578 "parsing/parser.mly" ( let (ext, l) = _1 in (Pstr_class l, ext) ) -# 53803 "parsing/parser.ml" +# 53806 "parsing/parser.ml" in let _endpos__1_ = _endpos_bs_ in @@ -53807,15 +53810,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1082 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 53813 "parsing/parser.ml" +# 53816 "parsing/parser.ml" in -# 1581 "parsing/parser.mly" +# 1584 "parsing/parser.mly" ( _1 ) -# 53819 "parsing/parser.ml" +# 53822 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53839,23 +53842,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.structure_item) = let _1 = let _1 = -# 1577 "parsing/parser.mly" +# 1580 "parsing/parser.mly" ( let (ext, l) = _1 in (Pstr_class_type l, ext) ) -# 53845 "parsing/parser.ml" +# 53848 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1082 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 53853 "parsing/parser.ml" +# 53856 "parsing/parser.ml" in -# 1581 "parsing/parser.mly" +# 1584 "parsing/parser.mly" ( _1 ) -# 53859 "parsing/parser.ml" +# 53862 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53911,35 +53914,35 @@ module Tables = struct let attrs2 = let _1 = _1_inlined1 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 53917 "parsing/parser.ml" +# 53920 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined1_ in let attrs1 = -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 53924 "parsing/parser.ml" +# 53927 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos_attrs0_ in let _sloc = (_symbolstartpos, _endpos) in -# 1670 "parsing/parser.mly" +# 1673 "parsing/parser.mly" ( let attrs = attrs0 @ attrs1 @ attrs2 in let loc = make_loc _sloc in let docs = symbol_docs _sloc in Incl.mk thing ~attrs ~loc ~docs, ext ) -# 53937 "parsing/parser.ml" +# 53940 "parsing/parser.ml" in -# 1579 "parsing/parser.mly" +# 1582 "parsing/parser.mly" ( pstr_include _1 ) -# 53943 "parsing/parser.ml" +# 53946 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_attrs0_) in @@ -53947,15 +53950,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1082 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 53953 "parsing/parser.ml" +# 53956 "parsing/parser.ml" in -# 1581 "parsing/parser.mly" +# 1584 "parsing/parser.mly" ( _1 ) -# 53959 "parsing/parser.ml" +# 53962 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53978,9 +53981,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4123 "parsing/parser.mly" +# 4126 "parsing/parser.mly" ( "-" ) -# 53984 "parsing/parser.ml" +# 53987 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54003,9 +54006,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4124 "parsing/parser.mly" +# 4127 "parsing/parser.mly" ( "-." ) -# 54009 "parsing/parser.ml" +# 54012 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54058,9 +54061,9 @@ module Tables = struct let _v : (Parsetree.row_field) = let _5 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 54064 "parsing/parser.ml" +# 54067 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined1_ in @@ -54069,18 +54072,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 54073 "parsing/parser.ml" +# 54076 "parsing/parser.ml" in -# 1160 "parsing/parser.mly" +# 1163 "parsing/parser.mly" ( xs ) -# 54078 "parsing/parser.ml" +# 54081 "parsing/parser.ml" in -# 3820 "parsing/parser.mly" +# 3823 "parsing/parser.mly" ( _1 ) -# 54084 "parsing/parser.ml" +# 54087 "parsing/parser.ml" in let _1 = @@ -54088,20 +54091,20 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 54094 "parsing/parser.ml" +# 54097 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3806 "parsing/parser.mly" +# 3809 "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 ) -# 54105 "parsing/parser.ml" +# 54108 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54133,9 +54136,9 @@ module Tables = struct let _v : (Parsetree.row_field) = let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 54139 "parsing/parser.ml" +# 54142 "parsing/parser.ml" in let _endpos__2_ = _endpos__1_inlined1_ in @@ -54144,20 +54147,20 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 54150 "parsing/parser.ml" +# 54153 "parsing/parser.ml" in let _endpos = _endpos__2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3810 "parsing/parser.mly" +# 3813 "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 [] ) -# 54161 "parsing/parser.ml" +# 54164 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54189,7 +54192,7 @@ module Tables = struct let _v : (Parsetree.toplevel_phrase) = let arg = # 124 "" ( None ) -# 54193 "parsing/parser.ml" +# 54196 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined1_ in let dir = @@ -54198,18 +54201,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 54204 "parsing/parser.ml" +# 54207 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4010 "parsing/parser.mly" +# 4013 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 54213 "parsing/parser.ml" +# 54216 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54240,9 +54243,9 @@ module Tables = struct }; } = _menhir_stack in let _1_inlined2 : ( -# 880 "parsing/parser.mly" +# 883 "parsing/parser.mly" (string * Location.t * string option) -# 54246 "parsing/parser.ml" +# 54249 "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 @@ -54253,23 +54256,23 @@ module Tables = struct let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let x = let _1 = -# 4014 "parsing/parser.mly" +# 4017 "parsing/parser.mly" ( let (s, _, _) = _1 in Pdir_string s ) -# 54259 "parsing/parser.ml" +# 54262 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1087 "parsing/parser.mly" +# 1090 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 54267 "parsing/parser.ml" +# 54270 "parsing/parser.ml" in # 126 "" ( Some x ) -# 54273 "parsing/parser.ml" +# 54276 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -54279,18 +54282,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 54285 "parsing/parser.ml" +# 54288 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4010 "parsing/parser.mly" +# 4013 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 54294 "parsing/parser.ml" +# 54297 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54321,9 +54324,9 @@ module Tables = struct }; } = _menhir_stack in let _1_inlined2 : ( -# 825 "parsing/parser.mly" +# 828 "parsing/parser.mly" (string * char option) -# 54327 "parsing/parser.ml" +# 54330 "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 @@ -54334,23 +54337,23 @@ module Tables = struct let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let x = let _1 = -# 4015 "parsing/parser.mly" +# 4018 "parsing/parser.mly" ( let (n, m) = _1 in Pdir_int (n ,m) ) -# 54340 "parsing/parser.ml" +# 54343 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1087 "parsing/parser.mly" +# 1090 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 54348 "parsing/parser.ml" +# 54351 "parsing/parser.ml" in # 126 "" ( Some x ) -# 54354 "parsing/parser.ml" +# 54357 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -54360,18 +54363,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 54366 "parsing/parser.ml" +# 54369 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4010 "parsing/parser.mly" +# 4013 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 54375 "parsing/parser.ml" +# 54378 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54411,23 +54414,23 @@ module Tables = struct let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let x = let _1 = -# 4016 "parsing/parser.mly" +# 4019 "parsing/parser.mly" ( Pdir_ident _1 ) -# 54417 "parsing/parser.ml" +# 54420 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1087 "parsing/parser.mly" +# 1090 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 54425 "parsing/parser.ml" +# 54428 "parsing/parser.ml" in # 126 "" ( Some x ) -# 54431 "parsing/parser.ml" +# 54434 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -54437,18 +54440,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 54443 "parsing/parser.ml" +# 54446 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4010 "parsing/parser.mly" +# 4013 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 54452 "parsing/parser.ml" +# 54455 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54488,23 +54491,23 @@ module Tables = struct let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let x = let _1 = -# 4017 "parsing/parser.mly" +# 4020 "parsing/parser.mly" ( Pdir_ident _1 ) -# 54494 "parsing/parser.ml" +# 54497 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1087 "parsing/parser.mly" +# 1090 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 54502 "parsing/parser.ml" +# 54505 "parsing/parser.ml" in # 126 "" ( Some x ) -# 54508 "parsing/parser.ml" +# 54511 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -54514,18 +54517,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 54520 "parsing/parser.ml" +# 54523 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4010 "parsing/parser.mly" +# 4013 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 54529 "parsing/parser.ml" +# 54532 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54565,23 +54568,23 @@ module Tables = struct let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in let x = let _1 = -# 4018 "parsing/parser.mly" +# 4021 "parsing/parser.mly" ( Pdir_bool false ) -# 54571 "parsing/parser.ml" +# 54574 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1087 "parsing/parser.mly" +# 1090 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 54579 "parsing/parser.ml" +# 54582 "parsing/parser.ml" in # 126 "" ( Some x ) -# 54585 "parsing/parser.ml" +# 54588 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -54591,18 +54594,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 54597 "parsing/parser.ml" +# 54600 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4010 "parsing/parser.mly" +# 4013 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 54606 "parsing/parser.ml" +# 54609 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54642,23 +54645,23 @@ module Tables = struct let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in let x = let _1 = -# 4019 "parsing/parser.mly" +# 4022 "parsing/parser.mly" ( Pdir_bool true ) -# 54648 "parsing/parser.ml" +# 54651 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1087 "parsing/parser.mly" +# 1090 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 54656 "parsing/parser.ml" +# 54659 "parsing/parser.ml" in # 126 "" ( Some x ) -# 54662 "parsing/parser.ml" +# 54665 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -54668,18 +54671,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 54674 "parsing/parser.ml" +# 54677 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4010 "parsing/parser.mly" +# 4013 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 54683 "parsing/parser.ml" +# 54686 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54719,37 +54722,37 @@ module Tables = struct let _1 = let _1 = let attrs = -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 54725 "parsing/parser.ml" +# 54728 "parsing/parser.ml" in -# 1532 "parsing/parser.mly" +# 1535 "parsing/parser.mly" ( mkstrexp e attrs ) -# 54730 "parsing/parser.ml" +# 54733 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _startpos = _startpos__1_ in -# 1030 "parsing/parser.mly" +# 1033 "parsing/parser.mly" ( text_str _startpos @ [_1] ) -# 54738 "parsing/parser.ml" +# 54741 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1018 "parsing/parser.mly" +# 1021 "parsing/parser.mly" ( extra_str _startpos _endpos _1 ) -# 54747 "parsing/parser.ml" +# 54750 "parsing/parser.ml" in -# 1297 "parsing/parser.mly" +# 1300 "parsing/parser.mly" ( Ptop_def _1 ) -# 54753 "parsing/parser.ml" +# 54756 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54782,21 +54785,21 @@ module Tables = struct let _1 = # 260 "" ( List.flatten xss ) -# 54786 "parsing/parser.ml" +# 54789 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1018 "parsing/parser.mly" +# 1021 "parsing/parser.mly" ( extra_str _startpos _endpos _1 ) -# 54794 "parsing/parser.ml" +# 54797 "parsing/parser.ml" in -# 1301 "parsing/parser.mly" +# 1304 "parsing/parser.mly" ( Ptop_def _1 ) -# 54800 "parsing/parser.ml" +# 54803 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54826,9 +54829,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.toplevel_phrase) = -# 1305 "parsing/parser.mly" +# 1308 "parsing/parser.mly" ( _1 ) -# 54832 "parsing/parser.ml" +# 54835 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54851,9 +54854,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.toplevel_phrase) = -# 1308 "parsing/parser.mly" +# 1311 "parsing/parser.mly" ( raise End_of_file ) -# 54857 "parsing/parser.ml" +# 54860 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54876,9 +54879,9 @@ module Tables = struct let _startpos = _startpos_ty_ in let _endpos = _endpos_ty_ in let _v : (Parsetree.core_type) = -# 3712 "parsing/parser.mly" +# 3715 "parsing/parser.mly" ( ty ) -# 54882 "parsing/parser.ml" +# 54885 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54906,18 +54909,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 54910 "parsing/parser.ml" +# 54913 "parsing/parser.ml" in -# 1188 "parsing/parser.mly" +# 1191 "parsing/parser.mly" ( xs ) -# 54915 "parsing/parser.ml" +# 54918 "parsing/parser.ml" in -# 3715 "parsing/parser.mly" +# 3718 "parsing/parser.mly" ( Ptyp_tuple tys ) -# 54921 "parsing/parser.ml" +# 54924 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_xs_) in @@ -54925,15 +54928,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 54931 "parsing/parser.ml" +# 54934 "parsing/parser.ml" in -# 3717 "parsing/parser.mly" +# 3720 "parsing/parser.mly" ( _1 ) -# 54937 "parsing/parser.ml" +# 54940 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54963,9 +54966,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.core_type option * Parsetree.core_type option) = -# 2967 "parsing/parser.mly" +# 2970 "parsing/parser.mly" ( (Some _2, None) ) -# 54969 "parsing/parser.ml" +# 54972 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55009,9 +55012,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Parsetree.core_type option * Parsetree.core_type option) = -# 2968 "parsing/parser.mly" +# 2971 "parsing/parser.mly" ( (Some _2, Some _4) ) -# 55015 "parsing/parser.ml" +# 55018 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55041,9 +55044,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.core_type option * Parsetree.core_type option) = -# 2969 "parsing/parser.mly" +# 2972 "parsing/parser.mly" ( (None, Some _2) ) -# 55047 "parsing/parser.ml" +# 55050 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55073,9 +55076,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.core_type option * Parsetree.core_type option) = -# 2970 "parsing/parser.mly" +# 2973 "parsing/parser.mly" ( syntax_error() ) -# 55079 "parsing/parser.ml" +# 55082 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55105,9 +55108,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.core_type option * Parsetree.core_type option) = -# 2971 "parsing/parser.mly" +# 2974 "parsing/parser.mly" ( syntax_error() ) -# 55111 "parsing/parser.ml" +# 55114 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55123,9 +55126,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) = -# 3304 "parsing/parser.mly" +# 3307 "parsing/parser.mly" ( (Ptype_abstract, Public, None) ) -# 55129 "parsing/parser.ml" +# 55132 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55155,9 +55158,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) = -# 3306 "parsing/parser.mly" +# 3309 "parsing/parser.mly" ( _2 ) -# 55161 "parsing/parser.ml" +# 55164 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55180,9 +55183,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 3971 "parsing/parser.mly" +# 3974 "parsing/parser.mly" ( _1 ) -# 55186 "parsing/parser.ml" +# 55189 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55221,15 +55224,15 @@ module Tables = struct let _v : (Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) = let _3 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 55227 "parsing/parser.ml" +# 55230 "parsing/parser.ml" in -# 3335 "parsing/parser.mly" +# 3338 "parsing/parser.mly" ( {_2 with ptyp_attributes = _3}, _1 ) -# 55233 "parsing/parser.ml" +# 55236 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55245,9 +55248,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) = -# 3314 "parsing/parser.mly" +# 3317 "parsing/parser.mly" ( [] ) -# 55251 "parsing/parser.ml" +# 55254 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55270,9 +55273,9 @@ module Tables = struct let _startpos = _startpos_p_ in let _endpos = _endpos_p_ in let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = -# 3316 "parsing/parser.mly" +# 3319 "parsing/parser.mly" ( [p] ) -# 55276 "parsing/parser.ml" +# 55279 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55312,18 +55315,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 55316 "parsing/parser.ml" +# 55319 "parsing/parser.ml" in -# 1160 "parsing/parser.mly" +# 1163 "parsing/parser.mly" ( xs ) -# 55321 "parsing/parser.ml" +# 55324 "parsing/parser.ml" in -# 3320 "parsing/parser.mly" +# 3323 "parsing/parser.mly" ( ps ) -# 55327 "parsing/parser.ml" +# 55330 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55354,24 +55357,24 @@ module Tables = struct let _endpos = _endpos_tyvar_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3341 "parsing/parser.mly" +# 3344 "parsing/parser.mly" ( Ptyp_var tyvar ) -# 55360 "parsing/parser.ml" +# 55363 "parsing/parser.ml" in let _endpos__1_ = _endpos_tyvar_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 55369 "parsing/parser.ml" +# 55372 "parsing/parser.ml" in -# 3344 "parsing/parser.mly" +# 3347 "parsing/parser.mly" ( _1 ) -# 55375 "parsing/parser.ml" +# 55378 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55395,23 +55398,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3343 "parsing/parser.mly" +# 3346 "parsing/parser.mly" ( Ptyp_any ) -# 55401 "parsing/parser.ml" +# 55404 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 55409 "parsing/parser.ml" +# 55412 "parsing/parser.ml" in -# 3344 "parsing/parser.mly" +# 3347 "parsing/parser.mly" ( _1 ) -# 55415 "parsing/parser.ml" +# 55418 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55427,9 +55430,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3348 "parsing/parser.mly" +# 3351 "parsing/parser.mly" ( NoVariance, NoInjectivity ) -# 55433 "parsing/parser.ml" +# 55436 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55452,9 +55455,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3349 "parsing/parser.mly" +# 3352 "parsing/parser.mly" ( Covariant, NoInjectivity ) -# 55458 "parsing/parser.ml" +# 55461 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55477,9 +55480,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3350 "parsing/parser.mly" +# 3353 "parsing/parser.mly" ( Contravariant, NoInjectivity ) -# 55483 "parsing/parser.ml" +# 55486 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55502,9 +55505,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3351 "parsing/parser.mly" +# 3354 "parsing/parser.mly" ( NoVariance, Injective ) -# 55508 "parsing/parser.ml" +# 55511 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55534,9 +55537,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3352 "parsing/parser.mly" +# 3355 "parsing/parser.mly" ( Covariant, Injective ) -# 55540 "parsing/parser.ml" +# 55543 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55566,9 +55569,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3352 "parsing/parser.mly" +# 3355 "parsing/parser.mly" ( Covariant, Injective ) -# 55572 "parsing/parser.ml" +# 55575 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55598,9 +55601,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3353 "parsing/parser.mly" +# 3356 "parsing/parser.mly" ( Contravariant, Injective ) -# 55604 "parsing/parser.ml" +# 55607 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55630,9 +55633,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3353 "parsing/parser.mly" +# 3356 "parsing/parser.mly" ( Contravariant, Injective ) -# 55636 "parsing/parser.ml" +# 55639 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55651,20 +55654,20 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 817 "parsing/parser.mly" +# 820 "parsing/parser.mly" (string) -# 55657 "parsing/parser.ml" +# 55660 "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 -# 3355 "parsing/parser.mly" +# 3358 "parsing/parser.mly" ( if _1 = "+!" then Covariant, Injective else if _1 = "-!" then Contravariant, Injective else expecting _loc__1_ "type_variance" ) -# 55668 "parsing/parser.ml" +# 55671 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55683,20 +55686,20 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 866 "parsing/parser.mly" +# 869 "parsing/parser.mly" (string) -# 55689 "parsing/parser.ml" +# 55692 "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 -# 3359 "parsing/parser.mly" +# 3362 "parsing/parser.mly" ( if _1 = "!+" then Covariant, Injective else if _1 = "!-" then Contravariant, Injective else expecting _loc__1_ "type_variance" ) -# 55700 "parsing/parser.ml" +# 55703 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55730,39 +55733,39 @@ module Tables = struct let ys = # 260 "" ( List.flatten xss ) -# 55734 "parsing/parser.ml" +# 55737 "parsing/parser.ml" in let xs = let _1 = -# 1096 "parsing/parser.mly" +# 1099 "parsing/parser.mly" ( [] ) -# 55740 "parsing/parser.ml" +# 55743 "parsing/parser.ml" in -# 1328 "parsing/parser.mly" +# 1331 "parsing/parser.mly" ( _1 ) -# 55745 "parsing/parser.ml" +# 55748 "parsing/parser.ml" in # 267 "" ( xs @ ys ) -# 55751 "parsing/parser.ml" +# 55754 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1022 "parsing/parser.mly" +# 1025 "parsing/parser.mly" ( extra_def _startpos _endpos _1 ) -# 55760 "parsing/parser.ml" +# 55763 "parsing/parser.ml" in -# 1321 "parsing/parser.mly" +# 1324 "parsing/parser.mly" ( _1 ) -# 55766 "parsing/parser.ml" +# 55769 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55810,7 +55813,7 @@ module Tables = struct let ys = # 260 "" ( List.flatten xss ) -# 55814 "parsing/parser.ml" +# 55817 "parsing/parser.ml" in let xs = let _1 = @@ -55818,61 +55821,61 @@ module Tables = struct let _1 = let _1 = let attrs = -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 55824 "parsing/parser.ml" +# 55827 "parsing/parser.ml" in -# 1532 "parsing/parser.mly" +# 1535 "parsing/parser.mly" ( mkstrexp e attrs ) -# 55829 "parsing/parser.ml" +# 55832 "parsing/parser.ml" in -# 1040 "parsing/parser.mly" +# 1043 "parsing/parser.mly" ( Ptop_def [_1] ) -# 55835 "parsing/parser.ml" +# 55838 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _startpos = _startpos__1_ in -# 1038 "parsing/parser.mly" +# 1041 "parsing/parser.mly" ( text_def _startpos @ [_1] ) -# 55843 "parsing/parser.ml" +# 55846 "parsing/parser.ml" in -# 1098 "parsing/parser.mly" +# 1101 "parsing/parser.mly" ( x ) -# 55849 "parsing/parser.ml" +# 55852 "parsing/parser.ml" in -# 1328 "parsing/parser.mly" +# 1331 "parsing/parser.mly" ( _1 ) -# 55855 "parsing/parser.ml" +# 55858 "parsing/parser.ml" in # 267 "" ( xs @ ys ) -# 55861 "parsing/parser.ml" +# 55864 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_e_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1022 "parsing/parser.mly" +# 1025 "parsing/parser.mly" ( extra_def _startpos _endpos _1 ) -# 55870 "parsing/parser.ml" +# 55873 "parsing/parser.ml" in -# 1321 "parsing/parser.mly" +# 1324 "parsing/parser.mly" ( _1 ) -# 55876 "parsing/parser.ml" +# 55879 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55909,9 +55912,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Asttypes.label) = -# 3890 "parsing/parser.mly" +# 3893 "parsing/parser.mly" ( _2 ) -# 55915 "parsing/parser.ml" +# 55918 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55950,9 +55953,9 @@ module Tables = struct let _v : (Asttypes.label) = let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 3891 "parsing/parser.mly" +# 3894 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) -# 55956 "parsing/parser.ml" +# 55959 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55983,9 +55986,9 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Asttypes.label) = let _loc__2_ = (_startpos__2_, _endpos__2_) in -# 3892 "parsing/parser.mly" +# 3895 "parsing/parser.mly" ( expecting _loc__2_ "operator" ) -# 55989 "parsing/parser.ml" +# 55992 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56023,9 +56026,9 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Asttypes.label) = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3893 "parsing/parser.mly" +# 3896 "parsing/parser.mly" ( expecting _loc__3_ "module-expr" ) -# 56029 "parsing/parser.ml" +# 56032 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56044,17 +56047,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 56050 "parsing/parser.ml" +# 56053 "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) = -# 3896 "parsing/parser.mly" +# 3899 "parsing/parser.mly" ( _1 ) -# 56058 "parsing/parser.ml" +# 56061 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56077,9 +56080,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = -# 3897 "parsing/parser.mly" +# 3900 "parsing/parser.mly" ( _1 ) -# 56083 "parsing/parser.ml" +# 56086 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56102,9 +56105,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 3965 "parsing/parser.mly" +# 3968 "parsing/parser.mly" ( _1 ) -# 56108 "parsing/parser.ml" +# 56111 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56149,9 +56152,9 @@ module Tables = struct let ty : (Parsetree.core_type) = Obj.magic ty in let _5 : unit = Obj.magic _5 in let _1_inlined1 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 56155 "parsing/parser.ml" +# 56158 "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 @@ -56163,33 +56166,33 @@ module Tables = struct Parsetree.attributes) = let label = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = -# 3864 "parsing/parser.mly" +# 3867 "parsing/parser.mly" ( _1 ) -# 56169 "parsing/parser.ml" +# 56172 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 56177 "parsing/parser.ml" +# 56180 "parsing/parser.ml" in let attrs = -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 56183 "parsing/parser.ml" +# 56186 "parsing/parser.ml" in let _1 = -# 4116 "parsing/parser.mly" +# 4119 "parsing/parser.mly" ( Fresh ) -# 56188 "parsing/parser.ml" +# 56191 "parsing/parser.ml" in -# 2111 "parsing/parser.mly" +# 2114 "parsing/parser.mly" ( (label, mutable_, Cfk_virtual ty), attrs ) -# 56193 "parsing/parser.ml" +# 56196 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56234,9 +56237,9 @@ module Tables = struct let _6 : (Parsetree.expression) = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let _1_inlined1 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 56240 "parsing/parser.ml" +# 56243 "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 @@ -56248,33 +56251,33 @@ module Tables = struct Parsetree.attributes) = let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = -# 3864 "parsing/parser.mly" +# 3867 "parsing/parser.mly" ( _1 ) -# 56254 "parsing/parser.ml" +# 56257 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 56262 "parsing/parser.ml" +# 56265 "parsing/parser.ml" in let _2 = -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 56268 "parsing/parser.ml" +# 56271 "parsing/parser.ml" in let _1 = -# 4119 "parsing/parser.mly" +# 4122 "parsing/parser.mly" ( Fresh ) -# 56273 "parsing/parser.ml" +# 56276 "parsing/parser.ml" in -# 2113 "parsing/parser.mly" +# 2116 "parsing/parser.mly" ( (_4, _3, Cfk_concrete (_1, _6)), _2 ) -# 56278 "parsing/parser.ml" +# 56281 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56325,9 +56328,9 @@ module Tables = struct let _6 : (Parsetree.expression) = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let _1_inlined2 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 56331 "parsing/parser.ml" +# 56334 "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 @@ -56340,36 +56343,36 @@ module Tables = struct Parsetree.attributes) = let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _1 = -# 3864 "parsing/parser.mly" +# 3867 "parsing/parser.mly" ( _1 ) -# 56346 "parsing/parser.ml" +# 56349 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 56354 "parsing/parser.ml" +# 56357 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 56362 "parsing/parser.ml" +# 56365 "parsing/parser.ml" in let _1 = -# 4120 "parsing/parser.mly" +# 4123 "parsing/parser.mly" ( Override ) -# 56368 "parsing/parser.ml" +# 56371 "parsing/parser.ml" in -# 2113 "parsing/parser.mly" +# 2116 "parsing/parser.mly" ( (_4, _3, Cfk_concrete (_1, _6)), _2 ) -# 56373 "parsing/parser.ml" +# 56376 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56421,9 +56424,9 @@ module Tables = struct let _6 : unit = Obj.magic _6 in let _5 : (Parsetree.core_type option * Parsetree.core_type option) = Obj.magic _5 in let _1_inlined1 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 56427 "parsing/parser.ml" +# 56430 "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 @@ -56435,30 +56438,30 @@ module Tables = struct Parsetree.attributes) = let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = -# 3864 "parsing/parser.mly" +# 3867 "parsing/parser.mly" ( _1 ) -# 56441 "parsing/parser.ml" +# 56444 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 56449 "parsing/parser.ml" +# 56452 "parsing/parser.ml" in let _startpos__4_ = _startpos__1_inlined1_ in let _2 = -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 56456 "parsing/parser.ml" +# 56459 "parsing/parser.ml" in let (_endpos__2_, _startpos__2_) = (_endpos__1_, _startpos__1_) in let _1 = -# 4119 "parsing/parser.mly" +# 4122 "parsing/parser.mly" ( Fresh ) -# 56462 "parsing/parser.ml" +# 56465 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__0_, _endpos__0_) in let _endpos = _endpos__7_ in @@ -56474,11 +56477,11 @@ module Tables = struct _startpos__4_ in let _sloc = (_symbolstartpos, _endpos) in -# 2116 "parsing/parser.mly" +# 2119 "parsing/parser.mly" ( let e = mkexp_constraint ~loc:_sloc _7 _5 in (_4, _3, Cfk_concrete (_1, e)), _2 ) -# 56482 "parsing/parser.ml" +# 56485 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56536,9 +56539,9 @@ module Tables = struct let _6 : unit = Obj.magic _6 in let _5 : (Parsetree.core_type option * Parsetree.core_type option) = Obj.magic _5 in let _1_inlined2 : ( -# 840 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 56542 "parsing/parser.ml" +# 56545 "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 @@ -56551,33 +56554,33 @@ module Tables = struct Parsetree.attributes) = let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _1 = -# 3864 "parsing/parser.mly" +# 3867 "parsing/parser.mly" ( _1 ) -# 56557 "parsing/parser.ml" +# 56560 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 56565 "parsing/parser.ml" +# 56568 "parsing/parser.ml" in let _startpos__4_ = _startpos__1_inlined2_ in let _2 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 56574 "parsing/parser.ml" +# 56577 "parsing/parser.ml" in let (_endpos__2_, _startpos__2_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let _1 = -# 4120 "parsing/parser.mly" +# 4123 "parsing/parser.mly" ( Override ) -# 56581 "parsing/parser.ml" +# 56584 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = if _startpos__1_ != _endpos__1_ then @@ -56592,11 +56595,11 @@ module Tables = struct _startpos__4_ in let _sloc = (_symbolstartpos, _endpos) in -# 2116 "parsing/parser.mly" +# 2119 "parsing/parser.mly" ( let e = mkexp_constraint ~loc:_sloc _7 _5 in (_4, _3, Cfk_concrete (_1, e)), _2 ) -# 56600 "parsing/parser.ml" +# 56603 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56663,9 +56666,9 @@ module Tables = struct let _v : (Parsetree.value_description * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined3 in -# 4215 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( _1 ) -# 56669 "parsing/parser.ml" +# 56672 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -56675,30 +56678,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 56681 "parsing/parser.ml" +# 56684 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4219 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( _1 ) -# 56689 "parsing/parser.ml" +# 56692 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3175 "parsing/parser.mly" +# 3178 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in let docs = symbol_docs _sloc in Val.mk id ty ~attrs ~loc ~docs, ext ) -# 56702 "parsing/parser.ml" +# 56705 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56714,9 +56717,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.virtual_flag) = -# 4080 "parsing/parser.mly" +# 4083 "parsing/parser.mly" ( Concrete ) -# 56720 "parsing/parser.ml" +# 56723 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56739,9 +56742,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.virtual_flag) = -# 4081 "parsing/parser.mly" +# 4084 "parsing/parser.mly" ( Virtual ) -# 56745 "parsing/parser.ml" +# 56748 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56764,9 +56767,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag) = -# 4104 "parsing/parser.mly" +# 4107 "parsing/parser.mly" ( Immutable ) -# 56770 "parsing/parser.ml" +# 56773 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56796,9 +56799,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.mutable_flag) = -# 4105 "parsing/parser.mly" +# 4108 "parsing/parser.mly" ( Mutable ) -# 56802 "parsing/parser.ml" +# 56805 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56828,9 +56831,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.mutable_flag) = -# 4106 "parsing/parser.mly" +# 4109 "parsing/parser.mly" ( Mutable ) -# 56834 "parsing/parser.ml" +# 56837 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56853,9 +56856,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.private_flag) = -# 4111 "parsing/parser.mly" +# 4114 "parsing/parser.mly" ( Public ) -# 56859 "parsing/parser.ml" +# 56862 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56885,9 +56888,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.private_flag) = -# 4112 "parsing/parser.mly" +# 4115 "parsing/parser.mly" ( Private ) -# 56891 "parsing/parser.ml" +# 56894 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56917,9 +56920,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.private_flag) = -# 4113 "parsing/parser.mly" +# 4116 "parsing/parser.mly" ( Private ) -# 56923 "parsing/parser.ml" +# 56926 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56981,27 +56984,27 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 56985 "parsing/parser.ml" +# 56988 "parsing/parser.ml" in -# 1110 "parsing/parser.mly" +# 1113 "parsing/parser.mly" ( xs ) -# 56990 "parsing/parser.ml" +# 56993 "parsing/parser.ml" in -# 3275 "parsing/parser.mly" +# 3278 "parsing/parser.mly" ( _1 ) -# 56996 "parsing/parser.ml" +# 56999 "parsing/parser.ml" in let _endpos__6_ = _endpos_xs_ in let _5 = let _1 = _1_inlined2 in -# 3625 "parsing/parser.mly" +# 3628 "parsing/parser.mly" ( _1 ) -# 57005 "parsing/parser.ml" +# 57008 "parsing/parser.ml" in let _3 = @@ -57010,16 +57013,16 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 57016 "parsing/parser.ml" +# 57019 "parsing/parser.ml" in let _endpos = _endpos__6_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3544 "parsing/parser.mly" +# 3547 "parsing/parser.mly" ( let lident = loc_last _3 in Pwith_type (_3, @@ -57029,7 +57032,7 @@ module Tables = struct ~manifest:_5 ~priv:_4 ~loc:(make_loc _sloc))) ) -# 57033 "parsing/parser.ml" +# 57036 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57082,9 +57085,9 @@ module Tables = struct let _v : (Parsetree.with_constraint) = let _5 = let _1 = _1_inlined2 in -# 3625 "parsing/parser.mly" +# 3628 "parsing/parser.mly" ( _1 ) -# 57088 "parsing/parser.ml" +# 57091 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined2_ in @@ -57094,16 +57097,16 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 57100 "parsing/parser.ml" +# 57103 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3557 "parsing/parser.mly" +# 3560 "parsing/parser.mly" ( let lident = loc_last _3 in Pwith_typesubst (_3, @@ -57111,7 +57114,7 @@ module Tables = struct ~params:_2 ~manifest:_5 ~loc:(make_loc _sloc))) ) -# 57115 "parsing/parser.ml" +# 57118 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57160,9 +57163,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 57166 "parsing/parser.ml" +# 57169 "parsing/parser.ml" in let _2 = @@ -57171,15 +57174,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 57177 "parsing/parser.ml" +# 57180 "parsing/parser.ml" in -# 3565 "parsing/parser.mly" +# 3568 "parsing/parser.mly" ( Pwith_module (_2, _4) ) -# 57183 "parsing/parser.ml" +# 57186 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57228,9 +57231,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 57234 "parsing/parser.ml" +# 57237 "parsing/parser.ml" in let _2 = @@ -57239,15 +57242,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 57245 "parsing/parser.ml" +# 57248 "parsing/parser.ml" in -# 3567 "parsing/parser.mly" +# 3570 "parsing/parser.mly" ( Pwith_modsubst (_2, _4) ) -# 57251 "parsing/parser.ml" +# 57254 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57303,15 +57306,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 57309 "parsing/parser.ml" +# 57312 "parsing/parser.ml" in -# 3569 "parsing/parser.mly" +# 3572 "parsing/parser.mly" ( Pwith_modtype (l, rhs) ) -# 57315 "parsing/parser.ml" +# 57318 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57367,15 +57370,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" +# 1029 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 57373 "parsing/parser.ml" +# 57376 "parsing/parser.ml" in -# 3571 "parsing/parser.mly" +# 3574 "parsing/parser.mly" ( Pwith_modtypesubst (l, rhs) ) -# 57379 "parsing/parser.ml" +# 57382 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57398,9 +57401,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.private_flag) = -# 3574 "parsing/parser.mly" +# 3577 "parsing/parser.mly" ( Public ) -# 57404 "parsing/parser.ml" +# 57407 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57430,9 +57433,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.private_flag) = -# 3575 "parsing/parser.mly" +# 3578 "parsing/parser.mly" ( Private ) -# 57436 "parsing/parser.ml" +# 57439 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57582,12 +57585,12 @@ module Incremental = struct end -# 4257 "parsing/parser.mly" +# 4260 "parsing/parser.mly" -# 57589 "parsing/parser.ml" +# 57592 "parsing/parser.ml" # 269 "" -# 57594 "parsing/parser.ml" +# 57597 "parsing/parser.ml"