[ structure_item (shortcut_ext_attr.ml[9,170+0]..[30,721+31]) Pstr_value Nonrec [ pattern (shortcut_ext_attr.ml[9,170+4]..[9,170+6]) Ppat_construct "()" (shortcut_ext_attr.ml[9,170+4]..[9,170+6]) None expression (shortcut_ext_attr.ml[10,179+2]..[30,721+31]) Pexp_extension "foo" [ structure_item (shortcut_ext_attr.ml[10,179+2]..[30,721+31]) ghost Pstr_eval expression (shortcut_ext_attr.ml[10,179+2]..[30,721+31]) ghost Pexp_let Nonrec [ attribute "foo" [] pattern (shortcut_ext_attr.ml[10,179+16]..[10,179+17]) Ppat_var "x" (shortcut_ext_attr.ml[10,179+16]..[10,179+17]) expression (shortcut_ext_attr.ml[10,179+20]..[10,179+21]) Pexp_constant constant (shortcut_ext_attr.ml[10,179+20]..[10,179+21]) PConst_int (3,None) attribute "foo" [] pattern (shortcut_ext_attr.ml[11,201+12]..[11,201+13]) Ppat_var "y" (shortcut_ext_attr.ml[11,201+12]..[11,201+13]) expression (shortcut_ext_attr.ml[11,201+16]..[11,201+17]) Pexp_constant constant (shortcut_ext_attr.ml[11,201+16]..[11,201+17]) PConst_int (4,None) ] expression (shortcut_ext_attr.ml[12,222+2]..[30,721+31]) Pexp_sequence expression (shortcut_ext_attr.ml[12,222+2]..[12,222+36]) Pexp_struct_item structure_item (shortcut_ext_attr.ml[12,222+7]..[12,222+29]) Pstr_extension "foo" [ structure_item (shortcut_ext_attr.ml[12,222+7]..[12,222+29]) ghost Pstr_module "M" (shortcut_ext_attr.ml[12,222+24]..[12,222+25]) attribute "foo" [] module_expr (shortcut_ext_attr.ml[12,222+28]..[12,222+29]) Pmod_ident "M" (shortcut_ext_attr.ml[12,222+28]..[12,222+29]) ] expression (shortcut_ext_attr.ml[12,222+33]..[12,222+35]) Pexp_construct "()" (shortcut_ext_attr.ml[12,222+33]..[12,222+35]) None expression (shortcut_ext_attr.ml[13,261+2]..[30,721+31]) Pexp_sequence expression (shortcut_ext_attr.ml[13,261+2]..[13,261+30]) Pexp_struct_item structure_item (shortcut_ext_attr.ml[13,261+7]..[13,261+23]) Pstr_extension "foo" [ structure_item (shortcut_ext_attr.ml[13,261+7]..[13,261+23]) ghost Pstr_open Fresh module_expr (shortcut_ext_attr.ml[13,261+22]..[13,261+23]) Pmod_ident "M" (shortcut_ext_attr.ml[13,261+22]..[13,261+23]) attribute "foo" [] ] expression (shortcut_ext_attr.ml[13,261+27]..[13,261+29]) Pexp_construct "()" (shortcut_ext_attr.ml[13,261+27]..[13,261+29]) None expression (shortcut_ext_attr.ml[14,294+2]..[30,721+31]) Pexp_sequence expression (shortcut_ext_attr.ml[14,294+2]..[14,294+25]) Pexp_extension "foo" [ structure_item (shortcut_ext_attr.ml[14,294+3]..[14,294+24]) ghost Pstr_eval expression (shortcut_ext_attr.ml[14,294+3]..[14,294+24]) ghost attribute "foo" [] Pexp_function [ Pparam_val (shortcut_ext_attr.ml[14,294+17]..[14,294+18]) Nolabel None pattern (shortcut_ext_attr.ml[14,294+17]..[14,294+18]) Ppat_var "x" (shortcut_ext_attr.ml[14,294+17]..[14,294+18]) ] None Pfunction_body expression (shortcut_ext_attr.ml[14,294+22]..[14,294+24]) Pexp_construct "()" (shortcut_ext_attr.ml[14,294+22]..[14,294+24]) None ] expression (shortcut_ext_attr.ml[15,322+2]..[30,721+31]) Pexp_sequence expression (shortcut_ext_attr.ml[15,322+2]..[15,322+30]) Pexp_extension "foo" [ structure_item (shortcut_ext_attr.ml[15,322+3]..[15,322+29]) ghost Pstr_eval expression (shortcut_ext_attr.ml[15,322+3]..[15,322+29]) ghost attribute "foo" [] Pexp_function [] None Pfunction_cases (shortcut_ext_attr.ml[15,322+3]..[15,322+29]) [ pattern (shortcut_ext_attr.ml[15,322+22]..[15,322+23]) Ppat_var "x" (shortcut_ext_attr.ml[15,322+22]..[15,322+23]) expression (shortcut_ext_attr.ml[15,322+27]..[15,322+29]) Pexp_construct "()" (shortcut_ext_attr.ml[15,322+27]..[15,322+29]) None ] ] expression (shortcut_ext_attr.ml[16,355+2]..[30,721+31]) Pexp_sequence expression (shortcut_ext_attr.ml[16,355+2]..[16,355+33]) Pexp_extension "foo" [ structure_item (shortcut_ext_attr.ml[16,355+3]..[16,355+32]) ghost Pstr_eval expression (shortcut_ext_attr.ml[16,355+3]..[16,355+32]) ghost attribute "foo" [] Pexp_try expression (shortcut_ext_attr.ml[16,355+17]..[16,355+19]) Pexp_construct "()" (shortcut_ext_attr.ml[16,355+17]..[16,355+19]) None [ pattern (shortcut_ext_attr.ml[16,355+25]..[16,355+26]) Ppat_any expression (shortcut_ext_attr.ml[16,355+30]..[16,355+32]) Pexp_construct "()" (shortcut_ext_attr.ml[16,355+30]..[16,355+32]) None ] ] expression (shortcut_ext_attr.ml[17,391+2]..[30,721+31]) Pexp_sequence expression (shortcut_ext_attr.ml[17,391+2]..[17,391+35]) Pexp_extension "foo" [ structure_item (shortcut_ext_attr.ml[17,391+3]..[17,391+34]) ghost Pstr_eval expression (shortcut_ext_attr.ml[17,391+3]..[17,391+34]) ghost attribute "foo" [] Pexp_ifthenelse expression (shortcut_ext_attr.ml[17,391+16]..[17,391+18]) Pexp_construct "()" (shortcut_ext_attr.ml[17,391+16]..[17,391+18]) None expression (shortcut_ext_attr.ml[17,391+24]..[17,391+26]) Pexp_construct "()" (shortcut_ext_attr.ml[17,391+24]..[17,391+26]) None Some expression (shortcut_ext_attr.ml[17,391+32]..[17,391+34]) Pexp_construct "()" (shortcut_ext_attr.ml[17,391+32]..[17,391+34]) None ] expression (shortcut_ext_attr.ml[18,429+2]..[30,721+31]) Pexp_sequence expression (shortcut_ext_attr.ml[18,429+2]..[18,429+31]) Pexp_extension "foo" [ structure_item (shortcut_ext_attr.ml[18,429+2]..[18,429+31]) ghost Pstr_eval expression (shortcut_ext_attr.ml[18,429+2]..[18,429+31]) ghost attribute "foo" [] Pexp_while expression (shortcut_ext_attr.ml[18,429+18]..[18,429+20]) Pexp_construct "()" (shortcut_ext_attr.ml[18,429+18]..[18,429+20]) None expression (shortcut_ext_attr.ml[18,429+24]..[18,429+26]) Pexp_construct "()" (shortcut_ext_attr.ml[18,429+24]..[18,429+26]) None ] expression (shortcut_ext_attr.ml[19,463+2]..[30,721+31]) Pexp_sequence expression (shortcut_ext_attr.ml[19,463+2]..[19,463+39]) Pexp_extension "foo" [ structure_item (shortcut_ext_attr.ml[19,463+2]..[19,463+39]) ghost Pstr_eval expression (shortcut_ext_attr.ml[19,463+2]..[19,463+39]) ghost attribute "foo" [] Pexp_for Up pattern (shortcut_ext_attr.ml[19,463+16]..[19,463+17]) Ppat_var "x" (shortcut_ext_attr.ml[19,463+16]..[19,463+17]) expression (shortcut_ext_attr.ml[19,463+20]..[19,463+22]) Pexp_construct "()" (shortcut_ext_attr.ml[19,463+20]..[19,463+22]) None expression (shortcut_ext_attr.ml[19,463+26]..[19,463+28]) Pexp_construct "()" (shortcut_ext_attr.ml[19,463+26]..[19,463+28]) None expression (shortcut_ext_attr.ml[19,463+32]..[19,463+34]) Pexp_construct "()" (shortcut_ext_attr.ml[19,463+32]..[19,463+34]) None ] expression (shortcut_ext_attr.ml[20,505+2]..[30,721+31]) Pexp_extension "foo" [ structure_item (shortcut_ext_attr.ml[20,505+2]..[30,721+31]) ghost Pstr_eval expression (shortcut_ext_attr.ml[20,505+2]..[30,721+31]) ghost Pexp_sequence expression (shortcut_ext_attr.ml[20,505+2]..[20,505+4]) Pexp_construct "()" (shortcut_ext_attr.ml[20,505+2]..[20,505+4]) None expression (shortcut_ext_attr.ml[20,505+11]..[30,721+31]) Pexp_sequence expression (shortcut_ext_attr.ml[20,505+11]..[20,505+13]) Pexp_construct "()" (shortcut_ext_attr.ml[20,505+11]..[20,505+13]) None expression (shortcut_ext_attr.ml[21,521+2]..[30,721+31]) Pexp_sequence expression (shortcut_ext_attr.ml[21,521+2]..[21,521+23]) Pexp_extension "foo" [ structure_item (shortcut_ext_attr.ml[21,521+2]..[21,521+23]) ghost Pstr_eval expression (shortcut_ext_attr.ml[21,521+2]..[21,521+23]) ghost attribute "foo" [] Pexp_assert expression (shortcut_ext_attr.ml[21,521+19]..[21,521+23]) Pexp_construct "true" (shortcut_ext_attr.ml[21,521+19]..[21,521+23]) None ] expression (shortcut_ext_attr.ml[22,547+2]..[30,721+31]) Pexp_sequence expression (shortcut_ext_attr.ml[22,547+2]..[22,547+18]) Pexp_extension "foo" [ structure_item (shortcut_ext_attr.ml[22,547+2]..[22,547+18]) ghost Pstr_eval expression (shortcut_ext_attr.ml[22,547+2]..[22,547+18]) ghost attribute "foo" [] Pexp_lazy expression (shortcut_ext_attr.ml[22,547+17]..[22,547+18]) Pexp_ident "x" (shortcut_ext_attr.ml[22,547+17]..[22,547+18]) ] expression (shortcut_ext_attr.ml[23,568+2]..[30,721+31]) Pexp_sequence expression (shortcut_ext_attr.ml[23,568+2]..[23,568+22]) Pexp_extension "foo" [ structure_item (shortcut_ext_attr.ml[23,568+2]..[23,568+22]) ghost Pstr_eval expression (shortcut_ext_attr.ml[23,568+2]..[23,568+22]) ghost attribute "foo" [] Pexp_object class_structure pattern (shortcut_ext_attr.ml[23,568+18]..[23,568+18]) ghost Ppat_any [] ] expression (shortcut_ext_attr.ml[24,593+2]..[30,721+31]) Pexp_sequence expression (shortcut_ext_attr.ml[24,593+2]..[24,593+23]) Pexp_extension "foo" [ structure_item (shortcut_ext_attr.ml[24,593+2]..[24,593+23]) ghost Pstr_eval expression (shortcut_ext_attr.ml[24,593+2]..[24,593+23]) ghost attribute "foo" [] Pexp_constant constant (shortcut_ext_attr.ml[24,593+18]..[24,593+19]) PConst_int (3,None) ] expression (shortcut_ext_attr.ml[25,619+2]..[30,721+31]) Pexp_sequence expression (shortcut_ext_attr.ml[25,619+2]..[25,619+17]) Pexp_extension "foo" [ structure_item (shortcut_ext_attr.ml[25,619+2]..[25,619+17]) ghost Pstr_eval expression (shortcut_ext_attr.ml[25,619+2]..[25,619+17]) ghost attribute "foo" [] Pexp_new "x" (shortcut_ext_attr.ml[25,619+16]..[25,619+17]) ] expression (shortcut_ext_attr.ml[27,640+2]..[30,721+31]) Pexp_extension "foo" [ structure_item (shortcut_ext_attr.ml[27,640+2]..[30,721+31]) ghost Pstr_eval expression (shortcut_ext_attr.ml[27,640+2]..[30,721+31]) ghost attribute "foo" [] Pexp_match expression (shortcut_ext_attr.ml[27,640+18]..[27,640+20]) Pexp_construct "()" (shortcut_ext_attr.ml[27,640+18]..[27,640+20]) None [ pattern (shortcut_ext_attr.ml[29,694+4]..[29,694+20]) Ppat_extension "foo" pattern (shortcut_ext_attr.ml[29,694+4]..[29,694+20]) ghost attribute "foo" [] Ppat_lazy pattern (shortcut_ext_attr.ml[29,694+19]..[29,694+20]) Ppat_var "x" (shortcut_ext_attr.ml[29,694+19]..[29,694+20]) expression (shortcut_ext_attr.ml[29,694+24]..[29,694+26]) Pexp_construct "()" (shortcut_ext_attr.ml[29,694+24]..[29,694+26]) None pattern (shortcut_ext_attr.ml[30,721+4]..[30,721+25]) Ppat_extension "foo" pattern (shortcut_ext_attr.ml[30,721+4]..[30,721+25]) ghost attribute "foo" [] Ppat_exception pattern (shortcut_ext_attr.ml[30,721+24]..[30,721+25]) Ppat_var "x" (shortcut_ext_attr.ml[30,721+24]..[30,721+25]) expression (shortcut_ext_attr.ml[30,721+29]..[30,721+31]) Pexp_construct "()" (shortcut_ext_attr.ml[30,721+29]..[30,721+31]) None ] ] ] ] ] structure_item (shortcut_ext_attr.ml[34,779+0]..[46,1049+5]) Pstr_class [ class_declaration (shortcut_ext_attr.ml[34,779+0]..[46,1049+5]) pci_virt = Concrete pci_params = [] pci_name = "x" (shortcut_ext_attr.ml[34,779+6]..[34,779+7]) pci_expr = class_expr (shortcut_ext_attr.ml[35,789+12]..[46,1049+5]) attribute "foo" [] Pcl_fun Nolabel None pattern (shortcut_ext_attr.ml[35,789+12]..[35,789+13]) Ppat_var "x" (shortcut_ext_attr.ml[35,789+12]..[35,789+13]) class_expr (shortcut_ext_attr.ml[36,806+2]..[46,1049+5]) Pcl_let Nonrec [ attribute "foo" [] pattern (shortcut_ext_attr.ml[36,806+12]..[36,806+13]) Ppat_var "x" (shortcut_ext_attr.ml[36,806+12]..[36,806+13]) expression (shortcut_ext_attr.ml[36,806+16]..[36,806+17]) Pexp_constant constant (shortcut_ext_attr.ml[36,806+16]..[36,806+17]) PConst_int (3,None) ] class_expr (shortcut_ext_attr.ml[37,827+2]..[46,1049+5]) attribute "foo" [] Pcl_structure class_structure pattern (shortcut_ext_attr.ml[37,827+14]..[37,827+14]) ghost Ppat_any [ class_field (shortcut_ext_attr.ml[38,842+4]..[38,842+19]) attribute "foo" [] Pcf_inherit Fresh class_expr (shortcut_ext_attr.ml[38,842+18]..[38,842+19]) Pcl_constr "x" (shortcut_ext_attr.ml[38,842+18]..[38,842+19]) [] None class_field (shortcut_ext_attr.ml[39,862+4]..[39,862+19]) attribute "foo" [] Pcf_val Immutable "x" (shortcut_ext_attr.ml[39,862+14]..[39,862+15]) Concrete Fresh expression (shortcut_ext_attr.ml[39,862+18]..[39,862+19]) Pexp_constant constant (shortcut_ext_attr.ml[39,862+18]..[39,862+19]) PConst_int (3,None) class_field (shortcut_ext_attr.ml[40,882+4]..[40,882+27]) attribute "foo" [] Pcf_val Immutable "x" (shortcut_ext_attr.ml[40,882+22]..[40,882+23]) Virtual core_type (shortcut_ext_attr.ml[40,882+26]..[40,882+27]) Ptyp_constr "t" (shortcut_ext_attr.ml[40,882+26]..[40,882+27]) [] class_field (shortcut_ext_attr.ml[41,910+4]..[41,910+28]) attribute "foo" [] Pcf_val Mutable "x" (shortcut_ext_attr.ml[41,910+23]..[41,910+24]) Concrete Override expression (shortcut_ext_attr.ml[41,910+27]..[41,910+28]) Pexp_constant constant (shortcut_ext_attr.ml[41,910+27]..[41,910+28]) PConst_int (3,None) class_field (shortcut_ext_attr.ml[42,939+4]..[42,939+22]) attribute "foo" [] Pcf_method Public "x" (shortcut_ext_attr.ml[42,939+17]..[42,939+18]) Concrete Fresh expression (shortcut_ext_attr.ml[42,939+21]..[42,939+22]) ghost Pexp_poly expression (shortcut_ext_attr.ml[42,939+21]..[42,939+22]) Pexp_constant constant (shortcut_ext_attr.ml[42,939+21]..[42,939+22]) PConst_int (3,None) None class_field (shortcut_ext_attr.ml[43,962+4]..[43,962+30]) attribute "foo" [] Pcf_method Public "x" (shortcut_ext_attr.ml[43,962+25]..[43,962+26]) Virtual core_type (shortcut_ext_attr.ml[43,962+29]..[43,962+30]) Ptyp_constr "t" (shortcut_ext_attr.ml[43,962+29]..[43,962+30]) [] class_field (shortcut_ext_attr.ml[44,993+4]..[44,993+31]) attribute "foo" [] Pcf_method Private "x" (shortcut_ext_attr.ml[44,993+26]..[44,993+27]) Concrete Override expression (shortcut_ext_attr.ml[44,993+30]..[44,993+31]) ghost Pexp_poly expression (shortcut_ext_attr.ml[44,993+30]..[44,993+31]) Pexp_constant constant (shortcut_ext_attr.ml[44,993+30]..[44,993+31]) PConst_int (3,None) None class_field (shortcut_ext_attr.ml[45,1025+4]..[45,1025+23]) attribute "foo" [] Pcf_initializer expression (shortcut_ext_attr.ml[45,1025+22]..[45,1025+23]) Pexp_ident "x" (shortcut_ext_attr.ml[45,1025+22]..[45,1025+23]) ] ] structure_item (shortcut_ext_attr.ml[49,1085+0]..[57,1265+5]) Pstr_class_type [ class_type_declaration (shortcut_ext_attr.ml[49,1085+0]..[57,1265+5]) pci_virt = Concrete pci_params = [] pci_name = "t" (shortcut_ext_attr.ml[49,1085+11]..[49,1085+12]) pci_expr = class_type (shortcut_ext_attr.ml[50,1100+2]..[57,1265+5]) attribute "foo" [] Pcty_signature class_signature core_type (shortcut_ext_attr.ml[50,1100+14]..[50,1100+14]) ghost Ptyp_any [ class_type_field (shortcut_ext_attr.ml[51,1115+4]..[51,1115+19]) attribute "foo" [] Pctf_inherit class_type (shortcut_ext_attr.ml[51,1115+18]..[51,1115+19]) Pcty_constr "t" (shortcut_ext_attr.ml[51,1115+18]..[51,1115+19]) [] class_type_field (shortcut_ext_attr.ml[52,1135+4]..[52,1135+19]) attribute "foo" [] Pctf_val "x" Immutable Concrete core_type (shortcut_ext_attr.ml[52,1135+18]..[52,1135+19]) Ptyp_constr "t" (shortcut_ext_attr.ml[52,1135+18]..[52,1135+19]) [] class_type_field (shortcut_ext_attr.ml[53,1155+4]..[53,1155+27]) attribute "foo" [] Pctf_val "x" Mutable Concrete core_type (shortcut_ext_attr.ml[53,1155+26]..[53,1155+27]) Ptyp_constr "t" (shortcut_ext_attr.ml[53,1155+26]..[53,1155+27]) [] class_type_field (shortcut_ext_attr.ml[54,1183+4]..[54,1183+22]) attribute "foo" [] Pctf_method "x" Public Concrete core_type (shortcut_ext_attr.ml[54,1183+21]..[54,1183+22]) Ptyp_constr "t" (shortcut_ext_attr.ml[54,1183+21]..[54,1183+22]) [] class_type_field (shortcut_ext_attr.ml[55,1206+4]..[55,1206+30]) attribute "foo" [] Pctf_method "x" Private Concrete core_type (shortcut_ext_attr.ml[55,1206+29]..[55,1206+30]) Ptyp_constr "t" (shortcut_ext_attr.ml[55,1206+29]..[55,1206+30]) [] class_type_field (shortcut_ext_attr.ml[56,1237+4]..[56,1237+27]) attribute "foo" [] Pctf_constraint core_type (shortcut_ext_attr.ml[56,1237+21]..[56,1237+22]) Ptyp_constr "t" (shortcut_ext_attr.ml[56,1237+21]..[56,1237+22]) [] core_type (shortcut_ext_attr.ml[56,1237+25]..[56,1237+27]) Ptyp_constr "t'" (shortcut_ext_attr.ml[56,1237+25]..[56,1237+27]) [] ] ] structure_item (shortcut_ext_attr.ml[60,1295+0]..[61,1304+22]) Pstr_type Rec [ type_declaration "t" (shortcut_ext_attr.ml[60,1295+5]..[60,1295+6]) (shortcut_ext_attr.ml[60,1295+0]..[61,1304+22]) ptype_params = [] ptype_cstrs = [] ptype_kind = Ptype_abstract ptype_private = Public ptype_manifest = Some core_type (shortcut_ext_attr.ml[61,1304+2]..[61,1304+22]) Ptyp_extension "foo" core_type (shortcut_ext_attr.ml[61,1304+2]..[61,1304+22]) ghost attribute "foo" [] Ptyp_package package_type "M" (shortcut_ext_attr.ml[61,1304+20]..[61,1304+21]) [] ] structure_item (shortcut_ext_attr.ml[64,1353+0]..[67,1409+22]) Pstr_module "M" (shortcut_ext_attr.ml[64,1353+7]..[64,1353+8]) module_expr (shortcut_ext_attr.ml[65,1364+16]..[67,1409+22]) attribute "foo" [] Pmod_functor "M" (shortcut_ext_attr.ml[65,1364+17]..[65,1364+18]) module_type (shortcut_ext_attr.ml[65,1364+21]..[65,1364+22]) Pmty_ident "S" (shortcut_ext_attr.ml[65,1364+21]..[65,1364+22]) module_expr (shortcut_ext_attr.ml[66,1391+4]..[67,1409+22]) Pmod_apply module_expr (shortcut_ext_attr.ml[66,1391+4]..[66,1391+17]) attribute "foo" [] Pmod_unpack expression (shortcut_ext_attr.ml[66,1391+15]..[66,1391+16]) Pexp_ident "x" (shortcut_ext_attr.ml[66,1391+15]..[66,1391+16]) module_expr (shortcut_ext_attr.ml[67,1409+5]..[67,1409+21]) attribute "foo" [] Pmod_structure [] structure_item (shortcut_ext_attr.ml[70,1462+0]..[73,1535+19]) Pstr_modtype "S" (shortcut_ext_attr.ml[70,1462+12]..[70,1462+13]) module_type (shortcut_ext_attr.ml[71,1478+16]..[73,1535+19]) attribute "foo" [] Pmty_functor "M" (shortcut_ext_attr.ml[71,1478+17]..[71,1478+18]) module_type (shortcut_ext_attr.ml[71,1478+19]..[71,1478+20]) Pmty_ident "S" (shortcut_ext_attr.ml[71,1478+19]..[71,1478+20]) module_type (shortcut_ext_attr.ml[72,1503+4]..[73,1535+19]) Pmty_functor "_" (_none_[0,0+-1]..[0,0+-1]) ghost module_type (shortcut_ext_attr.ml[72,1503+5]..[72,1503+27]) attribute "foo" [] Pmty_typeof module_expr (shortcut_ext_attr.ml[72,1503+26]..[72,1503+27]) Pmod_ident "M" (shortcut_ext_attr.ml[72,1503+26]..[72,1503+27]) module_type (shortcut_ext_attr.ml[73,1535+5]..[73,1535+18]) attribute "foo" [] Pmty_signature [] structure_item (shortcut_ext_attr.ml[76,1578+0]..[77,1598+15]) ghost Pstr_extension "foo" [ structure_item (shortcut_ext_attr.ml[76,1578+0]..[77,1598+15]) Pstr_value Nonrec [ attribute "foo" [] pattern (shortcut_ext_attr.ml[76,1578+14]..[76,1578+15]) Ppat_var "x" (shortcut_ext_attr.ml[76,1578+14]..[76,1578+15]) expression (shortcut_ext_attr.ml[76,1578+18]..[76,1578+19]) Pexp_constant constant (shortcut_ext_attr.ml[76,1578+18]..[76,1578+19]) PConst_int (4,None) attribute "foo" [] pattern (shortcut_ext_attr.ml[77,1598+10]..[77,1598+11]) Ppat_var "y" (shortcut_ext_attr.ml[77,1598+10]..[77,1598+11]) expression (shortcut_ext_attr.ml[77,1598+14]..[77,1598+15]) Pexp_ident "x" (shortcut_ext_attr.ml[77,1598+14]..[77,1598+15]) ] ] structure_item (shortcut_ext_attr.ml[79,1615+0]..[80,1638+17]) Pstr_extension "foo" [ structure_item (shortcut_ext_attr.ml[79,1615+0]..[80,1638+17]) ghost Pstr_type Rec [ type_declaration "t" (shortcut_ext_attr.ml[79,1615+15]..[79,1615+16]) (shortcut_ext_attr.ml[79,1615+0]..[79,1615+22]) attribute "foo" [] ptype_params = [] ptype_cstrs = [] ptype_kind = Ptype_abstract ptype_private = Public ptype_manifest = Some core_type (shortcut_ext_attr.ml[79,1615+19]..[79,1615+22]) Ptyp_constr "int" (shortcut_ext_attr.ml[79,1615+19]..[79,1615+22]) [] type_declaration "t" (shortcut_ext_attr.ml[80,1638+10]..[80,1638+11]) (shortcut_ext_attr.ml[80,1638+0]..[80,1638+17]) attribute "foo" [] ptype_params = [] ptype_cstrs = [] ptype_kind = Ptype_abstract ptype_private = Public ptype_manifest = Some core_type (shortcut_ext_attr.ml[80,1638+14]..[80,1638+17]) Ptyp_constr "int" (shortcut_ext_attr.ml[80,1638+14]..[80,1638+17]) [] ] ] structure_item (shortcut_ext_attr.ml[81,1656+0]..[81,1656+21]) Pstr_extension "foo" [ structure_item (shortcut_ext_attr.ml[81,1656+0]..[81,1656+21]) ghost Pstr_typext type_extension attribute "foo" [] ptyext_path = "t" (shortcut_ext_attr.ml[81,1656+15]..[81,1656+16]) ptyext_params = [] ptyext_constructors = [ extension_constructor (shortcut_ext_attr.ml[81,1656+20]..[81,1656+21]) pext_name = "T" pext_kind = Pext_decl [] None ] ptyext_private = Public ] structure_item (shortcut_ext_attr.ml[83,1679+0]..[83,1679+21]) Pstr_extension "foo" [ structure_item (shortcut_ext_attr.ml[83,1679+0]..[83,1679+21]) ghost Pstr_class [ class_declaration (shortcut_ext_attr.ml[83,1679+0]..[83,1679+21]) attribute "foo" [] pci_virt = Concrete pci_params = [] pci_name = "x" (shortcut_ext_attr.ml[83,1679+16]..[83,1679+17]) pci_expr = class_expr (shortcut_ext_attr.ml[83,1679+20]..[83,1679+21]) Pcl_constr "x" (shortcut_ext_attr.ml[83,1679+20]..[83,1679+21]) [] ] ] structure_item (shortcut_ext_attr.ml[84,1701+0]..[84,1701+26]) Pstr_extension "foo" [ structure_item (shortcut_ext_attr.ml[84,1701+0]..[84,1701+26]) ghost Pstr_class_type [ class_type_declaration (shortcut_ext_attr.ml[84,1701+0]..[84,1701+26]) attribute "foo" [] pci_virt = Concrete pci_params = [] pci_name = "x" (shortcut_ext_attr.ml[84,1701+21]..[84,1701+22]) pci_expr = class_type (shortcut_ext_attr.ml[84,1701+25]..[84,1701+26]) Pcty_constr "x" (shortcut_ext_attr.ml[84,1701+25]..[84,1701+26]) [] ] ] structure_item (shortcut_ext_attr.ml[85,1728+0]..[85,1728+30]) Pstr_extension "foo" [ structure_item (shortcut_ext_attr.ml[85,1728+0]..[85,1728+30]) ghost Pstr_primitive value_description "x" (shortcut_ext_attr.ml[85,1728+19]..[85,1728+20]) (shortcut_ext_attr.ml[85,1728+0]..[85,1728+30]) attribute "foo" [] core_type (shortcut_ext_attr.ml[85,1728+23]..[85,1728+24]) Ptyp_any [ "" ] ] structure_item (shortcut_ext_attr.ml[86,1759+0]..[86,1759+21]) Pstr_extension "foo" [ structure_item (shortcut_ext_attr.ml[86,1759+0]..[86,1759+21]) ghost Pstr_exception type_exception ptyext_constructor = extension_constructor (shortcut_ext_attr.ml[86,1759+0]..[86,1759+21]) attribute "foo" [] pext_name = "X" pext_kind = Pext_decl [] None ] structure_item (shortcut_ext_attr.ml[88,1782+0]..[88,1782+22]) Pstr_extension "foo" [ structure_item (shortcut_ext_attr.ml[88,1782+0]..[88,1782+22]) ghost Pstr_module "M" (shortcut_ext_attr.ml[88,1782+17]..[88,1782+18]) attribute "foo" [] module_expr (shortcut_ext_attr.ml[88,1782+21]..[88,1782+22]) Pmod_ident "M" (shortcut_ext_attr.ml[88,1782+21]..[88,1782+22]) ] structure_item (shortcut_ext_attr.ml[89,1805+0]..[90,1836+19]) Pstr_extension "foo" [ structure_item (shortcut_ext_attr.ml[89,1805+0]..[90,1836+19]) ghost Pstr_recmodule [ "M" (shortcut_ext_attr.ml[89,1805+21]..[89,1805+22]) attribute "foo" [] module_expr (shortcut_ext_attr.ml[89,1805+23]..[89,1805+30]) Pmod_constraint module_expr (shortcut_ext_attr.ml[89,1805+29]..[89,1805+30]) Pmod_ident "M" (shortcut_ext_attr.ml[89,1805+29]..[89,1805+30]) module_type (shortcut_ext_attr.ml[89,1805+25]..[89,1805+26]) Pmty_ident "S" (shortcut_ext_attr.ml[89,1805+25]..[89,1805+26]) "M" (shortcut_ext_attr.ml[90,1836+10]..[90,1836+11]) attribute "foo" [] module_expr (shortcut_ext_attr.ml[90,1836+12]..[90,1836+19]) Pmod_constraint module_expr (shortcut_ext_attr.ml[90,1836+18]..[90,1836+19]) Pmod_ident "M" (shortcut_ext_attr.ml[90,1836+18]..[90,1836+19]) module_type (shortcut_ext_attr.ml[90,1836+14]..[90,1836+15]) Pmty_ident "S" (shortcut_ext_attr.ml[90,1836+14]..[90,1836+15]) ] ] structure_item (shortcut_ext_attr.ml[91,1856+0]..[91,1856+27]) Pstr_extension "foo" [ structure_item (shortcut_ext_attr.ml[91,1856+0]..[91,1856+27]) ghost Pstr_modtype "S" (shortcut_ext_attr.ml[91,1856+22]..[91,1856+23]) attribute "foo" [] module_type (shortcut_ext_attr.ml[91,1856+26]..[91,1856+27]) Pmty_ident "S" (shortcut_ext_attr.ml[91,1856+26]..[91,1856+27]) ] structure_item (shortcut_ext_attr.ml[93,1885+0]..[93,1885+19]) Pstr_extension "foo" [ structure_item (shortcut_ext_attr.ml[93,1885+0]..[93,1885+19]) ghost Pstr_include attribute "foo" [] module_expr (shortcut_ext_attr.ml[93,1885+18]..[93,1885+19]) Pmod_ident "M" (shortcut_ext_attr.ml[93,1885+18]..[93,1885+19]) ] structure_item (shortcut_ext_attr.ml[94,1905+0]..[94,1905+16]) Pstr_extension "foo" [ structure_item (shortcut_ext_attr.ml[94,1905+0]..[94,1905+16]) ghost Pstr_open Fresh module_expr (shortcut_ext_attr.ml[94,1905+15]..[94,1905+16]) Pmod_ident "M" (shortcut_ext_attr.ml[94,1905+15]..[94,1905+16]) attribute "foo" [] ] structure_item (shortcut_ext_attr.ml[97,1945+0]..[120,2341+3]) Pstr_modtype "S" (shortcut_ext_attr.ml[97,1945+12]..[97,1945+13]) module_type (shortcut_ext_attr.ml[97,1945+16]..[120,2341+3]) Pmty_signature [ signature_item (shortcut_ext_attr.ml[98,1965+2]..[98,1965+21]) Psig_extension "foo" [ signature_item (shortcut_ext_attr.ml[98,1965+2]..[98,1965+21]) ghost Psig_value value_description "x" (shortcut_ext_attr.ml[98,1965+16]..[98,1965+17]) (shortcut_ext_attr.ml[98,1965+2]..[98,1965+21]) attribute "foo" [] core_type (shortcut_ext_attr.ml[98,1965+20]..[98,1965+21]) Ptyp_constr "t" (shortcut_ext_attr.ml[98,1965+20]..[98,1965+21]) [] [] ] signature_item (shortcut_ext_attr.ml[99,1987+2]..[99,1987+31]) Psig_extension "foo" [ signature_item (shortcut_ext_attr.ml[99,1987+2]..[99,1987+31]) ghost Psig_value value_description "x" (shortcut_ext_attr.ml[99,1987+21]..[99,1987+22]) (shortcut_ext_attr.ml[99,1987+2]..[99,1987+31]) attribute "foo" [] core_type (shortcut_ext_attr.ml[99,1987+25]..[99,1987+26]) Ptyp_constr "t" (shortcut_ext_attr.ml[99,1987+25]..[99,1987+26]) [] [ "" ] ] signature_item (shortcut_ext_attr.ml[101,2020+2]..[102,2045+20]) Psig_extension "foo" [ signature_item (shortcut_ext_attr.ml[101,2020+2]..[102,2045+20]) ghost Psig_type Rec [ type_declaration "t" (shortcut_ext_attr.ml[101,2020+17]..[101,2020+18]) (shortcut_ext_attr.ml[101,2020+2]..[101,2020+24]) attribute "foo" [] ptype_params = [] ptype_cstrs = [] ptype_kind = Ptype_abstract ptype_private = Public ptype_manifest = Some core_type (shortcut_ext_attr.ml[101,2020+21]..[101,2020+24]) Ptyp_constr "int" (shortcut_ext_attr.ml[101,2020+21]..[101,2020+24]) [] type_declaration "t'" (shortcut_ext_attr.ml[102,2045+12]..[102,2045+14]) (shortcut_ext_attr.ml[102,2045+2]..[102,2045+20]) attribute "foo" [] ptype_params = [] ptype_cstrs = [] ptype_kind = Ptype_abstract ptype_private = Public ptype_manifest = Some core_type (shortcut_ext_attr.ml[102,2045+17]..[102,2045+20]) Ptyp_constr "int" (shortcut_ext_attr.ml[102,2045+17]..[102,2045+20]) [] ] ] signature_item (shortcut_ext_attr.ml[103,2066+2]..[103,2066+23]) Psig_extension "foo" [ signature_item (shortcut_ext_attr.ml[103,2066+2]..[103,2066+23]) ghost Psig_typext type_extension attribute "foo" [] ptyext_path = "t" (shortcut_ext_attr.ml[103,2066+17]..[103,2066+18]) ptyext_params = [] ptyext_constructors = [ extension_constructor (shortcut_ext_attr.ml[103,2066+22]..[103,2066+23]) pext_name = "T" pext_kind = Pext_decl [] None ] ptyext_private = Public ] signature_item (shortcut_ext_attr.ml[105,2091+2]..[105,2091+23]) Psig_extension "foo" [ signature_item (shortcut_ext_attr.ml[105,2091+2]..[105,2091+23]) ghost Psig_exception type_exception ptyext_constructor = extension_constructor (shortcut_ext_attr.ml[105,2091+2]..[105,2091+23]) attribute "foo" [] pext_name = "X" pext_kind = Pext_decl [] None ] signature_item (shortcut_ext_attr.ml[107,2116+2]..[107,2116+24]) Psig_extension "foo" [ signature_item (shortcut_ext_attr.ml[107,2116+2]..[107,2116+24]) ghost Psig_module "M" (shortcut_ext_attr.ml[107,2116+19]..[107,2116+20]) attribute "foo" [] module_type (shortcut_ext_attr.ml[107,2116+23]..[107,2116+24]) Pmty_ident "S" (shortcut_ext_attr.ml[107,2116+23]..[107,2116+24]) ] signature_item (shortcut_ext_attr.ml[108,2141+2]..[109,2170+17]) Psig_extension "foo" [ signature_item (shortcut_ext_attr.ml[108,2141+2]..[109,2170+17]) ghost Psig_recmodule [ "M" (shortcut_ext_attr.ml[108,2141+23]..[108,2141+24]) attribute "foo" [] module_type (shortcut_ext_attr.ml[108,2141+27]..[108,2141+28]) Pmty_ident "S" (shortcut_ext_attr.ml[108,2141+27]..[108,2141+28]) "M" (shortcut_ext_attr.ml[109,2170+12]..[109,2170+13]) attribute "foo" [] module_type (shortcut_ext_attr.ml[109,2170+16]..[109,2170+17]) Pmty_ident "S" (shortcut_ext_attr.ml[109,2170+16]..[109,2170+17]) ] ] signature_item (shortcut_ext_attr.ml[110,2188+2]..[110,2188+24]) Psig_extension "foo" [ signature_item (shortcut_ext_attr.ml[110,2188+2]..[110,2188+24]) ghost Psig_module "M" (shortcut_ext_attr.ml[110,2188+19]..[110,2188+20]) attribute "foo" [] module_type (shortcut_ext_attr.ml[110,2188+23]..[110,2188+24]) Pmty_alias "M" (shortcut_ext_attr.ml[110,2188+23]..[110,2188+24]) ] signature_item (shortcut_ext_attr.ml[112,2214+2]..[112,2214+29]) Psig_extension "foo" [ signature_item (shortcut_ext_attr.ml[112,2214+2]..[112,2214+29]) ghost Psig_modtype "S" (shortcut_ext_attr.ml[112,2214+24]..[112,2214+25]) attribute "foo" [] module_type (shortcut_ext_attr.ml[112,2214+28]..[112,2214+29]) Pmty_ident "S" (shortcut_ext_attr.ml[112,2214+28]..[112,2214+29]) ] signature_item (shortcut_ext_attr.ml[114,2245+2]..[114,2245+21]) Psig_extension "foo" [ signature_item (shortcut_ext_attr.ml[114,2245+2]..[114,2245+21]) ghost Psig_include module_type (shortcut_ext_attr.ml[114,2245+20]..[114,2245+21]) Pmty_ident "M" (shortcut_ext_attr.ml[114,2245+20]..[114,2245+21]) attribute "foo" [] ] signature_item (shortcut_ext_attr.ml[115,2267+2]..[115,2267+18]) Psig_extension "foo" [ signature_item (shortcut_ext_attr.ml[115,2267+2]..[115,2267+18]) ghost Psig_open Fresh "M" (shortcut_ext_attr.ml[115,2267+17]..[115,2267+18]) attribute "foo" [] ] signature_item (shortcut_ext_attr.ml[117,2287+2]..[117,2287+23]) Psig_extension "foo" [ signature_item (shortcut_ext_attr.ml[117,2287+2]..[117,2287+23]) ghost Psig_class [ class_description (shortcut_ext_attr.ml[117,2287+2]..[117,2287+23]) attribute "foo" [] pci_virt = Concrete pci_params = [] pci_name = "x" (shortcut_ext_attr.ml[117,2287+18]..[117,2287+19]) pci_expr = class_type (shortcut_ext_attr.ml[117,2287+22]..[117,2287+23]) Pcty_constr "t" (shortcut_ext_attr.ml[117,2287+22]..[117,2287+23]) [] ] ] signature_item (shortcut_ext_attr.ml[118,2311+2]..[118,2311+28]) Psig_extension "foo" [ signature_item (shortcut_ext_attr.ml[118,2311+2]..[118,2311+28]) ghost Psig_class_type [ class_type_declaration (shortcut_ext_attr.ml[118,2311+2]..[118,2311+28]) attribute "foo" [] pci_virt = Concrete pci_params = [] pci_name = "x" (shortcut_ext_attr.ml[118,2311+23]..[118,2311+24]) pci_expr = class_type (shortcut_ext_attr.ml[118,2311+27]..[118,2311+28]) Pcty_constr "x" (shortcut_ext_attr.ml[118,2311+27]..[118,2311+28]) [] ] ] ] ] File "shortcut_ext_attr.ml", line 10, characters 6-9: 10 | let%foo[@foo] x = 3 ^^^ Error: Uninterpreted extension 'foo'.