diff --git a/stage0/src/Init/Lean/Elab/Tactic/Basic.lean b/stage0/src/Init/Lean/Elab/Tactic/Basic.lean index b4844bcc3a..3e1000c094 100644 --- a/stage0/src/Init/Lean/Elab/Tactic/Basic.lean +++ b/stage0/src/Init/Lean/Elab/Tactic/Basic.lean @@ -284,7 +284,7 @@ adaptExpander $ fun stx => match_syntax stx with @[builtinTactic repeat] def evalRepeat : Tactic := adaptExpander $ fun stx => match_syntax stx with - | `(tactic| repeat $t) => `(tactic| try (($t); repeat $t)) -- TODO: remove parens around $t + | `(tactic| repeat $t) => `(tactic| try ($t; repeat $t)) | _ => throwUnsupportedSyntax @[builtinTactic «assumption»] def evalAssumption : Tactic := diff --git a/stage0/src/Init/Lean/Parser/Parser.lean b/stage0/src/Init/Lean/Parser/Parser.lean index bea55d2dd4..205ee6c273 100644 --- a/stage0/src/Init/Lean/Parser/Parser.lean +++ b/stage0/src/Init/Lean/Parser/Parser.lean @@ -1821,6 +1821,16 @@ private def noImmediateColon {k : ParserKind} : Parser k := private def pushNone {k : ParserKind} : Parser k := { fn := fun a c s => s.pushSyntax mkNullNode } +/- + We support two kinds of antiquotations: `$id` and `$(t)`, where `id` is a term identifier and `t` is a term. + + TODO: we are making both cases look like syntax terms. Reason: the current expander expects a term. + We should remove this hack and modify the expander. This hack is bad since it relies on how we define `id` and `paren` in + the term parser at `Term.lean`. -/ +private def antiquotId {k} : Parser k := node `Lean.Parser.Term.id (identNoAntiquot >> pushNone) +private def antiquotNestedExpr {k} : Parser k := node `Lean.Parser.Term.paren ("(" >> node nullKind (termParser >> pushNone) >> ")") +private def antiquotExpr {k} : Parser k := antiquotId <|> antiquotNestedExpr + /-- Define parser for `$e` (if anonymous == true) and `$e:name`. Both forms can also be used with an appended `*` to turn them into an @@ -1833,8 +1843,7 @@ let nameP := checkNoWsBefore ("no space before ':" ++ name ++ "'") >> symbolAux -- antiquotation kind via `noImmediateColon` let nameP := if anonymous then nameP <|> noImmediateColon >> pushNone >> pushNone else nameP; node kind $ try $ dollarSymbol >> checkNoWsBefore "no space before" >> - -- use high precedence so that `$(x).y` is parsed as a projection of an antiquotation - termParser (appPrec + 1) >> + antiquotExpr >> nameP >> optional "*" def ident {k : ParserKind} : Parser k := diff --git a/stage0/stdlib/Init/Lean/Elab/BuiltinNotation.c b/stage0/stdlib/Init/Lean/Elab/BuiltinNotation.c index 6dccbf7b60..b26a842d1e 100644 --- a/stage0/stdlib/Init/Lean/Elab/BuiltinNotation.c +++ b/stage0/stdlib/Init/Lean/Elab/BuiltinNotation.c @@ -422,6 +422,7 @@ lean_object* l_Lean_Elab_Term_elabShow___lambda__1___closed__2; lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabBind(lean_object*); lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabGT___closed__3; lean_object* l_Lean_Elab_Term_elabParserMacro(lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; lean_object* l_Lean_Elab_Term_elabSubtype___lambda__1___closed__10; lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabAndM___closed__3; lean_object* l_Lean_Elab_Term_elabShow(lean_object*, lean_object*, lean_object*, lean_object*); @@ -443,7 +444,6 @@ lean_object* l_Lean_Elab_Term_elabLE___closed__4; lean_object* l_Lean_Elab_Term_elabOrM___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabIff___closed__1; lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabCons___closed__3; -extern lean_object* l_Lean_Parser_Term_paren___elambda__1___closed__1; lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabDollarProj___closed__3; lean_object* l_Lean_Elab_Term_elabSubtype___closed__1; lean_object* lean_panic_fn(lean_object*, lean_object*); @@ -1448,7 +1448,7 @@ x_116 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; x_117 = lean_array_push(x_116, x_115); x_118 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__55; x_119 = lean_array_push(x_117, x_118); -x_120 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_120 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_121 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_121, 0, x_120); lean_ctor_set(x_121, 1, x_119); @@ -1535,7 +1535,7 @@ x_167 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; x_168 = lean_array_push(x_167, x_166); x_169 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__55; x_170 = lean_array_push(x_168, x_169); -x_171 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_171 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_172 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_172, 0, x_171); lean_ctor_set(x_172, 1, x_170); @@ -1892,7 +1892,7 @@ x_40 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; x_41 = lean_array_push(x_40, x_39); x_42 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__55; x_43 = lean_array_push(x_41, x_42); -x_44 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_44 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_45 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_45, 0, x_44); lean_ctor_set(x_45, 1, x_43); @@ -1974,7 +1974,7 @@ x_89 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; x_90 = lean_array_push(x_89, x_88); x_91 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__55; x_92 = lean_array_push(x_90, x_91); -x_93 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_93 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_94 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_94, 0, x_93); lean_ctor_set(x_94, 1, x_92); @@ -2142,7 +2142,7 @@ x_162 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; x_163 = lean_array_push(x_162, x_161); x_164 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__55; x_165 = lean_array_push(x_163, x_164); -x_166 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_166 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_167 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_167, 0, x_166); lean_ctor_set(x_167, 1, x_165); @@ -2232,7 +2232,7 @@ x_215 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; x_216 = lean_array_push(x_215, x_214); x_217 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__55; x_218 = lean_array_push(x_216, x_217); -x_219 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_219 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_220 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_220, 0, x_219); lean_ctor_set(x_220, 1, x_218); @@ -2939,7 +2939,7 @@ x_31 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; x_32 = lean_array_push(x_31, x_30); x_33 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__55; x_34 = lean_array_push(x_32, x_33); -x_35 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_35 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_36 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_36, 0, x_35); lean_ctor_set(x_36, 1, x_34); @@ -3008,7 +3008,7 @@ x_71 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; x_72 = lean_array_push(x_71, x_70); x_73 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__55; x_74 = lean_array_push(x_72, x_73); -x_75 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_75 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_76 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_76, 0, x_75); lean_ctor_set(x_76, 1, x_74); @@ -3284,7 +3284,7 @@ x_43 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; x_44 = lean_array_push(x_43, x_42); x_45 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__55; x_46 = lean_array_push(x_44, x_45); -x_47 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_47 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_48 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_48, 0, x_47); lean_ctor_set(x_48, 1, x_46); @@ -3358,7 +3358,7 @@ x_87 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; x_88 = lean_array_push(x_87, x_86); x_89 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__55; x_90 = lean_array_push(x_88, x_89); -x_91 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_91 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_92 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_92, 0, x_91); lean_ctor_set(x_92, 1, x_90); @@ -3474,7 +3474,7 @@ x_146 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; x_147 = lean_array_push(x_146, x_145); x_148 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__55; x_149 = lean_array_push(x_147, x_148); -x_150 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_150 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_151 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_151, 0, x_150); lean_ctor_set(x_151, 1, x_149); @@ -3548,7 +3548,7 @@ x_190 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; x_191 = lean_array_push(x_190, x_189); x_192 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__55; x_193 = lean_array_push(x_191, x_192); -x_194 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_194 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_195 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_195, 0, x_194); lean_ctor_set(x_195, 1, x_193); @@ -3699,7 +3699,7 @@ x_260 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; x_261 = lean_array_push(x_260, x_259); x_262 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__55; x_263 = lean_array_push(x_261, x_262); -x_264 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_264 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_265 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_265, 0, x_264); lean_ctor_set(x_265, 1, x_263); @@ -3766,7 +3766,7 @@ x_299 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; x_300 = lean_array_push(x_299, x_298); x_301 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__55; x_302 = lean_array_push(x_300, x_301); -x_303 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_303 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_304 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_304, 0, x_303); lean_ctor_set(x_304, 1, x_302); @@ -3877,7 +3877,7 @@ x_355 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; x_356 = lean_array_push(x_355, x_354); x_357 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__55; x_358 = lean_array_push(x_356, x_357); -x_359 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_359 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_360 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_360, 0, x_359); lean_ctor_set(x_360, 1, x_358); @@ -3944,7 +3944,7 @@ x_394 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; x_395 = lean_array_push(x_394, x_393); x_396 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__55; x_397 = lean_array_push(x_395, x_396); -x_398 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_398 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_399 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_399, 0, x_398); lean_ctor_set(x_399, 1, x_397); @@ -4799,7 +4799,7 @@ x_88 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; x_89 = lean_array_push(x_88, x_87); x_90 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__55; x_91 = lean_array_push(x_89, x_90); -x_92 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_92 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_93 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_93, 0, x_92); lean_ctor_set(x_93, 1, x_91); @@ -4887,7 +4887,7 @@ x_135 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; x_136 = lean_array_push(x_135, x_134); x_137 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__55; x_138 = lean_array_push(x_136, x_137); -x_139 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_139 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_140 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_140, 0, x_139); lean_ctor_set(x_140, 1, x_138); @@ -4980,7 +4980,7 @@ x_184 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; x_185 = lean_array_push(x_184, x_183); x_186 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__55; x_187 = lean_array_push(x_185, x_186); -x_188 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_188 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_189 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_189, 0, x_188); lean_ctor_set(x_189, 1, x_187); @@ -5086,7 +5086,7 @@ x_241 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; x_242 = lean_array_push(x_241, x_240); x_243 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__55; x_244 = lean_array_push(x_242, x_243); -x_245 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_245 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_246 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_246, 0, x_245); lean_ctor_set(x_246, 1, x_244); diff --git a/stage0/stdlib/Init/Lean/Elab/Level.c b/stage0/stdlib/Init/Lean/Elab/Level.c index d9aaa76e55..9bde3596c6 100644 --- a/stage0/stdlib/Init/Lean/Elab/Level.c +++ b/stage0/stdlib/Init/Lean/Elab/Level.c @@ -75,6 +75,7 @@ lean_object* l_Lean_Elab_Level_LevelElabM_MonadLog___lambda__4(lean_object*, lea lean_object* l_Lean_Elab_Level_LevelElabM_MonadLog; extern lean_object* l_Lean_Parser_Level_hole___elambda__1___closed__1; lean_object* l_Lean_Elab_Level_LevelElabM_MonadLog___closed__7; +extern lean_object* l_Lean_Parser_Level_paren___elambda__1___closed__3; lean_object* l_Lean_Elab_mkMessage___at_Lean_Elab_Level_elabLevel___main___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Level_LevelElabM_MonadLog___closed__5; lean_object* l_Lean_Elab_Level_LevelElabM_MonadLog___lambda__3___boxed(lean_object*, lean_object*, lean_object*); @@ -93,7 +94,6 @@ lean_object* l_Lean_mkLevelParam(lean_object*); lean_object* l___private_Init_Data_Array_Basic_4__foldrRangeMAux___main___at_Lean_Elab_Level_elabLevel___main___spec__6___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Level_LevelElabM_MonadLog___lambda__2___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_throwError___at_Lean_Elab_Level_elabLevel___main___spec__5___boxed(lean_object*, lean_object*, lean_object*, lean_object*); -extern lean_object* l_Lean_Parser_Level_paren___elambda__1___closed__4; lean_object* lean_name_mk_numeral(lean_object*, lean_object*); lean_object* l_Lean_Elab_Level_elabLevel___main___closed__4; lean_object* l_Lean_Elab_getPos___at_Lean_Elab_Level_elabLevel___main___spec__3___boxed(lean_object*, lean_object*, lean_object*); @@ -1018,7 +1018,7 @@ _start: lean_object* x_4; lean_object* x_5; uint8_t x_6; lean_inc(x_1); x_4 = l_Lean_Syntax_getKind(x_1); -x_5 = l_Lean_Parser_Level_paren___elambda__1___closed__4; +x_5 = l_Lean_Parser_Level_paren___elambda__1___closed__3; x_6 = lean_name_eq(x_4, x_5); if (x_6 == 0) { diff --git a/stage0/stdlib/Init/Lean/Elab/Quotation.c b/stage0/stdlib/Init/Lean/Elab/Quotation.c index eaee7fd7c3..675a9cdb73 100644 --- a/stage0/stdlib/Init/Lean/Elab/Quotation.c +++ b/stage0/stdlib/Init/Lean/Elab/Quotation.c @@ -384,10 +384,10 @@ lean_object* l_List_map___main___at___private_Init_Lean_Elab_Quotation_15__oldRu extern lean_object* l_Lean_Parser_Term_str___elambda__1___closed__2; extern lean_object* l_Lean_Syntax_inhabited; lean_object* l___private_Init_Lean_Elab_Quotation_2__quoteList___main(lean_object*); +extern lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__1; lean_object* l___private_Init_Lean_Elab_Quotation_9__compileStxMatch___main___closed__14; extern lean_object* l_Lean_mkAppStx___closed__5; lean_object* l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__44; -extern lean_object* l_Lean_Parser_Level_paren___elambda__1___closed__3; lean_object* l_Lean_Parser_Error_toString(lean_object*); lean_object* l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__8; lean_object* l___private_Init_Lean_Elab_Quotation_9__compileStxMatch___main___closed__28; @@ -396,6 +396,7 @@ extern lean_object* l_Lean_Parser_Term_letPatDecl___elambda__1___closed__2; lean_object* l_List_foldl___main___at___private_Init_Lean_Elab_Quotation_14__toPreterm___main___spec__4(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_getLCtx(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__17; +extern lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; lean_object* l_Lean_Syntax_setArg(lean_object*, lean_object*, lean_object*); lean_object* l_List_head_x21___at___private_Init_Lean_Elab_Quotation_7__getHeadInfo___spec__1(lean_object*); lean_object* lean_expand_stx_quot(lean_object*, lean_object*); @@ -411,7 +412,6 @@ lean_object* l_Lean_Syntax_getKind(lean_object*); lean_object* lean_expand_match_syntax(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Term_match__syntax___elambda__1___closed__2; lean_object* l_List_mapM___main___at___private_Init_Lean_Elab_Quotation_9__compileStxMatch___main___spec__5(lean_object*, lean_object*, lean_object*); -extern lean_object* l_Lean_Parser_Term_paren___elambda__1___closed__1; lean_object* l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__20; lean_object* l_ReaderT_bind___at___private_Init_Lean_Elab_Quotation_8__explodeHeadPat___spec__1(lean_object*, lean_object*); lean_object* lean_panic_fn(lean_object*, lean_object*); @@ -3212,7 +3212,7 @@ x_311 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; x_312 = lean_array_push(x_311, x_310); x_313 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__55; x_314 = lean_array_push(x_312, x_313); -x_315 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_315 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_316 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_316, 0, x_315); lean_ctor_set(x_316, 1, x_314); @@ -3344,7 +3344,7 @@ x_386 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; x_387 = lean_array_push(x_386, x_385); x_388 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__55; x_389 = lean_array_push(x_387, x_388); -x_390 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_390 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_391 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_391, 0, x_390); lean_ctor_set(x_391, 1, x_389); @@ -3519,7 +3519,7 @@ x_480 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; x_481 = lean_array_push(x_480, x_479); x_482 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__55; x_483 = lean_array_push(x_481, x_482); -x_484 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_484 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_485 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_485, 0, x_484); lean_ctor_set(x_485, 1, x_483); @@ -3988,7 +3988,7 @@ x_70 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; x_71 = lean_array_push(x_70, x_69); x_72 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__55; x_73 = lean_array_push(x_71, x_72); -x_74 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_74 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_75 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_75, 0, x_74); lean_ctor_set(x_75, 1, x_73); @@ -4109,7 +4109,7 @@ x_139 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; x_140 = lean_array_push(x_139, x_138); x_141 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__55; x_142 = lean_array_push(x_140, x_141); -x_143 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_143 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_144 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_144, 0, x_143); lean_ctor_set(x_144, 1, x_142); @@ -5278,7 +5278,7 @@ x_45 = lean_box(0); x_46 = lean_name_eq(x_44, x_45); lean_dec(x_44); x_47 = l_Lean_Syntax_getArg(x_14, x_13); -x_48 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_48 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; lean_inc(x_47); x_49 = l_Lean_Syntax_isOfKind(x_47, x_48); x_50 = l_Lean_Elab_Term_isAntiquotSplice(x_14); @@ -9220,7 +9220,7 @@ x_642 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; x_643 = lean_array_push(x_642, x_641); x_644 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__55; x_645 = lean_array_push(x_643, x_644); -x_646 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_646 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_647 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_647, 0, x_646); lean_ctor_set(x_647, 1, x_645); @@ -9577,7 +9577,7 @@ x_828 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; x_829 = lean_array_push(x_828, x_827); x_830 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__55; x_831 = lean_array_push(x_829, x_830); -x_832 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_832 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_833 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_833, 0, x_832); lean_ctor_set(x_833, 1, x_831); @@ -10087,7 +10087,7 @@ x_1035 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43 x_1036 = lean_array_push(x_1035, x_1034); x_1037 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__55; x_1038 = lean_array_push(x_1036, x_1037); -x_1039 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_1039 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_1040 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_1040, 0, x_1039); lean_ctor_set(x_1040, 1, x_1038); @@ -10697,7 +10697,7 @@ lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; uint x_19 = l_Lean_Syntax_inhabited; x_20 = lean_unsigned_to_nat(1u); x_21 = lean_array_get(x_19, x_4, x_20); -x_22 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_22 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; lean_inc(x_21); x_23 = l_Lean_Syntax_isOfKind(x_21, x_22); if (x_23 == 0) @@ -11263,7 +11263,7 @@ lean_object* _init_l___private_Init_Lean_Elab_Quotation_12__letBindRhss___main__ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_1 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_2 = l___private_Init_Lean_Elab_Quotation_12__letBindRhss___main___closed__6; x_3 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_3, 0, x_1); @@ -14618,7 +14618,7 @@ x_163 = lean_string_dec_eq(x_119, x_162); if (x_163 == 0) { lean_object* x_164; uint8_t x_165; -x_164 = l_Lean_Parser_Level_paren___elambda__1___closed__3; +x_164 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__1; x_165 = lean_string_dec_eq(x_119, x_164); if (x_165 == 0) { @@ -16853,7 +16853,7 @@ x_790 = lean_string_dec_eq(x_119, x_789); if (x_790 == 0) { lean_object* x_791; uint8_t x_792; -x_791 = l_Lean_Parser_Level_paren___elambda__1___closed__3; +x_791 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__1; x_792 = lean_string_dec_eq(x_119, x_791); if (x_792 == 0) { @@ -18633,7 +18633,7 @@ x_1266 = lean_string_dec_eq(x_119, x_1265); if (x_1266 == 0) { lean_object* x_1267; uint8_t x_1268; -x_1267 = l_Lean_Parser_Level_paren___elambda__1___closed__3; +x_1267 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__1; x_1268 = lean_string_dec_eq(x_119, x_1267); if (x_1268 == 0) { @@ -20447,7 +20447,7 @@ x_1748 = lean_string_dec_eq(x_119, x_1747); if (x_1748 == 0) { lean_object* x_1749; uint8_t x_1750; -x_1749 = l_Lean_Parser_Level_paren___elambda__1___closed__3; +x_1749 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__1; x_1750 = lean_string_dec_eq(x_119, x_1749); if (x_1750 == 0) { @@ -22294,7 +22294,7 @@ x_2237 = lean_string_dec_eq(x_119, x_2236); if (x_2237 == 0) { lean_object* x_2238; uint8_t x_2239; -x_2238 = l_Lean_Parser_Level_paren___elambda__1___closed__3; +x_2238 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__1; x_2239 = lean_string_dec_eq(x_119, x_2238); if (x_2239 == 0) { diff --git a/stage0/stdlib/Init/Lean/Elab/Tactic/Basic.c b/stage0/stdlib/Init/Lean/Elab/Tactic/Basic.c index 23d1172d3c..2c136f4c66 100644 --- a/stage0/stdlib/Init/Lean/Elab/Tactic/Basic.c +++ b/stage0/stdlib/Init/Lean/Elab/Tactic/Basic.c @@ -13385,36 +13385,24 @@ return x_3; lean_object* _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__5() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = lean_box(0); -x_2 = l_Option_HasRepr___rarg___closed__3; -x_3 = lean_alloc_ctor(2, 2, 0); -lean_ctor_set(x_3, 0, x_1); -lean_ctor_set(x_3, 1, x_2); -return x_3; -} -} -lean_object* _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__6() { -_start: -{ lean_object* x_1; x_1 = lean_mk_string(";"); return x_1; } } -lean_object* _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__7() { +lean_object* _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__6() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = lean_box(0); -x_2 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__6; +x_2 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__5; x_3 = lean_alloc_ctor(2, 2, 0); lean_ctor_set(x_3, 0, x_1); lean_ctor_set(x_3, 1, x_2); return x_3; } } -lean_object* _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__8() { +lean_object* _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__7() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; @@ -13426,43 +13414,55 @@ lean_ctor_set(x_3, 1, x_2); return x_3; } } -lean_object* _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__9() { +lean_object* _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__8() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Array_empty___closed__1; -x_2 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__8; +x_2 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__7; x_3 = lean_array_push(x_1, x_2); return x_3; } } +lean_object* _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__9() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Option_HasRepr___rarg___closed__3; +x_3 = lean_alloc_ctor(2, 2, 0); +lean_ctor_set(x_3, 0, x_1); +lean_ctor_set(x_3, 1, x_2); +return x_3; +} +} lean_object* l_Lean_Elab_Tactic_evalRepeat___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -uint8_t x_4; lean_object* x_69; uint8_t x_70; -x_69 = l_Lean_Parser_Tactic_repeat___elambda__1___closed__2; +uint8_t x_4; lean_object* x_63; uint8_t x_64; +x_63 = l_Lean_Parser_Tactic_repeat___elambda__1___closed__2; lean_inc(x_1); -x_70 = l_Lean_Syntax_isOfKind(x_1, x_69); -if (x_70 == 0) +x_64 = l_Lean_Syntax_isOfKind(x_1, x_63); +if (x_64 == 0) { -uint8_t x_71; -x_71 = 0; -x_4 = x_71; -goto block_68; +uint8_t x_65; +x_65 = 0; +x_4 = x_65; +goto block_62; } else { -lean_object* x_72; lean_object* x_73; lean_object* x_74; uint8_t x_75; -x_72 = l_Lean_Syntax_getArgs(x_1); -x_73 = lean_array_get_size(x_72); -lean_dec(x_72); -x_74 = lean_unsigned_to_nat(2u); -x_75 = lean_nat_dec_eq(x_73, x_74); -lean_dec(x_73); -x_4 = x_75; -goto block_68; +lean_object* x_66; lean_object* x_67; lean_object* x_68; uint8_t x_69; +x_66 = l_Lean_Syntax_getArgs(x_1); +x_67 = lean_array_get_size(x_66); +lean_dec(x_66); +x_68 = lean_unsigned_to_nat(2u); +x_69 = lean_nat_dec_eq(x_67, x_68); +lean_dec(x_67); +x_4 = x_69; +goto block_62; } -block_68: +block_62: { uint8_t x_5; x_5 = l_coeDecidableEq(x_4); @@ -13484,102 +13484,92 @@ lean_dec(x_2); x_10 = !lean_is_exclusive(x_9); if (x_10 == 0) { -lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; +lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; x_11 = lean_ctor_get(x_9, 0); lean_dec(x_11); -x_12 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__4; +x_12 = l_Array_empty___closed__1; lean_inc(x_8); x_13 = lean_array_push(x_12, x_8); -x_14 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__5; +x_14 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__6; x_15 = lean_array_push(x_13, x_14); -x_16 = l_Lean_Parser_Tactic_paren___elambda__1___closed__1; -x_17 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_17, 0, x_16); -lean_ctor_set(x_17, 1, x_15); -x_18 = l_Array_empty___closed__1; -x_19 = lean_array_push(x_18, x_17); -x_20 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__7; -x_21 = lean_array_push(x_19, x_20); -x_22 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__9; -x_23 = lean_array_push(x_22, x_8); -x_24 = l_Lean_Parser_Tactic_repeat___elambda__1___closed__2; +x_16 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__8; +x_17 = lean_array_push(x_16, x_8); +x_18 = l_Lean_Parser_Tactic_repeat___elambda__1___closed__2; +x_19 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_19, 0, x_18); +lean_ctor_set(x_19, 1, x_17); +x_20 = lean_array_push(x_15, x_19); +x_21 = l_Lean_nullKind___closed__2; +x_22 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_22, 0, x_21); +lean_ctor_set(x_22, 1, x_20); +x_23 = lean_array_push(x_12, x_22); +x_24 = l_Lean_Parser_Tactic_seq___elambda__1___closed__3; x_25 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_25, 0, x_24); lean_ctor_set(x_25, 1, x_23); -x_26 = lean_array_push(x_21, x_25); -x_27 = l_Lean_nullKind___closed__2; -x_28 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_28, 0, x_27); -lean_ctor_set(x_28, 1, x_26); -x_29 = lean_array_push(x_18, x_28); -x_30 = l_Lean_Parser_Tactic_seq___elambda__1___closed__3; +x_26 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__4; +x_27 = lean_array_push(x_26, x_25); +x_28 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__9; +x_29 = lean_array_push(x_27, x_28); +x_30 = l_Lean_Parser_Tactic_paren___elambda__1___closed__1; x_31 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_31, 0, x_30); lean_ctor_set(x_31, 1, x_29); -x_32 = lean_array_push(x_12, x_31); -x_33 = lean_array_push(x_32, x_14); -x_34 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_34, 0, x_16); -lean_ctor_set(x_34, 1, x_33); -x_35 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__2; -x_36 = lean_array_push(x_35, x_34); -x_37 = l_Lean_Parser_Tactic_try___elambda__1___closed__2; -x_38 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_38, 0, x_37); -lean_ctor_set(x_38, 1, x_36); -lean_ctor_set(x_9, 0, x_38); +x_32 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__2; +x_33 = lean_array_push(x_32, x_31); +x_34 = l_Lean_Parser_Tactic_try___elambda__1___closed__2; +x_35 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_35, 0, x_34); +lean_ctor_set(x_35, 1, x_33); +lean_ctor_set(x_9, 0, x_35); return x_9; } else { -lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; -x_39 = lean_ctor_get(x_9, 1); -lean_inc(x_39); +lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; +x_36 = lean_ctor_get(x_9, 1); +lean_inc(x_36); lean_dec(x_9); -x_40 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__4; +x_37 = l_Array_empty___closed__1; lean_inc(x_8); -x_41 = lean_array_push(x_40, x_8); -x_42 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__5; -x_43 = lean_array_push(x_41, x_42); -x_44 = l_Lean_Parser_Tactic_paren___elambda__1___closed__1; -x_45 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_45, 0, x_44); -lean_ctor_set(x_45, 1, x_43); -x_46 = l_Array_empty___closed__1; -x_47 = lean_array_push(x_46, x_45); -x_48 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__7; -x_49 = lean_array_push(x_47, x_48); -x_50 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__9; -x_51 = lean_array_push(x_50, x_8); -x_52 = l_Lean_Parser_Tactic_repeat___elambda__1___closed__2; -x_53 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_53, 0, x_52); -lean_ctor_set(x_53, 1, x_51); -x_54 = lean_array_push(x_49, x_53); -x_55 = l_Lean_nullKind___closed__2; +x_38 = lean_array_push(x_37, x_8); +x_39 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__6; +x_40 = lean_array_push(x_38, x_39); +x_41 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__8; +x_42 = lean_array_push(x_41, x_8); +x_43 = l_Lean_Parser_Tactic_repeat___elambda__1___closed__2; +x_44 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_44, 0, x_43); +lean_ctor_set(x_44, 1, x_42); +x_45 = lean_array_push(x_40, x_44); +x_46 = l_Lean_nullKind___closed__2; +x_47 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_47, 0, x_46); +lean_ctor_set(x_47, 1, x_45); +x_48 = lean_array_push(x_37, x_47); +x_49 = l_Lean_Parser_Tactic_seq___elambda__1___closed__3; +x_50 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_50, 0, x_49); +lean_ctor_set(x_50, 1, x_48); +x_51 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__4; +x_52 = lean_array_push(x_51, x_50); +x_53 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__9; +x_54 = lean_array_push(x_52, x_53); +x_55 = l_Lean_Parser_Tactic_paren___elambda__1___closed__1; x_56 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_56, 0, x_55); lean_ctor_set(x_56, 1, x_54); -x_57 = lean_array_push(x_46, x_56); -x_58 = l_Lean_Parser_Tactic_seq___elambda__1___closed__3; -x_59 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_59, 0, x_58); -lean_ctor_set(x_59, 1, x_57); -x_60 = lean_array_push(x_40, x_59); -x_61 = lean_array_push(x_60, x_42); -x_62 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_62, 0, x_44); -lean_ctor_set(x_62, 1, x_61); -x_63 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__2; -x_64 = lean_array_push(x_63, x_62); -x_65 = l_Lean_Parser_Tactic_try___elambda__1___closed__2; -x_66 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_66, 0, x_65); -lean_ctor_set(x_66, 1, x_64); -x_67 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_67, 0, x_66); -lean_ctor_set(x_67, 1, x_39); -return x_67; +x_57 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__2; +x_58 = lean_array_push(x_57, x_56); +x_59 = l_Lean_Parser_Tactic_try___elambda__1___closed__2; +x_60 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_60, 0, x_59); +lean_ctor_set(x_60, 1, x_58); +x_61 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_61, 0, x_60); +lean_ctor_set(x_61, 1, x_36); +return x_61; } } } diff --git a/stage0/stdlib/Init/Lean/Elab/Term.c b/stage0/stdlib/Init/Lean/Elab/Term.c index 14a1fd7b04..bc545d3879 100644 --- a/stage0/stdlib/Init/Lean/Elab/Term.c +++ b/stage0/stdlib/Init/Lean/Elab/Term.c @@ -544,6 +544,7 @@ lean_object* l_Lean_Elab_Term_declareBuiltinTermElab___closed__5; lean_object* l_Lean_Elab_Term_getLCtx(lean_object*, lean_object*); lean_object* l_PersistentArray_foldlMAux___main___at___private_Init_Lean_Elab_Term_3__fromMetaState___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Term_9__mkPairsAux___main___closed__6; +extern lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; lean_object* l_Lean_Elab_Term_traceAtCmdPos(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Term_5__expandCDot___closed__2; uint8_t l_HashMapImp_contains___at_Lean_Elab_Term_addBuiltinTermElab___spec__2(lean_object*, lean_object*); @@ -579,7 +580,6 @@ lean_object* l_Lean_Elab_Term_registerBuiltinTermElabAttr(lean_object*); lean_object* l_ReaderT_bind___at_Lean_Elab_Term_monadLog___spec__2(lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_synthesizeInstMVarCore(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_decLevel___closed__3; -extern lean_object* l_Lean_Parser_Term_paren___elambda__1___closed__1; lean_object* l_Lean_Elab_Term_registerBuiltinTermElabAttr___lambda__1___closed__1; lean_object* l_Lean_SMap_find_x3f___at_Lean_Elab_Term_elabTermAux___main___spec__1(lean_object*, lean_object*); lean_object* lean_panic_fn(lean_object*, lean_object*); @@ -17921,7 +17921,7 @@ lean_object* l_Lean_Elab_Term_elabParen(lean_object* x_1, lean_object* x_2, lean _start: { uint8_t x_5; lean_object* x_145; uint8_t x_146; -x_145 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_145 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; lean_inc(x_1); x_146 = l_Lean_Syntax_isOfKind(x_1, x_145); if (x_146 == 0) @@ -18507,7 +18507,7 @@ lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabParen(lean_object* x_1) { _start: { lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; -x_2 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_2 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_3 = l___regBuiltinTermElab_Lean_Elab_Term_elabParen___closed__2; x_4 = l___regBuiltinTermElab_Lean_Elab_Term_elabParen___closed__3; x_5 = l_Lean_Elab_Term_addBuiltinTermElab(x_2, x_3, x_4, x_1); diff --git a/stage0/stdlib/Init/Lean/Elab/TermBinders.c b/stage0/stdlib/Init/Lean/Elab/TermBinders.c index 303c1d0965..295494c7c9 100644 --- a/stage0/stdlib/Init/Lean/Elab/TermBinders.c +++ b/stage0/stdlib/Init/Lean/Elab/TermBinders.c @@ -181,10 +181,10 @@ lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabForall___closed__1; extern lean_object* l_Lean_Parser_Term_implicitBinder___elambda__1___closed__2; lean_object* l_Lean_Elab_Term_elabArrow(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__9; +extern lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__1; extern lean_object* l_Lean_Parser_Term_matchAlt___elambda__1___closed__2; lean_object* l_Lean_Elab_Term_elabArrow___lambda__1___closed__5; extern lean_object* l_Lean_mkAppStx___closed__5; -extern lean_object* l_Lean_Parser_Level_paren___elambda__1___closed__3; lean_object* l_Lean_Elab_Term_elabFun___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabForall___closed__3; lean_object* l_Lean_Syntax_getNumArgs(lean_object*); @@ -5814,7 +5814,7 @@ x_480 = lean_string_dec_eq(x_19, x_479); if (x_480 == 0) { lean_object* x_481; uint8_t x_482; -x_481 = l_Lean_Parser_Level_paren___elambda__1___closed__3; +x_481 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__1; x_482 = lean_string_dec_eq(x_19, x_481); if (x_482 == 0) { @@ -8174,7 +8174,7 @@ x_1400 = lean_string_dec_eq(x_19, x_1399); if (x_1400 == 0) { lean_object* x_1401; uint8_t x_1402; -x_1401 = l_Lean_Parser_Level_paren___elambda__1___closed__3; +x_1401 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__1; x_1402 = lean_string_dec_eq(x_19, x_1401); if (x_1402 == 0) { @@ -9805,7 +9805,7 @@ x_1936 = lean_string_dec_eq(x_19, x_1935); if (x_1936 == 0) { lean_object* x_1937; uint8_t x_1938; -x_1937 = l_Lean_Parser_Level_paren___elambda__1___closed__3; +x_1937 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__1; x_1938 = lean_string_dec_eq(x_19, x_1937); if (x_1938 == 0) { @@ -11470,7 +11470,7 @@ x_2478 = lean_string_dec_eq(x_19, x_2477); if (x_2478 == 0) { lean_object* x_2479; uint8_t x_2480; -x_2479 = l_Lean_Parser_Level_paren___elambda__1___closed__3; +x_2479 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__1; x_2480 = lean_string_dec_eq(x_19, x_2479); if (x_2480 == 0) { @@ -13167,7 +13167,7 @@ x_3026 = lean_string_dec_eq(x_2791, x_3025); if (x_3026 == 0) { lean_object* x_3027; uint8_t x_3028; -x_3027 = l_Lean_Parser_Level_paren___elambda__1___closed__3; +x_3027 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__1; x_3028 = lean_string_dec_eq(x_2791, x_3027); if (x_3028 == 0) { diff --git a/stage0/stdlib/Init/Lean/Parser/Command.c b/stage0/stdlib/Init/Lean/Parser/Command.c index 27c6b139c9..1e7aa21312 100644 --- a/stage0/stdlib/Init/Lean/Parser/Command.c +++ b/stage0/stdlib/Init/Lean/Parser/Command.c @@ -56,6 +56,7 @@ lean_object* l_Lean_Parser_ParserState_mkError(lean_object*, lean_object*); lean_object* l_Lean_Parser_Command_instance___closed__4; lean_object* l___regBuiltinParser_Lean_Parser_Command_variable(lean_object*); lean_object* l_Lean_Parser_Command_visibility; +extern lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__6; lean_object* l_Lean_Parser_Command_inductive___elambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_sepBy1Fn___at_Lean_Parser_Command_attributes___elambda__1___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_stxQuot___closed__8; @@ -239,6 +240,7 @@ lean_object* l_Lean_Parser_sepBy1Fn___at_Lean_Parser_Command_attributes___elambd lean_object* l_Lean_Parser_Command_init__quot___elambda__1___closed__2; lean_object* l_Lean_Parser_Term_stxQuot___elambda__1___closed__1; extern lean_object* l_Lean_Parser_Term_listLit___closed__4; +extern lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__5; lean_object* l_Lean_Parser_Command_section___elambda__1___closed__8; lean_object* l_Lean_Parser_Command_declModifiers___closed__13; lean_object* l_Lean_Parser_Command_universes___elambda__1___closed__5; @@ -419,7 +421,6 @@ lean_object* l_Lean_Parser_Command_declModifiers___closed__5; lean_object* l_Lean_Parser_Command_structureTk___closed__1; lean_object* l_Lean_Parser_Command_init__quot___closed__1; lean_object* l_Lean_Parser_Command_inductive___elambda__1___closed__6; -extern lean_object* l_Lean_Parser_Level_paren___elambda__1___closed__7; lean_object* l_Lean_Parser_Command_universes___closed__1; lean_object* lean_nat_sub(lean_object*, lean_object*); lean_object* l_Lean_Parser_Command_docComment___elambda__1___closed__6; @@ -601,7 +602,6 @@ lean_object* l_Lean_Parser_Command_instance___elambda__1___closed__9; lean_object* l_Lean_Parser_Command_partial___closed__1; lean_object* l_Lean_Parser_Command_abbrev___elambda__1___closed__3; lean_object* l_Lean_Parser_Command_private___elambda__1___closed__9; -extern lean_object* l_Lean_Parser_Term_explicitBinder___closed__1; lean_object* l_Lean_Parser_Command_classInductive___closed__4; lean_object* l_Lean_Parser_Command_constant___closed__5; lean_object* l_Lean_Parser_Command_attributes___closed__1; @@ -679,7 +679,6 @@ lean_object* l_Lean_Parser_Command_structExplicitBinder___closed__5; lean_object* l_Lean_Parser_Command_private___closed__2; lean_object* l_Lean_Parser_Command_open___elambda__1___closed__1; lean_object* l_Lean_Parser_Command_openRenaming___elambda__1___closed__4; -extern lean_object* l_Lean_Parser_Level_paren___closed__4; lean_object* l_Lean_Parser_Command_set__option___elambda__1___closed__12; lean_object* l_Lean_Parser_Command_declValSimple___closed__2; lean_object* l_Lean_Parser_Command_attributes___closed__4; @@ -914,6 +913,7 @@ lean_object* l_Lean_Parser_Command_attrArg___closed__1; lean_object* l_Lean_Parser_Command_partial___closed__2; lean_object* l_Lean_Parser_Command_attribute___elambda__1___closed__2; lean_object* l_Lean_Parser_Command_openHiding___closed__1; +extern lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__1; lean_object* l_Lean_Parser_Command_def___elambda__1___closed__7; lean_object* l_Lean_Parser_Command_inductive___elambda__1___closed__2; lean_object* l_Lean_Parser_Command_export___elambda__1___closed__2; @@ -944,6 +944,7 @@ lean_object* l_Lean_Parser_Command_attribute___elambda__1___closed__1; lean_object* l_Lean_Parser_Command_axiom___closed__1; lean_object* l_Lean_Parser_Command_exit___closed__3; lean_object* l_Lean_Parser_Command_unsafe___elambda__1(lean_object*, lean_object*, lean_object*); +extern lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__2; extern lean_object* l_Lean_Parser_Term_typeAscription___closed__2; lean_object* l_Lean_Parser_Command_private___elambda__1___closed__7; lean_object* l_Lean_Parser_Command_noncomputable___elambda__1___closed__6; @@ -1042,7 +1043,6 @@ lean_object* l_Lean_Parser_Command_axiom___elambda__1___closed__3; lean_object* l_Lean_Parser_Command_openHiding___closed__6; lean_object* l_Lean_Parser_Term_stxQuot___closed__1; lean_object* l_Lean_Parser_Command_partial___elambda__1___closed__2; -extern lean_object* l_Lean_Parser_Level_paren___elambda__1___closed__14; lean_object* l_Lean_Parser_Command_attribute___elambda__1___closed__14; lean_object* l_Lean_Parser_Command_attrArg___closed__3; lean_object* l_Lean_Parser_Command_export___elambda__1___closed__6; @@ -1555,13 +1555,13 @@ lean_object* x_24; lean_object* x_25; uint8_t x_26; x_24 = lean_ctor_get(x_23, 1); lean_inc(x_24); lean_dec(x_23); -x_25 = l_Lean_Parser_Level_paren___elambda__1___closed__8; +x_25 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__5; x_26 = lean_string_dec_eq(x_24, x_25); lean_dec(x_24); if (x_26 == 0) { lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; -x_27 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_27 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_28 = l_Lean_Parser_ParserState_mkErrorsAt(x_20, x_27, x_19); x_29 = l_Lean_Parser_Term_stxQuot___elambda__1___closed__2; x_30 = l_Lean_Parser_ParserState_mkNode(x_28, x_29, x_16); @@ -1584,7 +1584,7 @@ else { lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_dec(x_23); -x_35 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_35 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_36 = l_Lean_Parser_ParserState_mkErrorsAt(x_20, x_35, x_19); x_37 = l_Lean_Parser_Term_stxQuot___elambda__1___closed__2; x_38 = l_Lean_Parser_ParserState_mkNode(x_36, x_37, x_16); @@ -1597,7 +1597,7 @@ else { lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_dec(x_21); -x_40 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_40 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_41 = l_Lean_Parser_ParserState_mkErrorsAt(x_20, x_40, x_19); x_42 = l_Lean_Parser_Term_stxQuot___elambda__1___closed__2; x_43 = l_Lean_Parser_ParserState_mkNode(x_41, x_42, x_16); @@ -1810,7 +1810,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Lean_Parser_Term_stxQuot___closed__3; -x_2 = l_Lean_Parser_Level_paren___closed__4; +x_2 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__6; x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); return x_3; } @@ -10867,13 +10867,13 @@ lean_object* x_67; lean_object* x_68; uint8_t x_69; x_67 = lean_ctor_get(x_66, 1); lean_inc(x_67); lean_dec(x_66); -x_68 = l_Lean_Parser_Level_paren___elambda__1___closed__7; +x_68 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__1; x_69 = lean_string_dec_eq(x_67, x_68); lean_dec(x_67); if (x_69 == 0) { lean_object* x_70; lean_object* x_71; -x_70 = l_Lean_Parser_Level_paren___elambda__1___closed__14; +x_70 = l_Lean_Parser_Level_paren___elambda__1___closed__11; lean_inc(x_7); x_71 = l_Lean_Parser_ParserState_mkErrorsAt(x_63, x_70, x_7); x_31 = x_71; @@ -10889,7 +10889,7 @@ else { lean_object* x_72; lean_object* x_73; lean_dec(x_66); -x_72 = l_Lean_Parser_Level_paren___elambda__1___closed__14; +x_72 = l_Lean_Parser_Level_paren___elambda__1___closed__11; lean_inc(x_7); x_73 = l_Lean_Parser_ParserState_mkErrorsAt(x_63, x_72, x_7); x_31 = x_73; @@ -10900,7 +10900,7 @@ else { lean_object* x_74; lean_object* x_75; lean_dec(x_64); -x_74 = l_Lean_Parser_Level_paren___elambda__1___closed__14; +x_74 = l_Lean_Parser_Level_paren___elambda__1___closed__11; lean_inc(x_7); x_75 = l_Lean_Parser_ParserState_mkErrorsAt(x_63, x_74, x_7); x_31 = x_75; @@ -10968,13 +10968,13 @@ lean_object* x_38; lean_object* x_39; uint8_t x_40; x_38 = lean_ctor_get(x_37, 1); lean_inc(x_38); lean_dec(x_37); -x_39 = l_Lean_Parser_Level_paren___elambda__1___closed__8; +x_39 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__5; x_40 = lean_string_dec_eq(x_38, x_39); lean_dec(x_38); if (x_40 == 0) { lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; -x_41 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_41 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_42 = l_Lean_Parser_ParserState_mkErrorsAt(x_34, x_41, x_33); x_43 = lean_ctor_get(x_42, 0); lean_inc(x_43); @@ -11009,7 +11009,7 @@ else { lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_dec(x_37); -x_49 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_49 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_50 = l_Lean_Parser_ParserState_mkErrorsAt(x_34, x_49, x_33); x_51 = lean_ctor_get(x_50, 0); lean_inc(x_51); @@ -11028,7 +11028,7 @@ else { lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_dec(x_35); -x_54 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_54 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_55 = l_Lean_Parser_ParserState_mkErrorsAt(x_34, x_54, x_33); x_56 = lean_ctor_get(x_55, 0); lean_inc(x_56); @@ -11069,8 +11069,8 @@ lean_object* _init_l_Lean_Parser_Command_strictInferMod___closed__1() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_explicitBinder___closed__1; -x_2 = l_Lean_Parser_Level_paren___closed__4; +x_1 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__2; +x_2 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__6; x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); return x_3; } @@ -12735,13 +12735,13 @@ lean_object* x_107; lean_object* x_108; uint8_t x_109; x_107 = lean_ctor_get(x_106, 1); lean_inc(x_107); lean_dec(x_106); -x_108 = l_Lean_Parser_Level_paren___elambda__1___closed__7; +x_108 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__1; x_109 = lean_string_dec_eq(x_107, x_108); lean_dec(x_107); if (x_109 == 0) { lean_object* x_110; lean_object* x_111; -x_110 = l_Lean_Parser_Level_paren___elambda__1___closed__14; +x_110 = l_Lean_Parser_Level_paren___elambda__1___closed__11; lean_inc(x_10); x_111 = l_Lean_Parser_ParserState_mkErrorsAt(x_103, x_110, x_10); x_76 = x_111; @@ -12757,7 +12757,7 @@ else { lean_object* x_112; lean_object* x_113; lean_dec(x_106); -x_112 = l_Lean_Parser_Level_paren___elambda__1___closed__14; +x_112 = l_Lean_Parser_Level_paren___elambda__1___closed__11; lean_inc(x_10); x_113 = l_Lean_Parser_ParserState_mkErrorsAt(x_103, x_112, x_10); x_76 = x_113; @@ -12768,7 +12768,7 @@ else { lean_object* x_114; lean_object* x_115; lean_dec(x_104); -x_114 = l_Lean_Parser_Level_paren___elambda__1___closed__14; +x_114 = l_Lean_Parser_Level_paren___elambda__1___closed__11; lean_inc(x_10); x_115 = l_Lean_Parser_ParserState_mkErrorsAt(x_103, x_114, x_10); x_76 = x_115; @@ -12800,13 +12800,13 @@ lean_object* x_26; lean_object* x_27; uint8_t x_28; x_26 = lean_ctor_get(x_25, 1); lean_inc(x_26); lean_dec(x_25); -x_27 = l_Lean_Parser_Level_paren___elambda__1___closed__8; +x_27 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__5; x_28 = lean_string_dec_eq(x_26, x_27); lean_dec(x_26); if (x_28 == 0) { lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; -x_29 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_29 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_30 = l_Lean_Parser_ParserState_mkErrorsAt(x_22, x_29, x_21); x_31 = l_Lean_Parser_Command_structExplicitBinder___elambda__1___closed__2; x_32 = l_Lean_Parser_ParserState_mkNode(x_30, x_31, x_18); @@ -12829,7 +12829,7 @@ else { lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_dec(x_25); -x_37 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_37 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_38 = l_Lean_Parser_ParserState_mkErrorsAt(x_22, x_37, x_21); x_39 = l_Lean_Parser_Command_structExplicitBinder___elambda__1___closed__2; x_40 = l_Lean_Parser_ParserState_mkNode(x_38, x_39, x_18); @@ -12842,7 +12842,7 @@ else { lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_dec(x_23); -x_42 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_42 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_43 = l_Lean_Parser_ParserState_mkErrorsAt(x_22, x_42, x_21); x_44 = l_Lean_Parser_Command_structExplicitBinder___elambda__1___closed__2; x_45 = l_Lean_Parser_ParserState_mkNode(x_43, x_44, x_18); @@ -13078,7 +13078,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Lean_Parser_Command_structExplicitBinder___closed__2; -x_2 = l_Lean_Parser_Level_paren___closed__4; +x_2 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__6; x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); return x_3; } @@ -13119,7 +13119,7 @@ lean_object* _init_l_Lean_Parser_Command_structExplicitBinder___closed__7() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_explicitBinder___closed__1; +x_1 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__2; x_2 = l_Lean_Parser_Command_structExplicitBinder___closed__6; x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); return x_3; @@ -22701,13 +22701,13 @@ lean_object* x_26; lean_object* x_27; uint8_t x_28; x_26 = lean_ctor_get(x_25, 1); lean_inc(x_26); lean_dec(x_25); -x_27 = l_Lean_Parser_Level_paren___elambda__1___closed__8; +x_27 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__5; x_28 = lean_string_dec_eq(x_26, x_27); lean_dec(x_26); if (x_28 == 0) { lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; -x_29 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_29 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_30 = l_Lean_Parser_ParserState_mkErrorsAt(x_22, x_29, x_21); x_31 = l_Lean_Parser_Command_export___elambda__1___closed__2; x_32 = l_Lean_Parser_ParserState_mkNode(x_30, x_31, x_18); @@ -22730,7 +22730,7 @@ else { lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_dec(x_25); -x_37 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_37 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_38 = l_Lean_Parser_ParserState_mkErrorsAt(x_22, x_37, x_21); x_39 = l_Lean_Parser_Command_export___elambda__1___closed__2; x_40 = l_Lean_Parser_ParserState_mkNode(x_38, x_39, x_18); @@ -22743,7 +22743,7 @@ else { lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_dec(x_23); -x_42 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_42 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_43 = l_Lean_Parser_ParserState_mkErrorsAt(x_22, x_42, x_21); x_44 = l_Lean_Parser_Command_export___elambda__1___closed__2; x_45 = l_Lean_Parser_ParserState_mkNode(x_43, x_44, x_18); @@ -22855,13 +22855,13 @@ lean_object* x_76; lean_object* x_77; uint8_t x_78; x_76 = lean_ctor_get(x_75, 1); lean_inc(x_76); lean_dec(x_75); -x_77 = l_Lean_Parser_Level_paren___elambda__1___closed__7; +x_77 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__1; x_78 = lean_string_dec_eq(x_76, x_77); lean_dec(x_76); if (x_78 == 0) { lean_object* x_79; lean_object* x_80; -x_79 = l_Lean_Parser_Level_paren___elambda__1___closed__14; +x_79 = l_Lean_Parser_Level_paren___elambda__1___closed__11; x_80 = l_Lean_Parser_ParserState_mkErrorsAt(x_72, x_79, x_71); x_51 = x_80; goto block_66; @@ -22877,7 +22877,7 @@ else { lean_object* x_81; lean_object* x_82; lean_dec(x_75); -x_81 = l_Lean_Parser_Level_paren___elambda__1___closed__14; +x_81 = l_Lean_Parser_Level_paren___elambda__1___closed__11; x_82 = l_Lean_Parser_ParserState_mkErrorsAt(x_72, x_81, x_71); x_51 = x_82; goto block_66; @@ -22887,7 +22887,7 @@ else { lean_object* x_83; lean_object* x_84; lean_dec(x_73); -x_83 = l_Lean_Parser_Level_paren___elambda__1___closed__14; +x_83 = l_Lean_Parser_Level_paren___elambda__1___closed__11; x_84 = l_Lean_Parser_ParserState_mkErrorsAt(x_72, x_83, x_71); x_51 = x_84; goto block_66; @@ -22942,7 +22942,7 @@ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; x_1 = l_Lean_Parser_Level_ident___elambda__1___closed__4; x_2 = lean_ctor_get(x_1, 0); lean_inc(x_2); -x_3 = l_Lean_Parser_Level_paren___closed__4; +x_3 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__6; x_4 = l_Lean_Parser_andthenInfo(x_2, x_3); return x_4; } @@ -22951,7 +22951,7 @@ lean_object* _init_l_Lean_Parser_Command_export___closed__3() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_explicitBinder___closed__1; +x_1 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__2; x_2 = l_Lean_Parser_Command_export___closed__2; x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); return x_3; @@ -24649,13 +24649,13 @@ lean_object* x_83; lean_object* x_84; uint8_t x_85; x_83 = lean_ctor_get(x_82, 1); lean_inc(x_83); lean_dec(x_82); -x_84 = l_Lean_Parser_Level_paren___elambda__1___closed__7; +x_84 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__1; x_85 = lean_string_dec_eq(x_83, x_84); lean_dec(x_83); if (x_85 == 0) { lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; -x_86 = l_Lean_Parser_Level_paren___elambda__1___closed__14; +x_86 = l_Lean_Parser_Level_paren___elambda__1___closed__11; x_87 = l_Lean_Parser_ParserState_mkErrorsAt(x_79, x_86, x_78); x_88 = lean_ctor_get(x_87, 0); lean_inc(x_88); @@ -24690,7 +24690,7 @@ else { lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_dec(x_82); -x_94 = l_Lean_Parser_Level_paren___elambda__1___closed__14; +x_94 = l_Lean_Parser_Level_paren___elambda__1___closed__11; x_95 = l_Lean_Parser_ParserState_mkErrorsAt(x_79, x_94, x_78); x_96 = lean_ctor_get(x_95, 0); lean_inc(x_96); @@ -24709,7 +24709,7 @@ else { lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_dec(x_80); -x_99 = l_Lean_Parser_Level_paren___elambda__1___closed__14; +x_99 = l_Lean_Parser_Level_paren___elambda__1___closed__11; x_100 = l_Lean_Parser_ParserState_mkErrorsAt(x_79, x_99, x_78); x_101 = lean_ctor_get(x_100, 0); lean_inc(x_101); @@ -24766,13 +24766,13 @@ lean_object* x_27; lean_object* x_28; uint8_t x_29; x_27 = lean_ctor_get(x_26, 1); lean_inc(x_27); lean_dec(x_26); -x_28 = l_Lean_Parser_Level_paren___elambda__1___closed__8; +x_28 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__5; x_29 = lean_string_dec_eq(x_27, x_28); lean_dec(x_27); if (x_29 == 0) { lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; -x_30 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_30 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_31 = l_Lean_Parser_ParserState_mkErrorsAt(x_23, x_30, x_22); x_32 = l_Lean_Parser_Command_openOnly___elambda__1___closed__2; x_33 = l_Lean_Parser_ParserState_mkNode(x_31, x_32, x_19); @@ -24795,7 +24795,7 @@ else { lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_dec(x_26); -x_38 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_38 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_39 = l_Lean_Parser_ParserState_mkErrorsAt(x_23, x_38, x_22); x_40 = l_Lean_Parser_Command_openOnly___elambda__1___closed__2; x_41 = l_Lean_Parser_ParserState_mkNode(x_39, x_40, x_19); @@ -24808,7 +24808,7 @@ else { lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_dec(x_24); -x_43 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_43 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_44 = l_Lean_Parser_ParserState_mkErrorsAt(x_23, x_43, x_22); x_45 = l_Lean_Parser_Command_openOnly___elambda__1___closed__2; x_46 = l_Lean_Parser_ParserState_mkNode(x_44, x_45, x_19); @@ -24925,7 +24925,7 @@ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; x_1 = l_Lean_Parser_Level_ident___elambda__1___closed__4; x_2 = lean_ctor_get(x_1, 0); lean_inc(x_2); -x_3 = l_Lean_Parser_Term_explicitBinder___closed__1; +x_3 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__2; x_4 = l_Lean_Parser_andthenInfo(x_2, x_3); return x_4; } diff --git a/stage0/stdlib/Init/Lean/Parser/Level.c b/stage0/stdlib/Init/Lean/Parser/Level.c index a7e2e88e38..bc8eb8175e 100644 --- a/stage0/stdlib/Init/Lean/Parser/Level.c +++ b/stage0/stdlib/Init/Lean/Parser/Level.c @@ -18,6 +18,7 @@ extern lean_object* l_Lean_Parser_manyAux___main___closed__1; lean_object* l_Lean_Parser_Level_hole___elambda__1___closed__4; lean_object* l_Lean_Parser_andthenInfo(lean_object*, lean_object*); lean_object* l_Lean_Parser_regBuiltinLevelParserAttr___closed__1; +extern lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__6; lean_object* l_Lean_Parser_Level_ident___elambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Level_addLit___closed__2; extern lean_object* l_Lean_nullKind; @@ -31,7 +32,6 @@ lean_object* l_Lean_Parser_Level_num___elambda__1___closed__4; lean_object* l_Lean_Parser_Level_hole___closed__5; lean_object* l_Lean_Parser_Level_hole___closed__3; lean_object* l_Lean_Parser_manyAux___main___at_Lean_Parser_Level_max___elambda__1___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); -extern lean_object* l_Prod_HasRepr___rarg___closed__1; lean_object* l_Lean_Parser_regBuiltinLevelParserAttr___closed__2; lean_object* l_Lean_Parser_Level_ident; lean_object* l___regBuiltinParser_Lean_Parser_Level_num(lean_object*); @@ -54,8 +54,8 @@ lean_object* l_Lean_Parser_Level_ident___elambda__1___closed__3; lean_object* lean_string_append(lean_object*, lean_object*); lean_object* l_Lean_Parser_tokenFn(lean_object*, lean_object*); lean_object* l_Lean_Parser_Level_paren___closed__5; +extern lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__5; lean_object* l_Lean_Parser_Level_paren___closed__3; -lean_object* l_Lean_Parser_Level_paren___elambda__1___closed__12; lean_object* l_Lean_Parser_Level_paren___elambda__1___closed__2; lean_object* l_Lean_Parser_Level_num___closed__1; extern lean_object* l_Lean_mkAppStx___closed__4; @@ -81,7 +81,6 @@ lean_object* l_Lean_Parser_Level_paren___elambda__1___closed__7; lean_object* l_Lean_Parser_nonReservedSymbolInfo(lean_object*, uint8_t); lean_object* l_Lean_Parser_Level_paren; lean_object* l_Lean_Parser_Level_addLit___elambda__1___closed__2; -lean_object* l_Lean_Parser_Level_paren___closed__10; lean_object* l_Lean_Parser_Level_num___elambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_levelParser___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_Level_addLit___elambda__1___closed__4; @@ -117,10 +116,10 @@ lean_object* l_Lean_Parser_Level_hole___elambda__1___closed__2; lean_object* l_Lean_Parser_Level_hole___elambda__1___closed__1; lean_object* l_Lean_Parser_Level_ident___closed__2; extern lean_object* l_Lean_Parser_appPrec; -extern lean_object* l_Option_HasRepr___rarg___closed__3; lean_object* l_Lean_Parser_Level_hole___elambda__1___closed__3; lean_object* l_Lean_Parser_Level_max___closed__4; lean_object* l_Lean_Parser_Level_hole___elambda__1___closed__5; +extern lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__1; lean_object* l_Lean_Parser_Level_ident___elambda__1___closed__2; lean_object* l_Lean_Parser_Level_paren___elambda__1___closed__3; lean_object* l_Lean_Parser_mergeOrElseErrors(lean_object*, lean_object*, lean_object*); @@ -139,6 +138,7 @@ lean_object* l_Lean_Parser_Level_hole___elambda__1___closed__7; lean_object* l___regBuiltinParser_Lean_Parser_Level_addLit(lean_object*); lean_object* l_Lean_Parser_Level_paren___elambda__1___closed__9; lean_object* l___regBuiltinParser_Lean_Parser_Level_hole(lean_object*); +extern lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__1; lean_object* l_Lean_Parser_Level_hole___closed__1; extern lean_object* l_Lean_Level_LevelToFormat_Result_format___main___closed__3; lean_object* l_String_trim(lean_object*); @@ -152,11 +152,9 @@ lean_object* l___regBuiltinParser_Lean_Parser_Level_ident(lean_object*); lean_object* l_Lean_Parser_Level_addLit; extern lean_object* l_Lean_Syntax_getKind___closed__3; lean_object* l_Lean_Parser_mkAntiquot(uint8_t, lean_object*, lean_object*, uint8_t); -lean_object* l_Lean_Parser_Level_paren___elambda__1___closed__13; lean_object* l_Lean_Parser_Level_max___elambda__1___closed__5; lean_object* l_Lean_Parser_Level_max___elambda__1___closed__7; lean_object* l_Lean_Parser_Level_imax___elambda__1___closed__5; -lean_object* l_Lean_Parser_Level_paren___elambda__1___closed__14; lean_object* l_Lean_Parser_Level_max___elambda__1___closed__3; lean_object* l_Lean_Parser_Level_imax___closed__1; lean_object* l_Lean_Parser_Level_imax___closed__6; @@ -264,59 +262,65 @@ return x_3; lean_object* _init_l_Lean_Parser_Level_paren___elambda__1___closed__3() { _start: { -lean_object* x_1; -x_1 = lean_mk_string("paren"); -return x_1; +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Level_paren___elambda__1___closed__2; +x_2 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; } } lean_object* _init_l_Lean_Parser_Level_paren___elambda__1___closed__4() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Level_paren___elambda__1___closed__2; -x_2 = l_Lean_Parser_Level_paren___elambda__1___closed__3; -x_3 = lean_name_mk_string(x_1, x_2); -return x_3; -} -} -lean_object* _init_l_Lean_Parser_Level_paren___elambda__1___closed__5() { -_start: -{ lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_Level_paren___elambda__1___closed__4; +x_1 = l_Lean_Parser_Level_paren___elambda__1___closed__3; x_2 = lean_alloc_ctor(1, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; } } -lean_object* _init_l_Lean_Parser_Level_paren___elambda__1___closed__6() { +lean_object* _init_l_Lean_Parser_Level_paren___elambda__1___closed__5() { _start: { uint8_t x_1; lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; x_1 = 0; -x_2 = l_Lean_Parser_Level_paren___elambda__1___closed__3; -x_3 = l_Lean_Parser_Level_paren___elambda__1___closed__5; +x_2 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__1; +x_3 = l_Lean_Parser_Level_paren___elambda__1___closed__4; x_4 = 1; x_5 = l_Lean_Parser_mkAntiquot(x_1, x_2, x_3, x_4); return x_5; } } +lean_object* _init_l_Lean_Parser_Level_paren___elambda__1___closed__6() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Char_HasRepr___closed__1; +x_2 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__5; +x_3 = lean_string_append(x_1, x_2); +return x_3; +} +} lean_object* _init_l_Lean_Parser_Level_paren___elambda__1___closed__7() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = l_Prod_HasRepr___rarg___closed__1; -x_2 = l_String_trim(x_1); -return x_2; +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Level_paren___elambda__1___closed__6; +x_2 = l_Char_HasRepr___closed__1; +x_3 = lean_string_append(x_1, x_2); +return x_3; } } lean_object* _init_l_Lean_Parser_Level_paren___elambda__1___closed__8() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = l_Option_HasRepr___rarg___closed__3; -x_2 = l_String_trim(x_1); -return x_2; +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Parser_Level_paren___elambda__1___closed__7; +x_3 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_3, 0, x_2); +lean_ctor_set(x_3, 1, x_1); +return x_3; } } lean_object* _init_l_Lean_Parser_Level_paren___elambda__1___closed__9() { @@ -324,7 +328,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Char_HasRepr___closed__1; -x_2 = l_Lean_Parser_Level_paren___elambda__1___closed__8; +x_2 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__1; x_3 = lean_string_append(x_1, x_2); return x_3; } @@ -351,43 +355,11 @@ lean_ctor_set(x_3, 1, x_1); return x_3; } } -lean_object* _init_l_Lean_Parser_Level_paren___elambda__1___closed__12() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Char_HasRepr___closed__1; -x_2 = l_Lean_Parser_Level_paren___elambda__1___closed__7; -x_3 = lean_string_append(x_1, x_2); -return x_3; -} -} -lean_object* _init_l_Lean_Parser_Level_paren___elambda__1___closed__13() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Level_paren___elambda__1___closed__12; -x_2 = l_Char_HasRepr___closed__1; -x_3 = lean_string_append(x_1, x_2); -return x_3; -} -} -lean_object* _init_l_Lean_Parser_Level_paren___elambda__1___closed__14() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = lean_box(0); -x_2 = l_Lean_Parser_Level_paren___elambda__1___closed__13; -x_3 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_3, 0, x_2); -lean_ctor_set(x_3, 1, x_1); -return x_3; -} -} lean_object* l_Lean_Parser_Level_paren___elambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; -x_4 = l_Lean_Parser_Level_paren___elambda__1___closed__6; +x_4 = l_Lean_Parser_Level_paren___elambda__1___closed__5; x_5 = lean_ctor_get(x_4, 1); lean_inc(x_5); x_6 = lean_ctor_get(x_3, 0); @@ -452,13 +424,13 @@ lean_object* x_60; lean_object* x_61; uint8_t x_62; x_60 = lean_ctor_get(x_59, 1); lean_inc(x_60); lean_dec(x_59); -x_61 = l_Lean_Parser_Level_paren___elambda__1___closed__7; +x_61 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__1; x_62 = lean_string_dec_eq(x_60, x_61); lean_dec(x_60); if (x_62 == 0) { lean_object* x_63; lean_object* x_64; -x_63 = l_Lean_Parser_Level_paren___elambda__1___closed__14; +x_63 = l_Lean_Parser_Level_paren___elambda__1___closed__11; lean_inc(x_8); x_64 = l_Lean_Parser_ParserState_mkErrorsAt(x_56, x_63, x_8); x_17 = x_64; @@ -474,7 +446,7 @@ else { lean_object* x_65; lean_object* x_66; lean_dec(x_59); -x_65 = l_Lean_Parser_Level_paren___elambda__1___closed__14; +x_65 = l_Lean_Parser_Level_paren___elambda__1___closed__11; lean_inc(x_8); x_66 = l_Lean_Parser_ParserState_mkErrorsAt(x_56, x_65, x_8); x_17 = x_66; @@ -485,7 +457,7 @@ else { lean_object* x_67; lean_object* x_68; lean_dec(x_57); -x_67 = l_Lean_Parser_Level_paren___elambda__1___closed__14; +x_67 = l_Lean_Parser_Level_paren___elambda__1___closed__11; lean_inc(x_8); x_68 = l_Lean_Parser_ParserState_mkErrorsAt(x_56, x_67, x_8); x_17 = x_68; @@ -526,15 +498,15 @@ lean_object* x_28; lean_object* x_29; uint8_t x_30; x_28 = lean_ctor_get(x_27, 1); lean_inc(x_28); lean_dec(x_27); -x_29 = l_Lean_Parser_Level_paren___elambda__1___closed__8; +x_29 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__5; x_30 = lean_string_dec_eq(x_28, x_29); lean_dec(x_28); if (x_30 == 0) { lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; -x_31 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_31 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_32 = l_Lean_Parser_ParserState_mkErrorsAt(x_24, x_31, x_23); -x_33 = l_Lean_Parser_Level_paren___elambda__1___closed__4; +x_33 = l_Lean_Parser_Level_paren___elambda__1___closed__3; x_34 = l_Lean_Parser_ParserState_mkNode(x_32, x_33, x_16); x_35 = l_Lean_Parser_mergeOrElseErrors(x_34, x_11, x_8); lean_dec(x_8); @@ -544,7 +516,7 @@ else { lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_dec(x_23); -x_36 = l_Lean_Parser_Level_paren___elambda__1___closed__4; +x_36 = l_Lean_Parser_Level_paren___elambda__1___closed__3; x_37 = l_Lean_Parser_ParserState_mkNode(x_24, x_36, x_16); x_38 = l_Lean_Parser_mergeOrElseErrors(x_37, x_11, x_8); lean_dec(x_8); @@ -555,9 +527,9 @@ else { lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_dec(x_27); -x_39 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_39 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_40 = l_Lean_Parser_ParserState_mkErrorsAt(x_24, x_39, x_23); -x_41 = l_Lean_Parser_Level_paren___elambda__1___closed__4; +x_41 = l_Lean_Parser_Level_paren___elambda__1___closed__3; x_42 = l_Lean_Parser_ParserState_mkNode(x_40, x_41, x_16); x_43 = l_Lean_Parser_mergeOrElseErrors(x_42, x_11, x_8); lean_dec(x_8); @@ -568,9 +540,9 @@ else { lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_dec(x_25); -x_44 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_44 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_45 = l_Lean_Parser_ParserState_mkErrorsAt(x_24, x_44, x_23); -x_46 = l_Lean_Parser_Level_paren___elambda__1___closed__4; +x_46 = l_Lean_Parser_Level_paren___elambda__1___closed__3; x_47 = l_Lean_Parser_ParserState_mkNode(x_45, x_46, x_16); x_48 = l_Lean_Parser_mergeOrElseErrors(x_47, x_11, x_8); lean_dec(x_8); @@ -582,7 +554,7 @@ else lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_dec(x_22); lean_dec(x_2); -x_49 = l_Lean_Parser_Level_paren___elambda__1___closed__4; +x_49 = l_Lean_Parser_Level_paren___elambda__1___closed__3; x_50 = l_Lean_Parser_ParserState_mkNode(x_21, x_49, x_16); x_51 = l_Lean_Parser_mergeOrElseErrors(x_50, x_11, x_8); lean_dec(x_8); @@ -594,7 +566,7 @@ else lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_dec(x_18); lean_dec(x_2); -x_52 = l_Lean_Parser_Level_paren___elambda__1___closed__4; +x_52 = l_Lean_Parser_Level_paren___elambda__1___closed__3; x_53 = l_Lean_Parser_ParserState_mkNode(x_17, x_52, x_16); x_54 = l_Lean_Parser_mergeOrElseErrors(x_53, x_11, x_8); lean_dec(x_8); @@ -619,7 +591,7 @@ lean_object* _init_l_Lean_Parser_Level_paren___closed__2() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Level_paren___elambda__1___closed__7; +x_1 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__1; x_2 = l_Lean_Parser_Level_paren___closed__1; x_3 = l_Lean_Parser_symbolInfo(x_1, x_2); return x_3; @@ -639,58 +611,48 @@ return x_4; lean_object* _init_l_Lean_Parser_Level_paren___closed__4() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = lean_box(0); -x_2 = l_Lean_Parser_Level_paren___elambda__1___closed__8; -x_3 = l_Lean_Parser_symbolInfo(x_2, x_1); -return x_3; +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = l_Lean_Parser_Level_paren___closed__3; +x_2 = lean_ctor_get(x_1, 0); +lean_inc(x_2); +x_3 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__6; +x_4 = l_Lean_Parser_andthenInfo(x_2, x_3); +return x_4; } } lean_object* _init_l_Lean_Parser_Level_paren___closed__5() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; -x_1 = l_Lean_Parser_Level_paren___closed__3; -x_2 = lean_ctor_get(x_1, 0); -lean_inc(x_2); -x_3 = l_Lean_Parser_Level_paren___closed__4; -x_4 = l_Lean_Parser_andthenInfo(x_2, x_3); -return x_4; +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Level_paren___closed__2; +x_2 = l_Lean_Parser_Level_paren___closed__4; +x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); +return x_3; } } lean_object* _init_l_Lean_Parser_Level_paren___closed__6() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Level_paren___closed__2; +x_1 = l_Lean_Parser_Level_paren___elambda__1___closed__3; x_2 = l_Lean_Parser_Level_paren___closed__5; -x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); +x_3 = l_Lean_Parser_nodeInfo(x_1, x_2); return x_3; } } lean_object* _init_l_Lean_Parser_Level_paren___closed__7() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Level_paren___elambda__1___closed__4; -x_2 = l_Lean_Parser_Level_paren___closed__6; -x_3 = l_Lean_Parser_nodeInfo(x_1, x_2); -return x_3; -} -} -lean_object* _init_l_Lean_Parser_Level_paren___closed__8() { -_start: -{ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; -x_1 = l_Lean_Parser_Level_paren___elambda__1___closed__6; +x_1 = l_Lean_Parser_Level_paren___elambda__1___closed__5; x_2 = lean_ctor_get(x_1, 0); lean_inc(x_2); -x_3 = l_Lean_Parser_Level_paren___closed__7; +x_3 = l_Lean_Parser_Level_paren___closed__6; x_4 = l_Lean_Parser_orelseInfo(x_2, x_3); return x_4; } } -lean_object* _init_l_Lean_Parser_Level_paren___closed__9() { +lean_object* _init_l_Lean_Parser_Level_paren___closed__8() { _start: { lean_object* x_1; @@ -698,12 +660,12 @@ x_1 = lean_alloc_closure((void*)(l_Lean_Parser_Level_paren___elambda__1), 3, 0); return x_1; } } -lean_object* _init_l_Lean_Parser_Level_paren___closed__10() { +lean_object* _init_l_Lean_Parser_Level_paren___closed__9() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Level_paren___closed__8; -x_2 = l_Lean_Parser_Level_paren___closed__9; +x_1 = l_Lean_Parser_Level_paren___closed__7; +x_2 = l_Lean_Parser_Level_paren___closed__8; x_3 = lean_alloc_ctor(0, 2, 0); lean_ctor_set(x_3, 0, x_1); lean_ctor_set(x_3, 1, x_2); @@ -714,7 +676,7 @@ lean_object* _init_l_Lean_Parser_Level_paren() { _start: { lean_object* x_1; -x_1 = l_Lean_Parser_Level_paren___closed__10; +x_1 = l_Lean_Parser_Level_paren___closed__9; return x_1; } } @@ -724,7 +686,7 @@ _start: uint8_t x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; x_2 = 0; x_3 = l_Lean_Parser_regBuiltinLevelParserAttr___closed__4; -x_4 = l_Lean_Parser_Level_paren___elambda__1___closed__4; +x_4 = l_Lean_Parser_Level_paren___elambda__1___closed__3; x_5 = l_Lean_Parser_Level_paren; x_6 = l_Lean_Parser_addBuiltinParser(x_2, x_3, x_4, x_5, x_1); return x_6; @@ -2313,12 +2275,6 @@ l_Lean_Parser_Level_paren___elambda__1___closed__10 = _init_l_Lean_Parser_Level_ lean_mark_persistent(l_Lean_Parser_Level_paren___elambda__1___closed__10); l_Lean_Parser_Level_paren___elambda__1___closed__11 = _init_l_Lean_Parser_Level_paren___elambda__1___closed__11(); lean_mark_persistent(l_Lean_Parser_Level_paren___elambda__1___closed__11); -l_Lean_Parser_Level_paren___elambda__1___closed__12 = _init_l_Lean_Parser_Level_paren___elambda__1___closed__12(); -lean_mark_persistent(l_Lean_Parser_Level_paren___elambda__1___closed__12); -l_Lean_Parser_Level_paren___elambda__1___closed__13 = _init_l_Lean_Parser_Level_paren___elambda__1___closed__13(); -lean_mark_persistent(l_Lean_Parser_Level_paren___elambda__1___closed__13); -l_Lean_Parser_Level_paren___elambda__1___closed__14 = _init_l_Lean_Parser_Level_paren___elambda__1___closed__14(); -lean_mark_persistent(l_Lean_Parser_Level_paren___elambda__1___closed__14); l_Lean_Parser_Level_paren___closed__1 = _init_l_Lean_Parser_Level_paren___closed__1(); lean_mark_persistent(l_Lean_Parser_Level_paren___closed__1); l_Lean_Parser_Level_paren___closed__2 = _init_l_Lean_Parser_Level_paren___closed__2(); @@ -2337,8 +2293,6 @@ l_Lean_Parser_Level_paren___closed__8 = _init_l_Lean_Parser_Level_paren___closed lean_mark_persistent(l_Lean_Parser_Level_paren___closed__8); l_Lean_Parser_Level_paren___closed__9 = _init_l_Lean_Parser_Level_paren___closed__9(); lean_mark_persistent(l_Lean_Parser_Level_paren___closed__9); -l_Lean_Parser_Level_paren___closed__10 = _init_l_Lean_Parser_Level_paren___closed__10(); -lean_mark_persistent(l_Lean_Parser_Level_paren___closed__10); l_Lean_Parser_Level_paren = _init_l_Lean_Parser_Level_paren(); lean_mark_persistent(l_Lean_Parser_Level_paren); res = l___regBuiltinParser_Lean_Parser_Level_paren(lean_io_mk_world()); diff --git a/stage0/stdlib/Init/Lean/Parser/Parser.c b/stage0/stdlib/Init/Lean/Parser/Parser.c index 18352e6a64..8549b30c6f 100644 --- a/stage0/stdlib/Init/Lean/Parser/Parser.c +++ b/stage0/stdlib/Init/Lean/Parser/Parser.c @@ -14,6 +14,7 @@ extern "C" { #endif lean_object* l_Lean_Parser_declareBuiltinParser___closed__9; +lean_object* l___private_Init_Lean_Parser_Parser_23__antiquotId___elambda__1(uint8_t); lean_object* l_Lean_Parser_nonReservedSymbol___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_List_reverse___rarg(lean_object*); lean_object* l_Lean_Parser_optionalFn___rarg(lean_object*, lean_object*, lean_object*, lean_object*); @@ -46,6 +47,7 @@ uint8_t l_Lean_Parser_checkTailWs(lean_object*); lean_object* l_Array_iterateMAux___main___at_Lean_Syntax_foldArgsM___spec__1___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_mkParserExtension___closed__1; lean_object* l_Lean_Parser_satisfyFn___at_Lean_Parser_hexNumberFn___spec__1(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr(uint8_t); lean_object* l_Lean_Parser_try(uint8_t, lean_object*); lean_object* l_Lean_Parser_unicodeSymbolInfo___elambda__1___boxed(lean_object*); lean_object* l_Lean_Parser_prattParser(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*); @@ -58,6 +60,7 @@ lean_object* l_Lean_Parser_ParserState_mkError(lean_object*, lean_object*); lean_object* l_Lean_Parser_takeUntilFn___main___at_Lean_Parser_octalNumberFn___spec__3(lean_object*, lean_object*); lean_object* l_RBNode_find___main___at_Lean_Parser_indexed___spec__3___rarg___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_mkParserContext(lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__6; lean_object* l_Lean_Parser_hashAndthen___boxed(lean_object*); lean_object* l_Lean_Parser_declareBuiltinParser___closed__8; lean_object* l_Lean_Parser_optional___boxed(lean_object*, lean_object*); @@ -112,6 +115,7 @@ lean_object* l_Lean_Parser_unicodeSymbolInfo___elambda__2(lean_object*, lean_obj lean_object* l_Lean_Syntax_foldSepArgs___rarg___boxed(lean_object*, lean_object*, lean_object*); uint8_t l_Lean_Name_quickLt(lean_object*, lean_object*); uint8_t lean_name_eq(lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Parser_Parser_25__antiquotExpr___boxed(lean_object*); lean_object* l_Lean_Parser_charLit(uint8_t); lean_object* l_Lean_Parser_hexNumberFn___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_trailingLoop___main(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -139,6 +143,7 @@ lean_object* l___private_Init_Lean_Parser_Parser_6__updateCache(lean_object*, le lean_object* l_PersistentHashMap_foldlMAux___main___at___private_Init_Lean_Parser_Parser_19__ParserAttribute_add___spec__3___boxed(lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at_Lean_Parser_SyntaxNodeKindSet_insert___spec__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_ParserState_next(lean_object*, lean_object*, lean_object*); +extern lean_object* l_Prod_HasRepr___rarg___closed__1; lean_object* l_Array_extract___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_addParser(uint8_t, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_categoryParserFnRef; @@ -146,6 +151,7 @@ lean_object* l_Lean_Parser_optionalFn___boxed(lean_object*); lean_object* l_Lean_Parser_InputContext_inhabited; lean_object* l_Lean_Parser_parserExtension___elambda__3___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_Error_HasToString___closed__1; +lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___boxed(lean_object*); lean_object* l_Lean_Parser_ParserExtensionState_inhabited___closed__1; lean_object* l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__6___rarg(lean_object*, lean_object*, lean_object*); size_t l_USize_sub(size_t, size_t); @@ -225,12 +231,15 @@ lean_object* l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__7(lean lean_object* l_Lean_Parser_mkAtomicInfo(lean_object*); lean_object* l_Lean_Parser_quotedSymbolFn___rarg___closed__1; lean_object* l_Lean_Parser_satisfyFn___at_Lean_Parser_binNumberFn___spec__1___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__5; lean_object* lean_string_utf8_extract(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_parserExtension___elambda__4___rarg(lean_object*); lean_object* l_Lean_Parser_declareBuiltinParser___closed__1; uint8_t l_Char_isWhitespace(uint32_t); extern lean_object* l_String_splitAux___main___closed__1; lean_object* l_Lean_Parser_categoryParserFnImpl(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Parser_Parser_25__antiquotExpr___elambda__1(uint8_t); +lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__3; lean_object* l_Lean_Parser_withPosition(uint8_t, lean_object*); lean_object* l_PersistentHashMap_contains___at___private_Init_Lean_Parser_Parser_9__addParserCategoryCore___spec__1___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_mkAntiquot___closed__11; @@ -286,6 +295,7 @@ lean_object* l_Lean_Parser_takeUntilFn___main___at_Lean_Parser_binNumberFn___spe lean_object* l_Lean_Parser_pushLeading___closed__1; lean_object* l_Array_anyRangeMAux___main___at_Lean_Parser_mkParserExtension___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_charLitFn___rarg___closed__1; +lean_object* l___private_Init_Lean_Parser_Parser_23__antiquotId___elambda__1___boxed(lean_object*); lean_object* l_PersistentHashMap_foldlMAux___main___at_Lean_Parser_getSyntaxNodeKinds___spec__2(lean_object*, lean_object*); lean_object* l_Array_foldlStepMAux___main___at_Lean_Syntax_forSepArgsM___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_ident___closed__1; @@ -331,12 +341,14 @@ lean_object* l_Lean_Parser_rawIdentFn(lean_object*, lean_object*); lean_object* l_Lean_Parser_takeUntilFn___main___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_indexed(lean_object*); lean_object* l___private_Init_Lean_Parser_Parser_11__ParserExtension_mkInitial(lean_object*); +extern lean_object* l_Lean_mkTermIdFromIdent___closed__2; lean_object* l_Array_foldlStepMAux___main___at_Lean_Syntax_foldSepArgs___spec__1(lean_object*); lean_object* l_Lean_Parser_unicodeSymbolFn___rarg___closed__1; lean_object* lean_string_utf8_next(lean_object*, lean_object*); extern lean_object* l_Lean_mkAttributeImplOfConstant___closed__1; lean_object* l_Lean_Parser_mkAntiquot___closed__5; lean_object* l_Lean_Parser_TokenConfig_HasToString; +lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__7; lean_object* l_Lean_Parser_takeUntilFn___main___at_Lean_Parser_binNumberFn___spec__3(lean_object*, lean_object*); lean_object* l_Lean_Parser_fieldIdx___boxed(lean_object*); lean_object* l_Lean_Parser_setCategoryParserFnRef(lean_object*); @@ -345,7 +357,6 @@ extern lean_object* l_Lean_registerTagAttribute___lambda__4___closed__3; lean_object* l_Lean_Parser_unicodeSymbolCheckPrecFn___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_longestMatchFn___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_throwUnknownParserCategory(lean_object*); -lean_object* l_Lean_Parser_mkAntiquot___closed__15; lean_object* l_Lean_Parser_decimalNumberFn(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_throwUnknownParserCategory___rarg___closed__1; lean_object* l_Lean_Parser_unquotedSymbol___boxed(lean_object*); @@ -462,7 +473,10 @@ lean_object* l_Lean_Parser_checkColGe___lambda__1(lean_object*, lean_object*, le lean_object* l_Lean_Parser_node___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_sepBy(uint8_t, lean_object*, lean_object*, uint8_t); lean_object* l_Lean_Syntax_foldArgsM(lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Parser_Parser_23__antiquotId___boxed(lean_object*); lean_object* l_Array_shrink___main___rarg(lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Parser_Parser_25__antiquotExpr___elambda__1___boxed(lean_object*); +lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1(uint8_t); lean_object* l_RBNode_find___main___at_Lean_Parser_indexed___spec__2___rarg(lean_object*, lean_object*); lean_object* l_Lean_Parser_fieldIdx___closed__3; lean_object* l_Lean_Parser_trailingLoop___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -531,6 +545,7 @@ lean_object* l_Lean_Parser_nonReservedSymbol___lambda__1(lean_object*, lean_obje lean_object* l___private_Init_Lean_Parser_Parser_20__registerParserAttributeImplBuilder___lambda__1(lean_object*); lean_object* l_Lean_Parser_addToken(lean_object*, lean_object*); lean_object* l_Lean_Parser_longestMatchFnAux___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Parser_Parser_23__antiquotId(uint8_t); lean_object* l_Nat_repr(lean_object*); lean_object* l_Lean_Parser_categoryParserOfStack(uint8_t, lean_object*, lean_object*); extern lean_object* l_Char_HasRepr___closed__1; @@ -612,6 +627,7 @@ uint32_t lean_string_utf8_get(lean_object*, lean_object*); lean_object* l_Lean_Parser_declareBuiltinParser___closed__7; lean_object* l_Lean_Parser_parserExtension___elambda__2(lean_object*); lean_object* l_Lean_Parser_mkAntiquot___closed__13; +extern lean_object* l_Lean_mkAppStx___closed__6; extern lean_object* l_Lean_Options_empty; extern lean_object* l_IO_Error_Inhabited___closed__1; lean_object* l_Lean_Parser_satisfyFn___at_Lean_Parser_octalNumberFn___spec__1(lean_object*, lean_object*, lean_object*); @@ -694,6 +710,7 @@ lean_object* l_Lean_Parser_declareBuiltinParser___closed__6; lean_object* l_Lean_Parser_satisfyFn___at_Lean_Parser_quotedSymbolFn___spec__1(uint32_t, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_rawIdent___boxed(lean_object*); lean_object* l_Lean_Parser_mkAntiquot___elambda__1___boxed(lean_object*); +lean_object* l___private_Init_Lean_Parser_Parser_25__antiquotExpr(uint8_t); lean_object* l___private_Init_Lean_Parser_Parser_13__addTokenConfig___closed__1; uint8_t l_Lean_isIdEndEscape(uint32_t); lean_object* l_Lean_Parser_addBuiltinLeadingParser(lean_object*, lean_object*, lean_object*, lean_object*); @@ -701,6 +718,7 @@ lean_object* l_Lean_Syntax_foldSepArgsM___rarg(lean_object*, lean_object*, lean_ lean_object* l_Lean_Parser_mkParserExtension___closed__7; lean_object* l_Lean_Parser_dollarSymbol___elambda__1___rarg___closed__1; lean_object* l_Lean_Parser_regBuiltinTermParserAttr___closed__1; +lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PersistentEnvExtension_addEntry___rarg(lean_object*, lean_object*, lean_object*); size_t l_USize_land(size_t, size_t); lean_object* l_Lean_Parser_parserExtension___elambda__4___boxed(lean_object*, lean_object*); @@ -709,6 +727,7 @@ lean_object* l___private_Init_Data_Array_Basic_3__iterateRevMAux___main___at_Lea lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_Parser_mkParserExtension___spec__3___closed__1; lean_object* l_Lean_Parser_mkAntiquot___elambda__2(uint8_t); extern lean_object* l_Lean_registerTagAttribute___lambda__4___closed__2; +lean_object* l___private_Init_Lean_Parser_Parser_25__antiquotExpr___elambda__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_toTrailing(lean_object*, lean_object*); lean_object* l_Lean_Parser_categoryParserOfStack___elambda__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_categoryParserFn(lean_object*, lean_object*, lean_object*, lean_object*); @@ -746,6 +765,7 @@ lean_object* l_Lean_Parser_appPrec; lean_object* l_Lean_Parser_checkColGeFn(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_registerParserCategory(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*); lean_object* l_Lean_Parser_charLitFnAux___boxed(lean_object*, lean_object*, lean_object*); +extern lean_object* l_Option_HasRepr___rarg___closed__3; lean_object* l_Lean_Parser_prattParser___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_tryFn___boxed(lean_object*); lean_object* l_Array_foldSepByM___rarg(lean_object*, lean_object*, lean_object*, lean_object*); @@ -773,7 +793,7 @@ lean_object* l_Lean_Parser_numLit(uint8_t); lean_object* l_Lean_Parser_leadingParser___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_hexDigitFn(lean_object*, lean_object*); lean_object* l_Lean_Parser_mkCategoryParserFnRef___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Parser_mkAntiquot___closed__16; +lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__1; lean_object* l_Lean_Parser_FirstTokens_HasToString___closed__1; lean_object* l_Lean_Parser_FirstTokens_HasToString; lean_object* l_Lean_Parser_pushLeading; @@ -782,12 +802,14 @@ lean_object* l_Lean_Parser_Error_toString(lean_object*); lean_object* l_Lean_Parser_categoryParserOfStackFn___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_symbolNoWsFnAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_mkAntiquot___elambda__2___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Parser_Parser_23__antiquotId___elambda__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_RBNode_find___main___at_Lean_Parser_indexed___spec__2___rarg___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_manyAux___main___at_Lean_Parser_many1Indent___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_longestMatchStep___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_foldlStepMAux___main___at_Array_foldSepBy___spec__1(lean_object*); lean_object* l_Lean_Parser_string2basic___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_ParserState_keepNewError___boxed(lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; lean_object* l_Lean_Parser_rawIdent___elambda__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Parser_Parser_14__addTrailingParserAux(lean_object*, lean_object*); lean_object* lean_environment_main_module(lean_object*); @@ -882,6 +904,7 @@ extern lean_object* l_Lean_registerEnvExtensionUnsafe___rarg___closed__2; lean_object* l_Lean_Parser_fieldIdxFn___boxed(lean_object*, lean_object*); uint8_t l_PersistentHashMap_containsAux___main___at___private_Init_Lean_Parser_Parser_9__addParserCategoryCore___spec__2(lean_object*, size_t, lean_object*); lean_object* l_Lean_Parser_orelse___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___boxed(lean_object*); lean_object* l_Lean_Parser_dollarSymbol___elambda__1(uint8_t, lean_object*); lean_object* l_Lean_Parser_manyAux___main___at_Lean_Parser_many1Indent___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_toTrailing___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -902,6 +925,7 @@ lean_object* l___private_Init_Data_Array_Basic_3__iterateRevMAux___main___at_Lea lean_object* l_Lean_Parser_rawCh___elambda__1___boxed(lean_object*); lean_object* l_Lean_Parser_numberFnAux___closed__1; lean_object* l_Lean_Parser_categoryParserFnExtension___elambda__1___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__1; lean_object* l_Lean_Parser_nonReservedSymbolInfo___closed__1; lean_object* l_Array_iterateMAux___main___at_Lean_Syntax_foldArgsM___spec__1(lean_object*, lean_object*); lean_object* l_Lean_Syntax_forSepArgsM___boxed(lean_object*); @@ -936,6 +960,7 @@ lean_object* l___private_Init_Lean_Parser_Parser_5__tokenFnAux(lean_object*, lea lean_object* l_Lean_Parser_checkWsBeforeFn___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_optionalFn(uint8_t); lean_object* l___private_Init_Lean_Parser_Parser_8__throwParserCategoryAlreadyDefined___rarg___closed__1; +lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__2; lean_object* lean_array_pop(lean_object*); lean_object* l_Lean_Parser_TokenMap_insert___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_quotedSymbolFn___rarg___boxed(lean_object*, lean_object*, lean_object*); @@ -949,6 +974,7 @@ lean_object* l_Lean_Syntax_isNone___boxed(lean_object*); lean_object* l_Lean_Parser_currLbp(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_mkParserOfConstant(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_takeWhile1Fn(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__4; lean_object* l_List_foldl___main___at___private_Init_Lean_Parser_Parser_14__addTrailingParserAux___spec__1(lean_object*, lean_object*, lean_object*); uint8_t l_PersistentHashMap_containsAux___main___at_Lean_Parser_mkFreshKindAux___main___spec__2(lean_object*, size_t, lean_object*); lean_object* lean_io_initializing(lean_object*); @@ -35868,6 +35894,368 @@ x_3 = l___private_Init_Lean_Parser_Parser_22__pushNone(x_2); return x_3; } } +lean_object* l___private_Init_Lean_Parser_Parser_23__antiquotId___elambda__1___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; +x_5 = lean_ctor_get(x_4, 0); +lean_inc(x_5); +x_6 = lean_array_get_size(x_5); +lean_dec(x_5); +x_7 = lean_apply_3(x_1, x_2, x_3, x_4); +x_8 = l_Lean_mkTermIdFromIdent___closed__2; +x_9 = l_Lean_Parser_ParserState_mkNode(x_7, x_8, x_6); +return x_9; +} +} +lean_object* l___private_Init_Lean_Parser_Parser_23__antiquotId___elambda__1(uint8_t x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l___private_Init_Lean_Parser_Parser_23__antiquotId___elambda__1___rarg), 4, 0); +return x_2; +} +} +lean_object* l___private_Init_Lean_Parser_Parser_23__antiquotId(uint8_t x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; +x_2 = lean_box(x_1); +x_3 = lean_alloc_closure((void*)(l_Lean_Parser_identFn___boxed), 2, 1); +lean_closure_set(x_3, 0, x_2); +x_4 = l___private_Init_Lean_Parser_Parser_22__pushNone(x_1); +x_5 = lean_ctor_get(x_4, 0); +lean_inc(x_5); +lean_dec(x_4); +x_6 = l_Lean_Parser_identNoAntiquot___closed__1; +x_7 = l_Lean_Parser_andthenInfo(x_6, x_5); +x_8 = lean_box(x_1); +x_9 = lean_alloc_closure((void*)(l___private_Init_Lean_Parser_Parser_22__pushNone___elambda__1___boxed), 3, 1); +lean_closure_set(x_9, 0, x_8); +x_10 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn___rarg), 5, 2); +lean_closure_set(x_10, 0, x_3); +lean_closure_set(x_10, 1, x_9); +x_11 = l_Lean_mkTermIdFromIdent___closed__2; +x_12 = l_Lean_Parser_nodeInfo(x_11, x_7); +x_13 = lean_alloc_closure((void*)(l___private_Init_Lean_Parser_Parser_23__antiquotId___elambda__1___rarg), 4, 1); +lean_closure_set(x_13, 0, x_10); +x_14 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_14, 0, x_12); +lean_ctor_set(x_14, 1, x_13); +return x_14; +} +} +lean_object* l___private_Init_Lean_Parser_Parser_23__antiquotId___elambda__1___boxed(lean_object* x_1) { +_start: +{ +uint8_t x_2; lean_object* x_3; +x_2 = lean_unbox(x_1); +lean_dec(x_1); +x_3 = l___private_Init_Lean_Parser_Parser_23__antiquotId___elambda__1(x_2); +return x_3; +} +} +lean_object* l___private_Init_Lean_Parser_Parser_23__antiquotId___boxed(lean_object* x_1) { +_start: +{ +uint8_t x_2; lean_object* x_3; +x_2 = lean_unbox(x_1); +lean_dec(x_1); +x_3 = l___private_Init_Lean_Parser_Parser_23__antiquotId(x_2); +return x_3; +} +} +lean_object* _init_l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("paren"); +return x_1; +} +} +lean_object* _init_l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__6; +x_2 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; +x_5 = lean_ctor_get(x_4, 0); +lean_inc(x_5); +x_6 = lean_array_get_size(x_5); +lean_dec(x_5); +x_7 = lean_apply_3(x_1, x_2, x_3, x_4); +x_8 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; +x_9 = l_Lean_Parser_ParserState_mkNode(x_7, x_8, x_6); +return x_9; +} +} +lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1(uint8_t x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg), 4, 0); +return x_2; +} +} +lean_object* _init_l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Prod_HasRepr___rarg___closed__1; +x_2 = l_String_trim(x_1); +return x_2; +} +} +lean_object* _init_l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__1; +x_3 = l_Lean_Parser_symbolInfo(x_2, x_1); +return x_3; +} +} +lean_object* _init_l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__1; +x_2 = lean_alloc_closure((void*)(l_Lean_Parser_symbolFn___rarg___boxed), 4, 1); +lean_closure_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__4() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_regBuiltinTermParserAttr___closed__4; +x_2 = lean_unsigned_to_nat(0u); +x_3 = lean_alloc_closure((void*)(l_Lean_Parser_categoryParser___elambda__1___rarg___boxed), 5, 2); +lean_closure_set(x_3, 0, x_1); +lean_closure_set(x_3, 1, x_2); +return x_3; +} +} +lean_object* _init_l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__5() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Option_HasRepr___rarg___closed__3; +x_2 = l_String_trim(x_1); +return x_2; +} +} +lean_object* _init_l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__6() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__5; +x_3 = l_Lean_Parser_symbolInfo(x_2, x_1); +return x_3; +} +} +lean_object* _init_l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__7() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__5; +x_2 = lean_alloc_closure((void*)(l_Lean_Parser_symbolFn___rarg___boxed), 4, 1); +lean_closure_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr(uint8_t x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; +x_2 = l_Lean_Parser_regBuiltinTermParserAttr___closed__4; +x_3 = lean_unsigned_to_nat(0u); +x_4 = l_Lean_Parser_categoryParser(x_1, x_2, x_3); +x_5 = l___private_Init_Lean_Parser_Parser_22__pushNone(x_1); +x_6 = lean_ctor_get(x_4, 0); +lean_inc(x_6); +lean_dec(x_4); +x_7 = lean_ctor_get(x_5, 0); +lean_inc(x_7); +lean_dec(x_5); +x_8 = l_Lean_Parser_andthenInfo(x_6, x_7); +x_9 = lean_box(x_1); +x_10 = lean_alloc_closure((void*)(l___private_Init_Lean_Parser_Parser_22__pushNone___elambda__1___boxed), 3, 1); +lean_closure_set(x_10, 0, x_9); +x_11 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__4; +x_12 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn___rarg), 5, 2); +lean_closure_set(x_12, 0, x_11); +lean_closure_set(x_12, 1, x_10); +x_13 = l_Lean_nullKind; +x_14 = l_Lean_Parser_nodeInfo(x_13, x_8); +x_15 = lean_alloc_closure((void*)(l_Lean_Parser_nodeFn___rarg), 5, 2); +lean_closure_set(x_15, 0, x_13); +lean_closure_set(x_15, 1, x_12); +x_16 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__6; +x_17 = l_Lean_Parser_andthenInfo(x_14, x_16); +x_18 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__7; +x_19 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn___rarg), 5, 2); +lean_closure_set(x_19, 0, x_15); +lean_closure_set(x_19, 1, x_18); +x_20 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__2; +x_21 = l_Lean_Parser_andthenInfo(x_20, x_17); +x_22 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__3; +x_23 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn___rarg), 5, 2); +lean_closure_set(x_23, 0, x_22); +lean_closure_set(x_23, 1, x_19); +x_24 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; +x_25 = l_Lean_Parser_nodeInfo(x_24, x_21); +x_26 = lean_alloc_closure((void*)(l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg), 4, 1); +lean_closure_set(x_26, 0, x_23); +x_27 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_27, 0, x_25); +lean_ctor_set(x_27, 1, x_26); +return x_27; +} +} +lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___boxed(lean_object* x_1) { +_start: +{ +uint8_t x_2; lean_object* x_3; +x_2 = lean_unbox(x_1); +lean_dec(x_1); +x_3 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1(x_2); +return x_3; +} +} +lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___boxed(lean_object* x_1) { +_start: +{ +uint8_t x_2; lean_object* x_3; +x_2 = lean_unbox(x_1); +lean_dec(x_1); +x_3 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr(x_2); +return x_3; +} +} +lean_object* l___private_Init_Lean_Parser_Parser_25__antiquotExpr___elambda__1___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; +x_6 = lean_ctor_get(x_5, 0); +lean_inc(x_6); +x_7 = lean_array_get_size(x_6); +lean_dec(x_6); +x_8 = lean_ctor_get(x_5, 1); +lean_inc(x_8); +lean_inc(x_4); +lean_inc(x_3); +x_9 = lean_apply_3(x_1, x_3, x_4, x_5); +x_10 = lean_ctor_get(x_9, 3); +lean_inc(x_10); +if (lean_obj_tag(x_10) == 0) +{ +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +return x_9; +} +else +{ +lean_object* x_11; lean_object* x_12; uint8_t x_13; +x_11 = lean_ctor_get(x_10, 0); +lean_inc(x_11); +lean_dec(x_10); +x_12 = lean_ctor_get(x_9, 1); +lean_inc(x_12); +x_13 = lean_nat_dec_eq(x_12, x_8); +lean_dec(x_12); +if (x_13 == 0) +{ +lean_dec(x_11); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +return x_9; +} +else +{ +lean_object* x_14; lean_object* x_15; lean_object* x_16; +lean_inc(x_8); +x_14 = l_Lean_Parser_ParserState_restore(x_9, x_7, x_8); +lean_dec(x_7); +x_15 = lean_apply_3(x_2, x_3, x_4, x_14); +x_16 = l_Lean_Parser_mergeOrElseErrors(x_15, x_11, x_8); +lean_dec(x_8); +return x_16; +} +} +} +} +lean_object* l___private_Init_Lean_Parser_Parser_25__antiquotExpr___elambda__1(uint8_t x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l___private_Init_Lean_Parser_Parser_25__antiquotExpr___elambda__1___rarg), 5, 0); +return x_2; +} +} +lean_object* l___private_Init_Lean_Parser_Parser_25__antiquotExpr(uint8_t x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; +x_2 = l___private_Init_Lean_Parser_Parser_23__antiquotId(x_1); +x_3 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr(x_1); +x_4 = lean_ctor_get(x_2, 0); +lean_inc(x_4); +x_5 = lean_ctor_get(x_3, 0); +lean_inc(x_5); +x_6 = l_Lean_Parser_orelseInfo(x_4, x_5); +x_7 = lean_ctor_get(x_2, 1); +lean_inc(x_7); +lean_dec(x_2); +x_8 = lean_ctor_get(x_3, 1); +lean_inc(x_8); +lean_dec(x_3); +x_9 = lean_alloc_closure((void*)(l___private_Init_Lean_Parser_Parser_25__antiquotExpr___elambda__1___rarg), 5, 2); +lean_closure_set(x_9, 0, x_7); +lean_closure_set(x_9, 1, x_8); +x_10 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_10, 0, x_6); +lean_ctor_set(x_10, 1, x_9); +return x_10; +} +} +lean_object* l___private_Init_Lean_Parser_Parser_25__antiquotExpr___elambda__1___boxed(lean_object* x_1) { +_start: +{ +uint8_t x_2; lean_object* x_3; +x_2 = lean_unbox(x_1); +lean_dec(x_1); +x_3 = l___private_Init_Lean_Parser_Parser_25__antiquotExpr___elambda__1(x_2); +return x_3; +} +} +lean_object* l___private_Init_Lean_Parser_Parser_25__antiquotExpr___boxed(lean_object* x_1) { +_start: +{ +uint8_t x_2; lean_object* x_3; +x_2 = lean_unbox(x_1); +lean_dec(x_1); +x_3 = l___private_Init_Lean_Parser_Parser_25__antiquotExpr(x_2); +return x_3; +} +} lean_object* l_Lean_Parser_mkAntiquot___elambda__1___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { _start: { @@ -35968,38 +36356,38 @@ return x_2; lean_object* _init_l_Lean_Parser_mkAntiquot___closed__7() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_appPrec; -x_2 = lean_unsigned_to_nat(1u); -x_3 = lean_nat_add(x_1, x_2); -return x_3; -} -} -lean_object* _init_l_Lean_Parser_mkAntiquot___closed__8() { -_start: -{ lean_object* x_1; x_1 = lean_mk_string("*"); return x_1; } } -lean_object* _init_l_Lean_Parser_mkAntiquot___closed__9() { +lean_object* _init_l_Lean_Parser_mkAntiquot___closed__8() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_mkAntiquot___closed__8; +x_1 = l_Lean_Parser_mkAntiquot___closed__7; x_2 = l_String_trim(x_1); return x_2; } } +lean_object* _init_l_Lean_Parser_mkAntiquot___closed__9() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Parser_mkAntiquot___closed__8; +x_3 = l_Lean_Parser_symbolInfo(x_2, x_1); +return x_3; +} +} lean_object* _init_l_Lean_Parser_mkAntiquot___closed__10() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = lean_box(0); -x_2 = l_Lean_Parser_mkAntiquot___closed__9; -x_3 = l_Lean_Parser_symbolInfo(x_2, x_1); -return x_3; +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Parser_mkAntiquot___closed__8; +x_2 = lean_alloc_closure((void*)(l_Lean_Parser_symbolFn___rarg___boxed), 4, 1); +lean_closure_set(x_2, 0, x_1); +return x_2; } } lean_object* _init_l_Lean_Parser_mkAntiquot___closed__11() { @@ -36007,8 +36395,7 @@ _start: { lean_object* x_1; lean_object* x_2; x_1 = l_Lean_Parser_mkAntiquot___closed__9; -x_2 = lean_alloc_closure((void*)(l_Lean_Parser_symbolFn___rarg___boxed), 4, 1); -lean_closure_set(x_2, 0, x_1); +x_2 = l_Lean_Parser_optionaInfo(x_1); return x_2; } } @@ -36017,33 +36404,12 @@ _start: { lean_object* x_1; lean_object* x_2; x_1 = l_Lean_Parser_mkAntiquot___closed__10; -x_2 = l_Lean_Parser_optionaInfo(x_1); -return x_2; -} -} -lean_object* _init_l_Lean_Parser_mkAntiquot___closed__13() { -_start: -{ -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_mkAntiquot___closed__11; x_2 = lean_alloc_closure((void*)(l_Lean_Parser_optionalFn___rarg), 4, 1); lean_closure_set(x_2, 0, x_1); return x_2; } } -lean_object* _init_l_Lean_Parser_mkAntiquot___closed__14() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_regBuiltinTermParserAttr___closed__4; -x_2 = l_Lean_Parser_mkAntiquot___closed__7; -x_3 = lean_alloc_closure((void*)(l_Lean_Parser_categoryParser___elambda__1___rarg___boxed), 5, 2); -lean_closure_set(x_3, 0, x_1); -lean_closure_set(x_3, 1, x_2); -return x_3; -} -} -lean_object* _init_l_Lean_Parser_mkAntiquot___closed__15() { +lean_object* _init_l_Lean_Parser_mkAntiquot___closed__13() { _start: { lean_object* x_1; @@ -36051,11 +36417,11 @@ x_1 = lean_mk_string("no space before"); return x_1; } } -lean_object* _init_l_Lean_Parser_mkAntiquot___closed__16() { +lean_object* _init_l_Lean_Parser_mkAntiquot___closed__14() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_mkAntiquot___closed__15; +x_1 = l_Lean_Parser_mkAntiquot___closed__13; x_2 = lean_alloc_closure((void*)(l_Lean_Parser_checkNoWsBefore___elambda__1___rarg___boxed), 4, 1); lean_closure_set(x_2, 0, x_1); return x_2; @@ -36064,7 +36430,7 @@ return x_2; lean_object* l_Lean_Parser_mkAntiquot(uint8_t x_1, lean_object* x_2, lean_object* x_3, uint8_t x_4) { _start: { -lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; x_5 = l_Lean_Parser_mkAntiquot___closed__3; x_6 = lean_string_append(x_5, x_2); x_7 = l_Char_HasRepr___closed__1; @@ -36089,137 +36455,135 @@ x_20 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn___rarg), 5, 2); lean_closure_set(x_20, 0, x_19); lean_closure_set(x_20, 1, x_16); x_21 = l_Lean_Parser_dollarSymbol(x_1); -x_22 = l_Lean_Parser_regBuiltinTermParserAttr___closed__4; -x_23 = l_Lean_Parser_mkAntiquot___closed__7; -x_24 = l_Lean_Parser_categoryParser(x_1, x_22, x_23); -x_25 = lean_ctor_get(x_24, 0); +x_22 = l___private_Init_Lean_Parser_Parser_25__antiquotExpr(x_1); +x_23 = lean_ctor_get(x_22, 0); +lean_inc(x_23); +x_24 = lean_ctor_get(x_22, 1); +lean_inc(x_24); +lean_dec(x_22); +x_25 = lean_ctor_get(x_21, 0); lean_inc(x_25); -lean_dec(x_24); -x_26 = lean_ctor_get(x_21, 0); -lean_inc(x_26); lean_dec(x_21); -x_27 = lean_box(x_1); -x_28 = lean_alloc_closure((void*)(l_Lean_Parser_dollarSymbol___elambda__1___boxed), 2, 1); -lean_closure_set(x_28, 0, x_27); +x_26 = lean_box(x_1); +x_27 = lean_alloc_closure((void*)(l_Lean_Parser_dollarSymbol___elambda__1___boxed), 2, 1); +lean_closure_set(x_27, 0, x_26); if (lean_obj_tag(x_3) == 0) { -lean_object* x_79; -x_79 = lean_box(0); -x_29 = x_79; -goto block_78; +lean_object* x_76; +x_76 = lean_box(0); +x_28 = x_76; +goto block_75; } else { -lean_object* x_80; -x_80 = lean_ctor_get(x_3, 0); -lean_inc(x_80); +lean_object* x_77; +x_77 = lean_ctor_get(x_3, 0); +lean_inc(x_77); lean_dec(x_3); -x_29 = x_80; -goto block_78; +x_28 = x_77; +goto block_75; } -block_78: +block_75: { -lean_object* x_30; lean_object* x_31; -x_30 = l_Lean_Parser_mkAntiquot___closed__2; -x_31 = l_Lean_Name_append___main(x_29, x_30); -lean_dec(x_29); +lean_object* x_29; lean_object* x_30; +x_29 = l_Lean_Parser_mkAntiquot___closed__2; +x_30 = l_Lean_Name_append___main(x_28, x_29); +lean_dec(x_28); if (x_4 == 0) { -lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; -x_32 = l_Lean_Parser_mkAntiquot___closed__12; -x_33 = l_Lean_Parser_andthenInfo(x_18, x_32); -x_34 = l_Lean_Parser_mkAntiquot___closed__13; -x_35 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn___rarg), 5, 2); -lean_closure_set(x_35, 0, x_20); -lean_closure_set(x_35, 1, x_34); -x_36 = l_Lean_Parser_andthenInfo(x_25, x_33); -x_37 = l_Lean_Parser_mkAntiquot___closed__14; -x_38 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn___rarg), 5, 2); -lean_closure_set(x_38, 0, x_37); -lean_closure_set(x_38, 1, x_35); -x_39 = l_Lean_Parser_andthenInfo(x_17, x_36); -x_40 = l_Lean_Parser_mkAntiquot___closed__16; +lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; +x_31 = l_Lean_Parser_mkAntiquot___closed__11; +x_32 = l_Lean_Parser_andthenInfo(x_18, x_31); +x_33 = l_Lean_Parser_mkAntiquot___closed__12; +x_34 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn___rarg), 5, 2); +lean_closure_set(x_34, 0, x_20); +lean_closure_set(x_34, 1, x_33); +x_35 = l_Lean_Parser_andthenInfo(x_23, x_32); +x_36 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn___rarg), 5, 2); +lean_closure_set(x_36, 0, x_24); +lean_closure_set(x_36, 1, x_34); +x_37 = l_Lean_Parser_andthenInfo(x_17, x_35); +x_38 = l_Lean_Parser_mkAntiquot___closed__14; +x_39 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn___rarg), 5, 2); +lean_closure_set(x_39, 0, x_38); +lean_closure_set(x_39, 1, x_36); +x_40 = l_Lean_Parser_andthenInfo(x_25, x_37); x_41 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn___rarg), 5, 2); -lean_closure_set(x_41, 0, x_40); -lean_closure_set(x_41, 1, x_38); -x_42 = l_Lean_Parser_andthenInfo(x_26, x_39); -x_43 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn___rarg), 5, 2); -lean_closure_set(x_43, 0, x_28); -lean_closure_set(x_43, 1, x_41); -x_44 = lean_alloc_closure((void*)(l_Lean_Parser_tryFn___rarg), 4, 1); -lean_closure_set(x_44, 0, x_43); -lean_inc(x_31); -x_45 = l_Lean_Parser_nodeInfo(x_31, x_42); -x_46 = lean_alloc_closure((void*)(l_Lean_Parser_mkAntiquot___elambda__1___rarg), 5, 2); -lean_closure_set(x_46, 0, x_31); -lean_closure_set(x_46, 1, x_44); -x_47 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_47, 0, x_45); -lean_ctor_set(x_47, 1, x_46); -return x_47; +lean_closure_set(x_41, 0, x_27); +lean_closure_set(x_41, 1, x_39); +x_42 = lean_alloc_closure((void*)(l_Lean_Parser_tryFn___rarg), 4, 1); +lean_closure_set(x_42, 0, x_41); +lean_inc(x_30); +x_43 = l_Lean_Parser_nodeInfo(x_30, x_40); +x_44 = lean_alloc_closure((void*)(l_Lean_Parser_mkAntiquot___elambda__1___rarg), 5, 2); +lean_closure_set(x_44, 0, x_30); +lean_closure_set(x_44, 1, x_42); +x_45 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_45, 0, x_43); +lean_ctor_set(x_45, 1, x_44); +return x_45; } else { -lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; -x_48 = l___private_Init_Lean_Parser_Parser_21__noImmediateColon(x_1); -x_49 = l___private_Init_Lean_Parser_Parser_22__pushNone(x_1); -x_50 = lean_ctor_get(x_49, 0); -lean_inc(x_50); -lean_dec(x_49); -lean_inc(x_50); -x_51 = l_Lean_Parser_andthenInfo(x_50, x_50); -x_52 = lean_box(x_1); -x_53 = lean_alloc_closure((void*)(l___private_Init_Lean_Parser_Parser_22__pushNone___elambda__1___boxed), 3, 1); -lean_closure_set(x_53, 0, x_52); +lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; +x_46 = l___private_Init_Lean_Parser_Parser_21__noImmediateColon(x_1); +x_47 = l___private_Init_Lean_Parser_Parser_22__pushNone(x_1); +x_48 = lean_ctor_get(x_47, 0); +lean_inc(x_48); +lean_dec(x_47); +lean_inc(x_48); +x_49 = l_Lean_Parser_andthenInfo(x_48, x_48); +x_50 = lean_box(x_1); +x_51 = lean_alloc_closure((void*)(l___private_Init_Lean_Parser_Parser_22__pushNone___elambda__1___boxed), 3, 1); +lean_closure_set(x_51, 0, x_50); +lean_inc(x_51); +x_52 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn___rarg), 5, 2); +lean_closure_set(x_52, 0, x_51); +lean_closure_set(x_52, 1, x_51); +x_53 = lean_ctor_get(x_46, 0); lean_inc(x_53); -x_54 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn___rarg), 5, 2); -lean_closure_set(x_54, 0, x_53); -lean_closure_set(x_54, 1, x_53); -x_55 = lean_ctor_get(x_48, 0); -lean_inc(x_55); -lean_dec(x_48); -x_56 = l_Lean_Parser_andthenInfo(x_55, x_51); -x_57 = lean_box(x_1); -x_58 = lean_alloc_closure((void*)(l___private_Init_Lean_Parser_Parser_21__noImmediateColon___elambda__1___boxed), 2, 1); -lean_closure_set(x_58, 0, x_57); -x_59 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn___rarg), 5, 2); -lean_closure_set(x_59, 0, x_58); -lean_closure_set(x_59, 1, x_54); -x_60 = l_Lean_Parser_orelseInfo(x_18, x_56); -x_61 = lean_alloc_closure((void*)(l_Lean_Parser_orelseFn___rarg), 5, 2); -lean_closure_set(x_61, 0, x_20); -lean_closure_set(x_61, 1, x_59); +lean_dec(x_46); +x_54 = l_Lean_Parser_andthenInfo(x_53, x_49); +x_55 = lean_box(x_1); +x_56 = lean_alloc_closure((void*)(l___private_Init_Lean_Parser_Parser_21__noImmediateColon___elambda__1___boxed), 2, 1); +lean_closure_set(x_56, 0, x_55); +x_57 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn___rarg), 5, 2); +lean_closure_set(x_57, 0, x_56); +lean_closure_set(x_57, 1, x_52); +x_58 = l_Lean_Parser_orelseInfo(x_18, x_54); +x_59 = lean_alloc_closure((void*)(l_Lean_Parser_orelseFn___rarg), 5, 2); +lean_closure_set(x_59, 0, x_20); +lean_closure_set(x_59, 1, x_57); +x_60 = l_Lean_Parser_mkAntiquot___closed__11; +x_61 = l_Lean_Parser_andthenInfo(x_58, x_60); x_62 = l_Lean_Parser_mkAntiquot___closed__12; -x_63 = l_Lean_Parser_andthenInfo(x_60, x_62); -x_64 = l_Lean_Parser_mkAntiquot___closed__13; +x_63 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn___rarg), 5, 2); +lean_closure_set(x_63, 0, x_59); +lean_closure_set(x_63, 1, x_62); +x_64 = l_Lean_Parser_andthenInfo(x_23, x_61); x_65 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn___rarg), 5, 2); -lean_closure_set(x_65, 0, x_61); -lean_closure_set(x_65, 1, x_64); -x_66 = l_Lean_Parser_andthenInfo(x_25, x_63); +lean_closure_set(x_65, 0, x_24); +lean_closure_set(x_65, 1, x_63); +x_66 = l_Lean_Parser_andthenInfo(x_17, x_64); x_67 = l_Lean_Parser_mkAntiquot___closed__14; x_68 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn___rarg), 5, 2); lean_closure_set(x_68, 0, x_67); lean_closure_set(x_68, 1, x_65); -x_69 = l_Lean_Parser_andthenInfo(x_17, x_66); -x_70 = l_Lean_Parser_mkAntiquot___closed__16; -x_71 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn___rarg), 5, 2); +x_69 = l_Lean_Parser_andthenInfo(x_25, x_66); +x_70 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn___rarg), 5, 2); +lean_closure_set(x_70, 0, x_27); +lean_closure_set(x_70, 1, x_68); +x_71 = lean_alloc_closure((void*)(l_Lean_Parser_tryFn___rarg), 4, 1); lean_closure_set(x_71, 0, x_70); -lean_closure_set(x_71, 1, x_68); -x_72 = l_Lean_Parser_andthenInfo(x_26, x_69); -x_73 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn___rarg), 5, 2); -lean_closure_set(x_73, 0, x_28); +lean_inc(x_30); +x_72 = l_Lean_Parser_nodeInfo(x_30, x_69); +x_73 = lean_alloc_closure((void*)(l_Lean_Parser_mkAntiquot___elambda__2___rarg), 5, 2); +lean_closure_set(x_73, 0, x_30); lean_closure_set(x_73, 1, x_71); -x_74 = lean_alloc_closure((void*)(l_Lean_Parser_tryFn___rarg), 4, 1); -lean_closure_set(x_74, 0, x_73); -lean_inc(x_31); -x_75 = l_Lean_Parser_nodeInfo(x_31, x_72); -x_76 = lean_alloc_closure((void*)(l_Lean_Parser_mkAntiquot___elambda__2___rarg), 5, 2); -lean_closure_set(x_76, 0, x_31); -lean_closure_set(x_76, 1, x_74); -x_77 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_77, 0, x_75); -lean_ctor_set(x_77, 1, x_76); -return x_77; +x_74 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_74, 0, x_72); +lean_ctor_set(x_74, 1, x_73); +return x_74; } } } @@ -38155,6 +38519,24 @@ l_Lean_Parser_dollarSymbol___closed__2 = _init_l_Lean_Parser_dollarSymbol___clos lean_mark_persistent(l_Lean_Parser_dollarSymbol___closed__2); l___private_Init_Lean_Parser_Parser_21__noImmediateColon___elambda__1___rarg___closed__1 = _init_l___private_Init_Lean_Parser_Parser_21__noImmediateColon___elambda__1___rarg___closed__1(); lean_mark_persistent(l___private_Init_Lean_Parser_Parser_21__noImmediateColon___elambda__1___rarg___closed__1); +l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__1 = _init_l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__1(); +lean_mark_persistent(l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__1); +l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2 = _init_l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2(); +lean_mark_persistent(l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2); +l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__1 = _init_l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__1(); +lean_mark_persistent(l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__1); +l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__2 = _init_l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__2(); +lean_mark_persistent(l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__2); +l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__3 = _init_l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__3(); +lean_mark_persistent(l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__3); +l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__4 = _init_l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__4(); +lean_mark_persistent(l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__4); +l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__5 = _init_l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__5(); +lean_mark_persistent(l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__5); +l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__6 = _init_l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__6(); +lean_mark_persistent(l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__6); +l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__7 = _init_l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__7(); +lean_mark_persistent(l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__7); l_Lean_Parser_mkAntiquot___closed__1 = _init_l_Lean_Parser_mkAntiquot___closed__1(); lean_mark_persistent(l_Lean_Parser_mkAntiquot___closed__1); l_Lean_Parser_mkAntiquot___closed__2 = _init_l_Lean_Parser_mkAntiquot___closed__2(); @@ -38183,10 +38565,6 @@ l_Lean_Parser_mkAntiquot___closed__13 = _init_l_Lean_Parser_mkAntiquot___closed_ lean_mark_persistent(l_Lean_Parser_mkAntiquot___closed__13); l_Lean_Parser_mkAntiquot___closed__14 = _init_l_Lean_Parser_mkAntiquot___closed__14(); lean_mark_persistent(l_Lean_Parser_mkAntiquot___closed__14); -l_Lean_Parser_mkAntiquot___closed__15 = _init_l_Lean_Parser_mkAntiquot___closed__15(); -lean_mark_persistent(l_Lean_Parser_mkAntiquot___closed__15); -l_Lean_Parser_mkAntiquot___closed__16 = _init_l_Lean_Parser_mkAntiquot___closed__16(); -lean_mark_persistent(l_Lean_Parser_mkAntiquot___closed__16); l_Lean_Parser_ident___closed__1 = _init_l_Lean_Parser_ident___closed__1(); lean_mark_persistent(l_Lean_Parser_ident___closed__1); l_Lean_Parser_fieldIdxFn___closed__1 = _init_l_Lean_Parser_fieldIdxFn___closed__1(); diff --git a/stage0/stdlib/Init/Lean/Parser/Syntax.c b/stage0/stdlib/Init/Lean/Parser/Syntax.c index 548526f39f..412dac3595 100644 --- a/stage0/stdlib/Init/Lean/Parser/Syntax.c +++ b/stage0/stdlib/Init/Lean/Parser/Syntax.c @@ -43,6 +43,7 @@ lean_object* l_Lean_Parser_andthenInfo(lean_object*, lean_object*); lean_object* l_Lean_Parser_ParserState_mkError(lean_object*, lean_object*); lean_object* l_Lean_Parser_Command_mixfix; lean_object* l_Lean_Parser_Command_mixfixSymbol___elambda__1(lean_object*, lean_object*, lean_object*); +extern lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__6; lean_object* l_Lean_Parser_Syntax_lookahead___closed__4; lean_object* l_Lean_Parser_Command_macroArgType___closed__4; lean_object* l_Lean_Parser_Syntax_num___closed__5; @@ -142,6 +143,7 @@ lean_object* l_Lean_Parser_tokenFn(lean_object*, lean_object*); lean_object* l_Lean_Parser_Syntax_sepBy___elambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Command_infixr___elambda__1___closed__6; extern lean_object* l_Lean_Parser_Term_listLit___closed__4; +extern lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__5; lean_object* l_Lean_Parser_Command_macroTailDefault___elambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_maxPrec___elambda__1___closed__2; lean_object* l_Lean_Parser_Syntax_sepBy___elambda__1___closed__3; @@ -256,7 +258,6 @@ lean_object* l_Lean_Parser_Command_mixfixSymbol___closed__4; lean_object* l_Lean_Parser_Command_strLitPrec___elambda__1___closed__2; lean_object* l_Lean_Parser_quotedSymbol(uint8_t); lean_object* l_Lean_Parser_Syntax_num___elambda__1___closed__1; -extern lean_object* l_Lean_Parser_Level_paren___elambda__1___closed__7; lean_object* lean_nat_sub(lean_object*, lean_object*); lean_object* l_Lean_Parser_Syntax_sepBy1___closed__2; lean_object* l_Lean_Parser_precedence___elambda__1(lean_object*, lean_object*, lean_object*); @@ -327,7 +328,6 @@ lean_object* l_Lean_Parser_Command_infixl___elambda__1___closed__6; lean_object* l_Lean_Parser_checkNoWsBeforeFn(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Syntax_cat; lean_object* l_Lean_Parser_manyAux___main___at_Lean_Parser_Command_macro__rules___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -extern lean_object* l_Lean_Parser_mkAntiquot___closed__10; lean_object* l_Lean_Parser_Syntax_optional___elambda__1___closed__4; lean_object* l_Lean_Parser_orelseInfo(lean_object*, lean_object*); lean_object* l_Lean_Parser_Syntax_char___closed__4; @@ -363,7 +363,6 @@ lean_object* l_Lean_Parser_Command_infixr___closed__5; lean_object* l_Lean_Parser_maxPrec___elambda__1___closed__3; lean_object* l_Lean_Parser_Command_infixr___closed__3; lean_object* l_Lean_Parser_Command_identPrec___elambda__1___closed__1; -extern lean_object* l_Lean_Parser_Term_explicitBinder___closed__1; lean_object* l_Lean_Parser_Command_macroTail___closed__4; lean_object* l_Lean_Parser_Syntax_lookahead___elambda__1___closed__6; lean_object* l_Lean_Parser_registerBuiltinParserAttribute(lean_object*, lean_object*, uint8_t, lean_object*); @@ -406,7 +405,6 @@ lean_object* l_Lean_Parser_Syntax_atom___closed__4; lean_object* l___regBuiltinParser_Lean_Parser_Syntax_sepBy(lean_object*); lean_object* l_Lean_Parser_Syntax_atom; lean_object* l_Lean_Parser_Syntax_sepBy___elambda__1___closed__8; -extern lean_object* l_Lean_Parser_Level_paren___closed__4; lean_object* l_Lean_Parser_Command_macroTailCommand___closed__1; lean_object* l_Lean_Parser_Command_identPrec___closed__4; lean_object* l_Lean_Parser_Command_syntax___closed__1; @@ -450,11 +448,11 @@ lean_object* l_Lean_Parser_Syntax_paren___closed__2; lean_object* l_Lean_Parser_Command_mixfixKind___elambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Syntax_many1___closed__5; extern lean_object* l_Lean_Parser_Term_haveAssign___closed__1; +extern lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__1; lean_object* l___regBuiltinParser_Lean_Parser_Syntax_num(lean_object*); lean_object* l_Lean_Parser_Command_macro___closed__6; lean_object* l_Lean_Parser_optPrecedence___closed__3; lean_object* l_Lean_Parser_Command_infix___closed__5; -extern lean_object* l_Lean_Parser_Level_paren___elambda__1___closed__3; lean_object* l_Lean_Parser_Syntax_atom___elambda__1___closed__4; lean_object* l_Lean_Parser_Command_macro; lean_object* l_Lean_Parser_Command_syntax___closed__6; @@ -546,6 +544,7 @@ lean_object* l_Lean_Parser_Command_macroArg___elambda__1(lean_object*, lean_obje lean_object* l_Lean_Parser_regBuiltinSyntaxParserAttr(lean_object*); lean_object* l_Lean_Parser_Command_infixl___closed__1; lean_object* l_Lean_Parser_maxPrec___elambda__1___closed__1; +extern lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__1; lean_object* l_Lean_Parser_Command_syntax___closed__11; lean_object* l_Lean_Parser_precedenceLit___elambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Syntax_atom___elambda__1___closed__1; @@ -567,6 +566,7 @@ lean_object* l_Lean_Parser_Command_macroTailTactic___elambda__1(lean_object*, le lean_object* l_Lean_Parser_Command_syntax___elambda__1___closed__8; lean_object* l_Lean_Parser_Command_mixfixKind___closed__3; lean_object* l_Lean_Parser_Command_infixr___elambda__1___closed__1; +extern lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__2; extern lean_object* l_Lean_Parser_Term_typeAscription___closed__2; lean_object* l_Lean_Parser_Syntax_paren___closed__7; extern lean_object* l_Lean_Parser_Tactic_try___elambda__1___closed__6; @@ -615,13 +615,13 @@ lean_object* l_Lean_Parser_Command_notation___elambda__1___closed__5; lean_object* l_Lean_Parser_Syntax_lookahead; lean_object* l_Lean_Parser_Command_infix___elambda__1___closed__3; lean_object* l_Lean_Parser_Command_macro__rules___closed__2; -extern lean_object* l_Lean_Parser_Level_paren___elambda__1___closed__14; lean_object* l_Lean_Parser_Command_syntax___closed__9; lean_object* l_Lean_Parser_Command_macroTailDefault___closed__2; lean_object* l_Lean_Parser_Syntax_atom___closed__2; lean_object* l_Lean_Parser_precedence___closed__2; lean_object* l_Lean_Parser_Syntax_char___elambda__1(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_regBuiltinTacticParserAttr___closed__4; +extern lean_object* l_Lean_Parser_mkAntiquot___closed__8; lean_object* l_Lean_Parser_Command_infixr___closed__4; lean_object* l_Lean_Parser_manyAux___main___at_Lean_Parser_Command_macro__rules___spec__1(lean_object*, uint8_t, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Syntax_try___elambda__1___closed__3; @@ -1556,7 +1556,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Lean_Parser_Syntax_paren___elambda__1___closed__2; -x_2 = l_Lean_Parser_Level_paren___elambda__1___closed__3; +x_2 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__1; x_3 = lean_name_mk_string(x_1, x_2); return x_3; } @@ -1576,7 +1576,7 @@ _start: { uint8_t x_1; lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; x_1 = 0; -x_2 = l_Lean_Parser_Level_paren___elambda__1___closed__3; +x_2 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__1; x_3 = l_Lean_Parser_Syntax_paren___elambda__1___closed__4; x_4 = 1; x_5 = l_Lean_Parser_mkAntiquot(x_1, x_2, x_3, x_4); @@ -1655,13 +1655,13 @@ lean_object* x_71; lean_object* x_72; uint8_t x_73; x_71 = lean_ctor_get(x_70, 1); lean_inc(x_71); lean_dec(x_70); -x_72 = l_Lean_Parser_Level_paren___elambda__1___closed__7; +x_72 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__1; x_73 = lean_string_dec_eq(x_71, x_72); lean_dec(x_71); if (x_73 == 0) { lean_object* x_74; lean_object* x_75; -x_74 = l_Lean_Parser_Level_paren___elambda__1___closed__14; +x_74 = l_Lean_Parser_Level_paren___elambda__1___closed__11; lean_inc(x_8); x_75 = l_Lean_Parser_ParserState_mkErrorsAt(x_67, x_74, x_8); x_49 = x_75; @@ -1677,7 +1677,7 @@ else { lean_object* x_76; lean_object* x_77; lean_dec(x_70); -x_76 = l_Lean_Parser_Level_paren___elambda__1___closed__14; +x_76 = l_Lean_Parser_Level_paren___elambda__1___closed__11; lean_inc(x_8); x_77 = l_Lean_Parser_ParserState_mkErrorsAt(x_67, x_76, x_8); x_49 = x_77; @@ -1688,7 +1688,7 @@ else { lean_object* x_78; lean_object* x_79; lean_dec(x_68); -x_78 = l_Lean_Parser_Level_paren___elambda__1___closed__14; +x_78 = l_Lean_Parser_Level_paren___elambda__1___closed__11; lean_inc(x_8); x_79 = l_Lean_Parser_ParserState_mkErrorsAt(x_67, x_78, x_8); x_49 = x_79; @@ -1720,13 +1720,13 @@ lean_object* x_24; lean_object* x_25; uint8_t x_26; x_24 = lean_ctor_get(x_23, 1); lean_inc(x_24); lean_dec(x_23); -x_25 = l_Lean_Parser_Level_paren___elambda__1___closed__8; +x_25 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__5; x_26 = lean_string_dec_eq(x_24, x_25); lean_dec(x_24); if (x_26 == 0) { lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; -x_27 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_27 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_28 = l_Lean_Parser_ParserState_mkErrorsAt(x_20, x_27, x_19); x_29 = l_Lean_Parser_Syntax_paren___elambda__1___closed__3; x_30 = l_Lean_Parser_ParserState_mkNode(x_28, x_29, x_16); @@ -1749,7 +1749,7 @@ else { lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_dec(x_23); -x_35 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_35 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_36 = l_Lean_Parser_ParserState_mkErrorsAt(x_20, x_35, x_19); x_37 = l_Lean_Parser_Syntax_paren___elambda__1___closed__3; x_38 = l_Lean_Parser_ParserState_mkNode(x_36, x_37, x_16); @@ -1762,7 +1762,7 @@ else { lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_dec(x_21); -x_40 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_40 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_41 = l_Lean_Parser_ParserState_mkErrorsAt(x_20, x_40, x_19); x_42 = l_Lean_Parser_Syntax_paren___elambda__1___closed__3; x_43 = l_Lean_Parser_ParserState_mkNode(x_41, x_42, x_16); @@ -1859,7 +1859,7 @@ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; x_1 = l_Lean_Parser_Syntax_paren___closed__1; x_2 = lean_ctor_get(x_1, 0); lean_inc(x_2); -x_3 = l_Lean_Parser_Level_paren___closed__4; +x_3 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__6; x_4 = l_Lean_Parser_andthenInfo(x_2, x_3); return x_4; } @@ -1868,7 +1868,7 @@ lean_object* _init_l_Lean_Parser_Syntax_paren___closed__3() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_explicitBinder___closed__1; +x_1 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__2; x_2 = l_Lean_Parser_Syntax_paren___closed__2; x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); return x_3; @@ -4385,7 +4385,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Char_HasRepr___closed__1; -x_2 = l_Lean_Parser_mkAntiquot___closed__9; +x_2 = l_Lean_Parser_mkAntiquot___closed__8; x_3 = lean_string_append(x_1, x_2); return x_3; } @@ -4446,7 +4446,7 @@ lean_object* x_13; lean_object* x_14; uint8_t x_15; x_13 = lean_ctor_get(x_12, 1); lean_inc(x_13); lean_dec(x_12); -x_14 = l_Lean_Parser_mkAntiquot___closed__9; +x_14 = l_Lean_Parser_mkAntiquot___closed__8; x_15 = lean_string_dec_eq(x_13, x_14); lean_dec(x_13); if (x_15 == 0) @@ -4506,7 +4506,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Lean_Parser_epsilonInfo; -x_2 = l_Lean_Parser_mkAntiquot___closed__10; +x_2 = l_Lean_Parser_mkAntiquot___closed__9; x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); return x_3; } @@ -11823,13 +11823,13 @@ lean_object* x_15; lean_object* x_16; uint8_t x_17; x_15 = lean_ctor_get(x_14, 1); lean_inc(x_15); lean_dec(x_14); -x_16 = l_Lean_Parser_Level_paren___elambda__1___closed__8; +x_16 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__5; x_17 = lean_string_dec_eq(x_15, x_16); lean_dec(x_15); if (x_17 == 0) { lean_object* x_18; lean_object* x_19; -x_18 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_18 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_19 = l_Lean_Parser_ParserState_mkErrorsAt(x_11, x_18, x_10); return x_19; } @@ -11843,7 +11843,7 @@ else { lean_object* x_20; lean_object* x_21; lean_dec(x_14); -x_20 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_20 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_21 = l_Lean_Parser_ParserState_mkErrorsAt(x_11, x_20, x_10); return x_21; } @@ -11852,7 +11852,7 @@ else { lean_object* x_22; lean_object* x_23; lean_dec(x_12); -x_22 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_22 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_23 = l_Lean_Parser_ParserState_mkErrorsAt(x_11, x_22, x_10); return x_23; } @@ -12252,13 +12252,13 @@ lean_object* x_11; lean_object* x_12; uint8_t x_13; x_11 = lean_ctor_get(x_10, 1); lean_inc(x_11); lean_dec(x_10); -x_12 = l_Lean_Parser_Level_paren___elambda__1___closed__8; +x_12 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__5; x_13 = lean_string_dec_eq(x_11, x_12); lean_dec(x_11); if (x_13 == 0) { lean_object* x_14; lean_object* x_15; -x_14 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_14 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_15 = l_Lean_Parser_ParserState_mkErrorsAt(x_7, x_14, x_6); return x_15; } @@ -12272,7 +12272,7 @@ else { lean_object* x_16; lean_object* x_17; lean_dec(x_10); -x_16 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_16 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_17 = l_Lean_Parser_ParserState_mkErrorsAt(x_7, x_16, x_6); return x_17; } @@ -12281,7 +12281,7 @@ else { lean_object* x_18; lean_object* x_19; lean_dec(x_8); -x_18 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_18 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_19 = l_Lean_Parser_ParserState_mkErrorsAt(x_7, x_18, x_6); return x_19; } @@ -12584,7 +12584,7 @@ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; x_1 = l_Lean_Parser_Term_stxQuot___closed__2; x_2 = lean_ctor_get(x_1, 0); lean_inc(x_2); -x_3 = l_Lean_Parser_Level_paren___closed__4; +x_3 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__6; x_4 = l_Lean_Parser_andthenInfo(x_2, x_3); return x_4; } @@ -12762,13 +12762,13 @@ lean_object* x_17; lean_object* x_18; uint8_t x_19; x_17 = lean_ctor_get(x_16, 1); lean_inc(x_17); lean_dec(x_16); -x_18 = l_Lean_Parser_Level_paren___elambda__1___closed__8; +x_18 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__5; x_19 = lean_string_dec_eq(x_17, x_18); lean_dec(x_17); if (x_19 == 0) { lean_object* x_20; lean_object* x_21; -x_20 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_20 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_21 = l_Lean_Parser_ParserState_mkErrorsAt(x_13, x_20, x_12); return x_21; } @@ -12782,7 +12782,7 @@ else { lean_object* x_22; lean_object* x_23; lean_dec(x_16); -x_22 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_22 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_23 = l_Lean_Parser_ParserState_mkErrorsAt(x_13, x_22, x_12); return x_23; } @@ -12791,7 +12791,7 @@ else { lean_object* x_24; lean_object* x_25; lean_dec(x_14); -x_24 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_24 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_25 = l_Lean_Parser_ParserState_mkErrorsAt(x_13, x_24, x_12); return x_25; } @@ -13041,7 +13041,7 @@ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; x_1 = l_Lean_Parser_Command_macroTailDefault___closed__2; x_2 = lean_ctor_get(x_1, 0); lean_inc(x_2); -x_3 = l_Lean_Parser_Level_paren___closed__4; +x_3 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__6; x_4 = l_Lean_Parser_andthenInfo(x_2, x_3); return x_4; } diff --git a/stage0/stdlib/Init/Lean/Parser/Tactic.c b/stage0/stdlib/Init/Lean/Parser/Tactic.c index 422d124767..6b01a680a9 100644 --- a/stage0/stdlib/Init/Lean/Parser/Tactic.c +++ b/stage0/stdlib/Init/Lean/Parser/Tactic.c @@ -38,6 +38,7 @@ lean_object* l_Lean_Parser_andthenInfo(lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Term_have___elambda__1___closed__7; lean_object* l_Lean_Parser_Tactic_apply___closed__2; lean_object* l_Lean_Parser_regBuiltinTacticParserAttr___closed__1; +extern lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__6; lean_object* l_Lean_Parser_Tactic_repeat___elambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Tactic_allGoals___elambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Tactic_nestedTacticBlock___elambda__1___closed__14; @@ -107,6 +108,7 @@ lean_object* lean_string_append(lean_object*, lean_object*); lean_object* l_Lean_Parser_tokenFn(lean_object*, lean_object*); lean_object* l___regBuiltinParser_Lean_Parser_Tactic_nestedTacticBlockCurly(lean_object*); lean_object* l_Lean_Parser_Term_tacticBlock___elambda__1___closed__2; +extern lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__5; lean_object* l_Lean_Parser_Tactic_intros___closed__5; lean_object* l_Lean_Parser_Tactic_assumption___elambda__1___closed__2; lean_object* l_Lean_Parser_sepBy1Fn___at_Lean_Parser_Tactic_seq___elambda__1___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -173,7 +175,6 @@ lean_object* l_Lean_Parser_Tactic_allGoals___elambda__1___closed__5; lean_object* l_Lean_Parser_Tactic_seq___closed__3; lean_object* l_Lean_Parser_Tactic_assumption___closed__1; lean_object* l_Lean_Parser_Tactic_apply___closed__3; -extern lean_object* l_Lean_Parser_Level_paren___elambda__1___closed__7; lean_object* lean_nat_sub(lean_object*, lean_object*); lean_object* l_Lean_Parser_Tactic_nestedTacticBlockCurly___elambda__1___closed__2; lean_object* l_Lean_Parser_noFirstTokenInfo(lean_object*); @@ -232,7 +233,6 @@ lean_object* l_Lean_Parser_Tactic_intro___elambda__1___closed__8; lean_object* l_Lean_Parser_Tactic_intro___closed__7; lean_object* l_Lean_Parser_Tactic_repeat___elambda__1___closed__8; lean_object* l_Lean_Parser_Tactic_exact___elambda__1___closed__5; -extern lean_object* l_Lean_Parser_Term_explicitBinder___closed__1; lean_object* l_Lean_Parser_registerBuiltinParserAttribute(lean_object*, lean_object*, uint8_t, lean_object*); lean_object* l_Lean_Parser_Term_tacticBlock___elambda__1___closed__3; lean_object* l_Lean_Parser_Tactic_nestedTacticBlock; @@ -264,7 +264,6 @@ lean_object* l_Lean_Parser_Tactic_paren___closed__2; lean_object* l_Lean_Parser_ParserState_popSyntax(lean_object*); lean_object* l_Lean_Parser_Tactic_paren___elambda__1___closed__2; lean_object* l_Lean_Parser_Tactic_case___elambda__1___closed__1; -extern lean_object* l_Lean_Parser_Level_paren___closed__4; lean_object* l___regBuiltinParser_Lean_Parser_Term_tacticStxQuot___closed__1; extern lean_object* l_Lean_Parser_Term_seq___elambda__1___closed__1; lean_object* l_Lean_Parser_Tactic_intros___elambda__1___closed__1; @@ -287,11 +286,11 @@ lean_object* l_Lean_Parser_Tactic_case___elambda__1___closed__4; lean_object* l_Lean_Parser_Tactic_refine___closed__1; lean_object* l_Lean_Parser_Tactic_paren___closed__4; lean_object* l_Lean_Parser_Tactic_repeat___closed__6; +extern lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__1; lean_object* l_Lean_Parser_Tactic_nestedTacticBlock___closed__2; lean_object* l_Lean_Parser_Tactic_refine___closed__2; lean_object* l___regBuiltinParser_Lean_Parser_Tactic_exact(lean_object*); lean_object* l_Lean_Parser_Tactic_assumption___elambda__1___closed__1; -extern lean_object* l_Lean_Parser_Level_paren___elambda__1___closed__3; lean_object* l_Lean_Parser_Tactic_case___closed__3; lean_object* l_Lean_Parser_Tactic_try___closed__1; lean_object* l_Lean_Parser_Tactic_repeat___elambda__1___closed__1; @@ -334,6 +333,7 @@ lean_object* l_Lean_Parser_Tactic_traceState___elambda__1___closed__3; lean_object* l___private_Init_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Tactic_seq___elambda__1___spec__2(uint8_t, uint8_t, lean_object*, uint8_t, uint8_t, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Tactic_intros; lean_object* l_Lean_Parser_Tactic_nestedTacticBlockCurly___elambda__1___closed__3; +extern lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__1; lean_object* l_Lean_Parser_Tactic_nestedTacticBlockCurly___closed__5; lean_object* l_Lean_Parser_Tactic_case___closed__7; lean_object* l_Lean_Parser_Term_tacticStxQuot___elambda__1(lean_object*, lean_object*, lean_object*); @@ -345,6 +345,7 @@ lean_object* l_Lean_Parser_Tactic_nonEmptySeq___elambda__1(lean_object*, lean_ob extern lean_object* l_Lean_Parser_Level_paren___elambda__1___closed__8; lean_object* l_Lean_Parser_Tactic_apply___closed__1; lean_object* l___regBuiltinParser_Lean_Parser_Tactic_assumption(lean_object*); +extern lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__2; extern lean_object* l_Lean_Parser_Term_typeAscription___closed__2; lean_object* l_Lean_Parser_Term_tacticStxQuot___elambda__1___closed__6; lean_object* l_Lean_Parser_Tactic_try___elambda__1___closed__6; @@ -368,7 +369,6 @@ lean_object* l_Lean_Parser_Tactic_nestedTacticBlock___closed__3; lean_object* l_Lean_Parser_Tactic_allGoals___closed__4; lean_object* l_Lean_Parser_Tactic_intro___closed__1; lean_object* l_Lean_Parser_Tactic_exact___elambda__1___closed__3; -extern lean_object* l_Lean_Parser_Level_paren___elambda__1___closed__14; lean_object* l_Lean_Parser_Tactic_intro___closed__3; lean_object* l_Lean_Parser_regBuiltinTacticParserAttr___closed__4; lean_object* l_Lean_Parser_Tactic_intros___elambda__1___closed__2; @@ -4201,7 +4201,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Lean_Parser_Tactic_seq___elambda__1___closed__2; -x_2 = l_Lean_Parser_Level_paren___elambda__1___closed__3; +x_2 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__1; x_3 = lean_name_mk_string(x_1, x_2); return x_3; } @@ -4221,7 +4221,7 @@ _start: { uint8_t x_1; lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; x_1 = 0; -x_2 = l_Lean_Parser_Level_paren___elambda__1___closed__3; +x_2 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__1; x_3 = l_Lean_Parser_Tactic_paren___elambda__1___closed__2; x_4 = 1; x_5 = l_Lean_Parser_mkAntiquot(x_1, x_2, x_3, x_4); @@ -4300,13 +4300,13 @@ lean_object* x_58; lean_object* x_59; uint8_t x_60; x_58 = lean_ctor_get(x_57, 1); lean_inc(x_58); lean_dec(x_57); -x_59 = l_Lean_Parser_Level_paren___elambda__1___closed__7; +x_59 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__1; x_60 = lean_string_dec_eq(x_58, x_59); lean_dec(x_58); if (x_60 == 0) { lean_object* x_61; lean_object* x_62; -x_61 = l_Lean_Parser_Level_paren___elambda__1___closed__14; +x_61 = l_Lean_Parser_Level_paren___elambda__1___closed__11; lean_inc(x_8); x_62 = l_Lean_Parser_ParserState_mkErrorsAt(x_54, x_61, x_8); x_17 = x_62; @@ -4322,7 +4322,7 @@ else { lean_object* x_63; lean_object* x_64; lean_dec(x_57); -x_63 = l_Lean_Parser_Level_paren___elambda__1___closed__14; +x_63 = l_Lean_Parser_Level_paren___elambda__1___closed__11; lean_inc(x_8); x_64 = l_Lean_Parser_ParserState_mkErrorsAt(x_54, x_63, x_8); x_17 = x_64; @@ -4333,7 +4333,7 @@ else { lean_object* x_65; lean_object* x_66; lean_dec(x_55); -x_65 = l_Lean_Parser_Level_paren___elambda__1___closed__14; +x_65 = l_Lean_Parser_Level_paren___elambda__1___closed__11; lean_inc(x_8); x_66 = l_Lean_Parser_ParserState_mkErrorsAt(x_54, x_65, x_8); x_17 = x_66; @@ -4373,13 +4373,13 @@ lean_object* x_26; lean_object* x_27; uint8_t x_28; x_26 = lean_ctor_get(x_25, 1); lean_inc(x_26); lean_dec(x_25); -x_27 = l_Lean_Parser_Level_paren___elambda__1___closed__8; +x_27 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__5; x_28 = lean_string_dec_eq(x_26, x_27); lean_dec(x_26); if (x_28 == 0) { lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; -x_29 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_29 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_30 = l_Lean_Parser_ParserState_mkErrorsAt(x_22, x_29, x_21); x_31 = l_Lean_Parser_Tactic_paren___elambda__1___closed__1; x_32 = l_Lean_Parser_ParserState_mkNode(x_30, x_31, x_16); @@ -4402,7 +4402,7 @@ else { lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_dec(x_25); -x_37 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_37 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_38 = l_Lean_Parser_ParserState_mkErrorsAt(x_22, x_37, x_21); x_39 = l_Lean_Parser_Tactic_paren___elambda__1___closed__1; x_40 = l_Lean_Parser_ParserState_mkNode(x_38, x_39, x_16); @@ -4415,7 +4415,7 @@ else { lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_dec(x_23); -x_42 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_42 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_43 = l_Lean_Parser_ParserState_mkErrorsAt(x_22, x_42, x_21); x_44 = l_Lean_Parser_Tactic_paren___elambda__1___closed__1; x_45 = l_Lean_Parser_ParserState_mkNode(x_43, x_44, x_16); @@ -4460,7 +4460,7 @@ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; x_1 = l_Lean_Parser_Tactic_nonEmptySeq; x_2 = lean_ctor_get(x_1, 0); lean_inc(x_2); -x_3 = l_Lean_Parser_Level_paren___closed__4; +x_3 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__6; x_4 = l_Lean_Parser_andthenInfo(x_2, x_3); return x_4; } @@ -4469,7 +4469,7 @@ lean_object* _init_l_Lean_Parser_Tactic_paren___closed__2() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_explicitBinder___closed__1; +x_1 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__2; x_2 = l_Lean_Parser_Tactic_paren___closed__1; x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); return x_3; @@ -6106,13 +6106,13 @@ lean_object* x_17; lean_object* x_18; uint8_t x_19; x_17 = lean_ctor_get(x_16, 1); lean_inc(x_17); lean_dec(x_16); -x_18 = l_Lean_Parser_Level_paren___elambda__1___closed__8; +x_18 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__5; x_19 = lean_string_dec_eq(x_17, x_18); lean_dec(x_17); if (x_19 == 0) { lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; -x_20 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_20 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_21 = l_Lean_Parser_ParserState_mkErrorsAt(x_13, x_20, x_12); x_22 = l_Lean_Parser_Term_tacticStxQuot___elambda__1___closed__2; x_23 = l_Lean_Parser_ParserState_mkNode(x_21, x_22, x_5); @@ -6131,7 +6131,7 @@ else { lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_dec(x_16); -x_26 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_26 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_27 = l_Lean_Parser_ParserState_mkErrorsAt(x_13, x_26, x_12); x_28 = l_Lean_Parser_Term_tacticStxQuot___elambda__1___closed__2; x_29 = l_Lean_Parser_ParserState_mkNode(x_27, x_28, x_5); @@ -6142,7 +6142,7 @@ else { lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_dec(x_14); -x_30 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_30 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_31 = l_Lean_Parser_ParserState_mkErrorsAt(x_13, x_30, x_12); x_32 = l_Lean_Parser_Term_tacticStxQuot___elambda__1___closed__2; x_33 = l_Lean_Parser_ParserState_mkNode(x_31, x_32, x_5); @@ -6186,7 +6186,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Lean_Parser_Tactic_seq___closed__2; -x_2 = l_Lean_Parser_Level_paren___closed__4; +x_2 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__6; x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); return x_3; } diff --git a/stage0/stdlib/Init/Lean/Parser/Term.c b/stage0/stdlib/Init/Lean/Parser/Term.c index ec96404ebe..895f3c83c4 100644 --- a/stage0/stdlib/Init/Lean/Parser/Term.c +++ b/stage0/stdlib/Init/Lean/Parser/Term.c @@ -92,6 +92,7 @@ lean_object* l_Lean_Parser_Term_sort___elambda__1___closed__8; lean_object* l___regBuiltinParser_Lean_Parser_Term_dollarProj(lean_object*); lean_object* l_Lean_Parser_darrow___elambda__1___boxed(lean_object*); lean_object* l___private_Init_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Term_tupleTail___elambda__1___spec__2(uint8_t, uint8_t, lean_object*, uint8_t, uint8_t, lean_object*, lean_object*, lean_object*); +extern lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__6; lean_object* l_Lean_Parser_Term_binderType___elambda__1___boxed(lean_object*); lean_object* l_Lean_Parser_Term_borrowed___closed__4; lean_object* l_Lean_Parser_Term_bracktedBinder(uint8_t); @@ -151,6 +152,7 @@ lean_object* l_Lean_Parser_Term_subtype___closed__6; lean_object* l_Lean_Parser_Term_proj___elambda__1___closed__7; lean_object* l___regBuiltinParser_Lean_Parser_Term_append(lean_object*); lean_object* l_Lean_Parser_Term_nomatch___elambda__1___closed__5; +lean_object* l_Lean_Parser_Term_proj___closed__10; lean_object* l_Lean_Parser_Term_haveAssign___closed__2; lean_object* l_Lean_Parser_Term_forall___elambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_structInstSource___elambda__1(lean_object*, lean_object*, lean_object*); @@ -240,7 +242,6 @@ lean_object* l_Lean_Parser_Term_explicitUniv___elambda__1___closed__7; lean_object* l_Lean_Parser_Term_show___elambda__1___closed__2; lean_object* l_Lean_Parser_Term_cdot___elambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_andM___closed__2; -lean_object* l_Lean_Parser_Term_paren___elambda__1___closed__3; lean_object* l_Lean_Parser_Term_doId___closed__5; lean_object* l_Lean_Parser_Term_doPat___elambda__1___closed__2; lean_object* l_Lean_Parser_Term_instBinder___elambda__1(lean_object*, lean_object*, lean_object*); @@ -389,6 +390,7 @@ lean_object* l_Lean_Parser_Term_listLit___elambda__1___closed__7; lean_object* l_Lean_Parser_Term_hole___closed__5; lean_object* l_Lean_Parser_Term_gt___elambda__1___closed__2; lean_object* l_Lean_Parser_Term_depArrow___elambda__1___closed__4; +extern lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__5; lean_object* l_Lean_Parser_Term_optType___closed__1; lean_object* l_Lean_Parser_Term_match__syntax___closed__5; lean_object* l_Lean_Parser_Term_explicitUniv___elambda__1___closed__5; @@ -399,6 +401,7 @@ lean_object* l_Lean_Parser_Term_binderType___elambda__2___rarg(lean_object*, lea lean_object* l_Lean_Parser_Term_and; lean_object* l_Lean_Parser_Term_gt___elambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_bracketedDoSeq___elambda__1(lean_object*, lean_object*, lean_object*); +extern lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__3; lean_object* l_Lean_Parser_Term_suffices___elambda__1___closed__3; lean_object* l_Lean_Parser_Term_parenSpecial___closed__1; lean_object* l_Lean_Parser_Term_not___elambda__1___closed__5; @@ -421,7 +424,6 @@ lean_object* l_Lean_Parser_Term_bracktedBinder___elambda__1(lean_object*, lean_o lean_object* l_Lean_Parser_Term_forall___elambda__1___closed__13; lean_object* l_Lean_Parser_Term_anonymousCtor___closed__9; lean_object* l_Lean_Parser_Term_sorry___closed__1; -lean_object* l_Lean_Parser_Term_explicitBinder___closed__10; lean_object* l_Lean_Parser_Term_structInst___elambda__1___closed__3; lean_object* l_Lean_Parser_Term_ge___elambda__1___closed__4; lean_object* l_Lean_Parser_Term_simpleBinder___closed__3; @@ -552,6 +554,7 @@ lean_object* l_Lean_Syntax_isSimpleTermId_x3f(lean_object*); lean_object* l_Lean_Parser_Term_prop___elambda__1___closed__9; lean_object* l_Lean_Parser_Term_doSeq___closed__4; extern lean_object* l_Lean_Parser_unicodeSymbolFn___rarg___closed__1; +extern lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__7; lean_object* l_Lean_Parser_Term_listLit___closed__6; lean_object* l_Lean_Parser_Term_proj___elambda__1___closed__2; lean_object* l_Lean_Parser_Term_paren___closed__1; @@ -694,7 +697,6 @@ lean_object* l_Lean_Parser_Term_nomatch___elambda__1___closed__2; lean_object* l_Lean_Parser_Term_explicitUniv___elambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_ge___elambda__1___closed__5; lean_object* l_Lean_Parser_Term_have___closed__11; -extern lean_object* l_Lean_Parser_Level_paren___elambda__1___closed__7; lean_object* l_Lean_Parser_Term_doSeq___closed__1; lean_object* l_Lean_Parser_Term_or___elambda__1___closed__1; lean_object* l_Lean_Parser_Term_namedPattern___elambda__1___closed__7; @@ -1164,10 +1166,8 @@ lean_object* l_Lean_Parser_Term_structInstField; lean_object* l_Lean_Parser_Term_iff___elambda__1___closed__4; lean_object* l_Lean_Parser_Term_borrowed___elambda__1___closed__9; lean_object* l_Lean_Parser_Term_typeAscription___closed__3; -extern lean_object* l_Lean_Parser_Level_paren___closed__4; lean_object* l_Lean_Parser_Term_have___closed__10; lean_object* l_Lean_Parser_Term_arrayRef___closed__6; -extern lean_object* l_Lean_Parser_mkAntiquot___closed__7; lean_object* l_Lean_Parser_Term_depArrow___elambda__1___closed__15; lean_object* l_Lean_Parser_Term_borrowed___closed__7; lean_object* l_Lean_Parser_Term_doLet___closed__5; @@ -1319,6 +1319,7 @@ lean_object* l_Lean_Parser_Term_emptyC___elambda__1___closed__8; lean_object* l_Lean_Parser_Term_modN___elambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_map___elambda__1(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltinParser_Lean_Parser_Term_le(lean_object*); +extern lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__1; lean_object* l_Lean_Parser_Term_seqRight; lean_object* l_Lean_Parser_Term_bindOp; lean_object* l_Lean_Parser_Term_simpleBinder; @@ -1332,7 +1333,6 @@ lean_object* l_Lean_Parser_Term_sub___closed__2; lean_object* l___regBuiltinParser_Lean_Parser_Term_proj(lean_object*); extern lean_object* l_PersistentArray_Stats_toString___closed__4; lean_object* l___regBuiltinParser_Lean_Parser_Term_band(lean_object*); -extern lean_object* l_Lean_Parser_Level_paren___elambda__1___closed__3; lean_object* l_Lean_Parser_Term_uminus___elambda__1___closed__6; lean_object* l_Lean_Parser_Term_bor___closed__2; lean_object* l_Lean_Parser_Term_cdot___elambda__1___closed__4; @@ -1359,6 +1359,7 @@ lean_object* l_Lean_Parser_Term_or___closed__3; lean_object* l_Lean_Parser_Term_inaccessible___elambda__1___closed__2; lean_object* l_Lean_Parser_Term_binderDefault___elambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_nomatch___closed__2; +extern lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; lean_object* l_Lean_Parser_Term_type___elambda__1(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltinParser_Lean_Parser_Term_not(lean_object*); lean_object* l_Lean_Parser_Term_leftArrow___elambda__1___rarg___closed__7; @@ -1562,6 +1563,7 @@ lean_object* l_Lean_Parser_Term_arrayLit___elambda__1(lean_object*, lean_object* lean_object* l_Lean_Parser_Term_and___elambda__1___closed__2; lean_object* l_Lean_Parser_Term_match__syntax___elambda__1___closed__5; lean_object* l_Lean_Parser_Term_listLit___elambda__1___closed__1; +extern lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__1; lean_object* l_Lean_Parser_Term_gt; lean_object* l_Lean_Parser_Term_doExpr___elambda__1___closed__2; lean_object* l_Lean_Parser_Term_tparser_x21___closed__2; @@ -1590,7 +1592,6 @@ lean_object* l_Lean_Parser_Term_haveAssign___closed__5; lean_object* l_Lean_Parser_Term_letIdDecl___closed__1; lean_object* l_Lean_Parser_Term_arrayLit___elambda__1___closed__8; lean_object* l_Lean_Parser_Term_sorry___elambda__1___closed__7; -lean_object* l_Lean_Parser_Term_explicitBinder___closed__8; lean_object* l_Lean_Parser_Term_matchAlt___closed__2; lean_object* l_Lean_Parser_Term_parenSpecial___closed__2; lean_object* l_Lean_Parser_Term_arrayLit___elambda__1___closed__4; @@ -1601,7 +1602,6 @@ lean_object* l___regBuiltinParser_Lean_Parser_Term_prop(lean_object*); lean_object* l___regBuiltinParser_Lean_Parser_Term_antiquot(lean_object*); lean_object* l_Lean_Parser_Term_doExpr___elambda__1___closed__4; lean_object* l_Lean_Parser_Term_bindOp___elambda__1___closed__4; -lean_object* l_Lean_Parser_Term_explicitBinder___closed__9; lean_object* l_Lean_Parser_Term_letEqns___closed__4; lean_object* l_Lean_Parser_darrow___elambda__1(lean_object*); extern lean_object* l_Lean_Parser_Level_paren___elambda__1___closed__8; @@ -1620,6 +1620,7 @@ lean_object* l_Lean_Parser_Term_proj___elambda__1___closed__6; lean_object* l_Lean_Parser_Term_namedArgument___closed__6; lean_object* l_Lean_Parser_Term_implicitBinder___closed__1; lean_object* l_Lean_Parser_Term_tparser_x21___closed__4; +extern lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__2; lean_object* l_Lean_Parser_Term_doExpr___elambda__1___closed__1; lean_object* l_Lean_Parser_Term_typeAscription___closed__2; lean_object* l_Lean_Parser_Term_seq___closed__3; @@ -1746,7 +1747,6 @@ lean_object* l_Lean_Parser_Term_beq___closed__1; lean_object* l_Lean_Parser_Term_fun___closed__2; lean_object* l_Lean_Parser_Term_fun___elambda__1___closed__5; lean_object* l_Lean_Parser_Term_structInstSource___elambda__1___closed__2; -extern lean_object* l_Lean_Parser_Level_paren___elambda__1___closed__14; lean_object* l___regBuiltinParser_Lean_Parser_Term_hole(lean_object*); lean_object* l_Lean_Parser_Term_iff___closed__2; lean_object* l_Lean_Parser_Term_if___elambda__1___closed__12; @@ -7507,30 +7507,20 @@ return x_1; lean_object* _init_l_Lean_Parser_Term_paren___elambda__1___closed__1() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_mkAppStx___closed__6; -x_2 = l_Lean_Parser_Level_paren___elambda__1___closed__3; -x_3 = lean_name_mk_string(x_1, x_2); -return x_3; -} -} -lean_object* _init_l_Lean_Parser_Term_paren___elambda__1___closed__2() { -_start: -{ lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_1 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_2 = lean_alloc_ctor(1, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; } } -lean_object* _init_l_Lean_Parser_Term_paren___elambda__1___closed__3() { +lean_object* _init_l_Lean_Parser_Term_paren___elambda__1___closed__2() { _start: { uint8_t x_1; lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; x_1 = 0; -x_2 = l_Lean_Parser_Level_paren___elambda__1___closed__3; -x_3 = l_Lean_Parser_Term_paren___elambda__1___closed__2; +x_2 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__1; +x_3 = l_Lean_Parser_Term_paren___elambda__1___closed__1; x_4 = 1; x_5 = l_Lean_Parser_mkAntiquot(x_1, x_2, x_3, x_4); return x_5; @@ -7540,7 +7530,7 @@ lean_object* l_Lean_Parser_Term_paren___elambda__1(lean_object* x_1, lean_object _start: { lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; -x_4 = l_Lean_Parser_Term_paren___elambda__1___closed__3; +x_4 = l_Lean_Parser_Term_paren___elambda__1___closed__2; x_5 = lean_ctor_get(x_4, 1); lean_inc(x_5); x_6 = lean_ctor_get(x_3, 0); @@ -7608,13 +7598,13 @@ lean_object* x_84; lean_object* x_85; uint8_t x_86; x_84 = lean_ctor_get(x_83, 1); lean_inc(x_84); lean_dec(x_83); -x_85 = l_Lean_Parser_Level_paren___elambda__1___closed__7; +x_85 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__1; x_86 = lean_string_dec_eq(x_84, x_85); lean_dec(x_84); if (x_86 == 0) { lean_object* x_87; lean_object* x_88; -x_87 = l_Lean_Parser_Level_paren___elambda__1___closed__14; +x_87 = l_Lean_Parser_Level_paren___elambda__1___closed__11; lean_inc(x_8); x_88 = l_Lean_Parser_ParserState_mkErrorsAt(x_80, x_87, x_8); x_49 = x_88; @@ -7630,7 +7620,7 @@ else { lean_object* x_89; lean_object* x_90; lean_dec(x_83); -x_89 = l_Lean_Parser_Level_paren___elambda__1___closed__14; +x_89 = l_Lean_Parser_Level_paren___elambda__1___closed__11; lean_inc(x_8); x_90 = l_Lean_Parser_ParserState_mkErrorsAt(x_80, x_89, x_8); x_49 = x_90; @@ -7641,7 +7631,7 @@ else { lean_object* x_91; lean_object* x_92; lean_dec(x_81); -x_91 = l_Lean_Parser_Level_paren___elambda__1___closed__14; +x_91 = l_Lean_Parser_Level_paren___elambda__1___closed__11; lean_inc(x_8); x_92 = l_Lean_Parser_ParserState_mkErrorsAt(x_80, x_91, x_8); x_49 = x_92; @@ -7673,15 +7663,15 @@ lean_object* x_24; lean_object* x_25; uint8_t x_26; x_24 = lean_ctor_get(x_23, 1); lean_inc(x_24); lean_dec(x_23); -x_25 = l_Lean_Parser_Level_paren___elambda__1___closed__8; +x_25 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__5; x_26 = lean_string_dec_eq(x_24, x_25); lean_dec(x_24); if (x_26 == 0) { lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; -x_27 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_27 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_28 = l_Lean_Parser_ParserState_mkErrorsAt(x_20, x_27, x_19); -x_29 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_29 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_30 = l_Lean_Parser_ParserState_mkNode(x_28, x_29, x_16); x_31 = l_Lean_Parser_mergeOrElseErrors(x_30, x_11, x_8); lean_dec(x_8); @@ -7691,7 +7681,7 @@ else { lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_dec(x_19); -x_32 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_32 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_33 = l_Lean_Parser_ParserState_mkNode(x_20, x_32, x_16); x_34 = l_Lean_Parser_mergeOrElseErrors(x_33, x_11, x_8); lean_dec(x_8); @@ -7702,9 +7692,9 @@ else { lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_dec(x_23); -x_35 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_35 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_36 = l_Lean_Parser_ParserState_mkErrorsAt(x_20, x_35, x_19); -x_37 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_37 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_38 = l_Lean_Parser_ParserState_mkNode(x_36, x_37, x_16); x_39 = l_Lean_Parser_mergeOrElseErrors(x_38, x_11, x_8); lean_dec(x_8); @@ -7715,9 +7705,9 @@ else { lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_dec(x_21); -x_40 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_40 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_41 = l_Lean_Parser_ParserState_mkErrorsAt(x_20, x_40, x_19); -x_42 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_42 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_43 = l_Lean_Parser_ParserState_mkNode(x_41, x_42, x_16); x_44 = l_Lean_Parser_mergeOrElseErrors(x_43, x_11, x_8); lean_dec(x_8); @@ -7729,7 +7719,7 @@ else lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_dec(x_18); lean_dec(x_2); -x_45 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_45 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_46 = l_Lean_Parser_ParserState_mkNode(x_17, x_45, x_16); x_47 = l_Lean_Parser_mergeOrElseErrors(x_46, x_11, x_8); lean_dec(x_8); @@ -7835,7 +7825,7 @@ lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_dec(x_50); lean_dec(x_2); lean_dec(x_1); -x_76 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_76 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_77 = l_Lean_Parser_ParserState_mkNode(x_49, x_76, x_16); x_78 = l_Lean_Parser_mergeOrElseErrors(x_77, x_11, x_8); lean_dec(x_8); @@ -7874,7 +7864,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Lean_Parser_Term_paren___closed__2; -x_2 = l_Lean_Parser_Level_paren___closed__4; +x_2 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__6; x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); return x_3; } @@ -7893,7 +7883,7 @@ lean_object* _init_l_Lean_Parser_Term_paren___closed__5() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_1 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_2 = l_Lean_Parser_Term_paren___closed__4; x_3 = l_Lean_Parser_nodeInfo(x_1, x_2); return x_3; @@ -7903,7 +7893,7 @@ lean_object* _init_l_Lean_Parser_Term_paren___closed__6() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; -x_1 = l_Lean_Parser_Term_paren___elambda__1___closed__3; +x_1 = l_Lean_Parser_Term_paren___elambda__1___closed__2; x_2 = lean_ctor_get(x_1, 0); lean_inc(x_2); x_3 = l_Lean_Parser_Term_paren___closed__5; @@ -7945,7 +7935,7 @@ _start: uint8_t x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; x_2 = 0; x_3 = l_Lean_Parser_regBuiltinTermParserAttr___closed__4; -x_4 = l_Lean_Parser_Term_paren___elambda__1___closed__1; +x_4 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_5 = l_Lean_Parser_Term_paren; x_6 = l_Lean_Parser_addBuiltinParser(x_2, x_3, x_4, x_5, x_1); return x_6; @@ -16185,13 +16175,13 @@ lean_object* x_28; lean_object* x_29; uint8_t x_30; x_28 = lean_ctor_get(x_27, 1); lean_inc(x_28); lean_dec(x_27); -x_29 = l_Lean_Parser_Level_paren___elambda__1___closed__8; +x_29 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__5; x_30 = lean_string_dec_eq(x_28, x_29); lean_dec(x_28); if (x_30 == 0) { lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; -x_31 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_31 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_32 = l_Lean_Parser_ParserState_mkErrorsAt(x_24, x_31, x_23); x_33 = l_Lean_Parser_Term_inaccessible___elambda__1___closed__2; x_34 = l_Lean_Parser_ParserState_mkNode(x_32, x_33, x_16); @@ -16214,7 +16204,7 @@ else { lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_dec(x_27); -x_39 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_39 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_40 = l_Lean_Parser_ParserState_mkErrorsAt(x_24, x_39, x_23); x_41 = l_Lean_Parser_Term_inaccessible___elambda__1___closed__2; x_42 = l_Lean_Parser_ParserState_mkNode(x_40, x_41, x_16); @@ -16227,7 +16217,7 @@ else { lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_dec(x_25); -x_44 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_44 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_45 = l_Lean_Parser_ParserState_mkErrorsAt(x_24, x_44, x_23); x_46 = l_Lean_Parser_Term_inaccessible___elambda__1___closed__2; x_47 = l_Lean_Parser_ParserState_mkNode(x_45, x_46, x_16); @@ -16281,7 +16271,7 @@ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; x_1 = l_Lean_Parser_Term_typeAscription___closed__2; x_2 = lean_ctor_get(x_1, 0); lean_inc(x_2); -x_3 = l_Lean_Parser_Level_paren___closed__4; +x_3 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__6; x_4 = l_Lean_Parser_andthenInfo(x_2, x_3); return x_4; } @@ -17390,26 +17380,6 @@ return x_17; lean_object* _init_l_Lean_Parser_Term_explicitBinder___closed__1() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = lean_box(0); -x_2 = l_Lean_Parser_Level_paren___elambda__1___closed__7; -x_3 = l_Lean_Parser_symbolInfo(x_2, x_1); -return x_3; -} -} -lean_object* _init_l_Lean_Parser_Term_explicitBinder___closed__2() { -_start: -{ -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_Level_paren___elambda__1___closed__7; -x_2 = lean_alloc_closure((void*)(l_Lean_Parser_symbolFn___rarg___boxed), 4, 1); -lean_closure_set(x_2, 0, x_1); -return x_2; -} -} -lean_object* _init_l_Lean_Parser_Term_explicitBinder___closed__3() { -_start: -{ uint8_t x_1; lean_object* x_2; uint8_t x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; x_1 = 0; x_2 = l_Lean_Parser_Term_binderIdent___closed__2; @@ -17423,7 +17393,7 @@ lean_closure_set(x_6, 2, x_5); return x_6; } } -lean_object* _init_l_Lean_Parser_Term_explicitBinder___closed__4() { +lean_object* _init_l_Lean_Parser_Term_explicitBinder___closed__2() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; @@ -17437,7 +17407,7 @@ x_5 = l_Lean_Parser_orelseInfo(x_2, x_4); return x_5; } } -lean_object* _init_l_Lean_Parser_Term_explicitBinder___closed__5() { +lean_object* _init_l_Lean_Parser_Term_explicitBinder___closed__3() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; @@ -17449,51 +17419,41 @@ lean_closure_set(x_3, 1, x_2); return x_3; } } -lean_object* _init_l_Lean_Parser_Term_explicitBinder___closed__6() { +lean_object* _init_l_Lean_Parser_Term_explicitBinder___closed__4() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_Term_explicitBinder___closed__4; +x_1 = l_Lean_Parser_Term_explicitBinder___closed__2; x_2 = l_Lean_Parser_optionaInfo(x_1); return x_2; } } -lean_object* _init_l_Lean_Parser_Term_explicitBinder___closed__7() { +lean_object* _init_l_Lean_Parser_Term_explicitBinder___closed__5() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_Term_explicitBinder___closed__5; +x_1 = l_Lean_Parser_Term_explicitBinder___closed__3; x_2 = lean_alloc_closure((void*)(l_Lean_Parser_optionalFn___rarg), 4, 1); lean_closure_set(x_2, 0, x_1); return x_2; } } -lean_object* _init_l_Lean_Parser_Term_explicitBinder___closed__8() { -_start: -{ -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_Level_paren___elambda__1___closed__8; -x_2 = lean_alloc_closure((void*)(l_Lean_Parser_symbolFn___rarg___boxed), 4, 1); -lean_closure_set(x_2, 0, x_1); -return x_2; -} -} -lean_object* _init_l_Lean_Parser_Term_explicitBinder___closed__9() { +lean_object* _init_l_Lean_Parser_Term_explicitBinder___closed__6() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_explicitBinder___closed__6; -x_2 = l_Lean_Parser_Level_paren___closed__4; +x_1 = l_Lean_Parser_Term_explicitBinder___closed__4; +x_2 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__6; x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); return x_3; } } -lean_object* _init_l_Lean_Parser_Term_explicitBinder___closed__10() { +lean_object* _init_l_Lean_Parser_Term_explicitBinder___closed__7() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_explicitBinder___closed__7; -x_2 = l_Lean_Parser_Term_explicitBinder___closed__8; +x_1 = l_Lean_Parser_Term_explicitBinder___closed__5; +x_2 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__7; x_3 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn___rarg), 5, 2); lean_closure_set(x_3, 0, x_1); lean_closure_set(x_3, 1, x_2); @@ -17510,23 +17470,23 @@ lean_inc(x_3); x_4 = l_Lean_Parser_Term_binderType(x_1); x_5 = lean_ctor_get(x_4, 0); lean_inc(x_5); -x_6 = l_Lean_Parser_Term_explicitBinder___closed__9; +x_6 = l_Lean_Parser_Term_explicitBinder___closed__6; x_7 = l_Lean_Parser_andthenInfo(x_5, x_6); x_8 = lean_ctor_get(x_4, 1); lean_inc(x_8); lean_dec(x_4); -x_9 = l_Lean_Parser_Term_explicitBinder___closed__10; +x_9 = l_Lean_Parser_Term_explicitBinder___closed__7; x_10 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn___rarg), 5, 2); lean_closure_set(x_10, 0, x_8); lean_closure_set(x_10, 1, x_9); x_11 = l_Lean_Parser_andthenInfo(x_3, x_7); -x_12 = l_Lean_Parser_Term_explicitBinder___closed__3; +x_12 = l_Lean_Parser_Term_explicitBinder___closed__1; x_13 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn___rarg), 5, 2); lean_closure_set(x_13, 0, x_12); lean_closure_set(x_13, 1, x_10); -x_14 = l_Lean_Parser_Term_explicitBinder___closed__1; +x_14 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__2; x_15 = l_Lean_Parser_andthenInfo(x_14, x_11); -x_16 = l_Lean_Parser_Term_explicitBinder___closed__2; +x_16 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__3; x_17 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn___rarg), 5, 2); lean_closure_set(x_17, 0, x_16); lean_closure_set(x_17, 1, x_13); @@ -17698,7 +17658,7 @@ x_10 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn___rarg), 5, 2); lean_closure_set(x_10, 0, x_8); lean_closure_set(x_10, 1, x_9); x_11 = l_Lean_Parser_andthenInfo(x_3, x_7); -x_12 = l_Lean_Parser_Term_explicitBinder___closed__3; +x_12 = l_Lean_Parser_Term_explicitBinder___closed__1; x_13 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn___rarg), 5, 2); lean_closure_set(x_13, 0, x_12); lean_closure_set(x_13, 1, x_10); @@ -30087,13 +30047,13 @@ lean_object* x_90; lean_object* x_91; uint8_t x_92; x_90 = lean_ctor_get(x_89, 1); lean_inc(x_90); lean_dec(x_89); -x_91 = l_Lean_Parser_Level_paren___elambda__1___closed__7; +x_91 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__1; x_92 = lean_string_dec_eq(x_90, x_91); lean_dec(x_90); if (x_92 == 0) { lean_object* x_93; lean_object* x_94; -x_93 = l_Lean_Parser_Level_paren___elambda__1___closed__14; +x_93 = l_Lean_Parser_Level_paren___elambda__1___closed__11; lean_inc(x_7); x_94 = l_Lean_Parser_ParserState_mkErrorsAt(x_86, x_93, x_7); x_49 = x_94; @@ -30109,7 +30069,7 @@ else { lean_object* x_95; lean_object* x_96; lean_dec(x_89); -x_95 = l_Lean_Parser_Level_paren___elambda__1___closed__14; +x_95 = l_Lean_Parser_Level_paren___elambda__1___closed__11; lean_inc(x_7); x_96 = l_Lean_Parser_ParserState_mkErrorsAt(x_86, x_95, x_7); x_49 = x_96; @@ -30120,7 +30080,7 @@ else { lean_object* x_97; lean_object* x_98; lean_dec(x_87); -x_97 = l_Lean_Parser_Level_paren___elambda__1___closed__14; +x_97 = l_Lean_Parser_Level_paren___elambda__1___closed__11; lean_inc(x_7); x_98 = l_Lean_Parser_ParserState_mkErrorsAt(x_86, x_97, x_7); x_49 = x_98; @@ -30161,13 +30121,13 @@ lean_object* x_20; lean_object* x_21; uint8_t x_22; x_20 = lean_ctor_get(x_19, 1); lean_inc(x_20); lean_dec(x_19); -x_21 = l_Lean_Parser_Level_paren___elambda__1___closed__8; +x_21 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__5; x_22 = lean_string_dec_eq(x_20, x_21); lean_dec(x_20); if (x_22 == 0) { lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; -x_23 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_23 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_24 = l_Lean_Parser_ParserState_mkErrorsAt(x_16, x_23, x_15); x_25 = l_Lean_Parser_Term_namedArgument___elambda__1___closed__2; x_26 = l_Lean_Parser_ParserState_mkNode(x_24, x_25, x_8); @@ -30186,7 +30146,7 @@ else { lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_dec(x_19); -x_29 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_29 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_30 = l_Lean_Parser_ParserState_mkErrorsAt(x_16, x_29, x_15); x_31 = l_Lean_Parser_Term_namedArgument___elambda__1___closed__2; x_32 = l_Lean_Parser_ParserState_mkNode(x_30, x_31, x_8); @@ -30197,7 +30157,7 @@ else { lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_dec(x_17); -x_33 = l_Lean_Parser_Level_paren___elambda__1___closed__11; +x_33 = l_Lean_Parser_Level_paren___elambda__1___closed__8; x_34 = l_Lean_Parser_ParserState_mkErrorsAt(x_16, x_33, x_15); x_35 = l_Lean_Parser_Term_namedArgument___elambda__1___closed__2; x_36 = l_Lean_Parser_ParserState_mkNode(x_34, x_35, x_8); @@ -30411,7 +30371,7 @@ lean_object* _init_l_Lean_Parser_Term_namedArgument___closed__2() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_explicitBinder___closed__1; +x_1 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__2; x_2 = l_Lean_Parser_Term_namedArgument___closed__1; x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); return x_3; @@ -30435,7 +30395,7 @@ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; x_1 = l_Lean_Parser_Term_namedArgument___closed__3; x_2 = lean_ctor_get(x_1, 0); lean_inc(x_2); -x_3 = l_Lean_Parser_Level_paren___closed__4; +x_3 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___closed__6; x_4 = l_Lean_Parser_andthenInfo(x_2, x_3); return x_4; } @@ -31300,24 +31260,34 @@ return x_41; lean_object* _init_l_Lean_Parser_Term_proj___closed__1() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_mkAntiquot___closed__7; -x_2 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_2, 0, x_1); -return x_2; +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_appPrec; +x_2 = lean_unsigned_to_nat(1u); +x_3 = lean_nat_add(x_1, x_2); +return x_3; } } lean_object* _init_l_Lean_Parser_Term_proj___closed__2() { _start: { +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Parser_Term_proj___closed__1; +x_2 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Parser_Term_proj___closed__3() { +_start: +{ lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Lean_Parser_Term_proj___elambda__1___closed__3; -x_2 = l_Lean_Parser_Term_proj___closed__1; +x_2 = l_Lean_Parser_Term_proj___closed__2; x_3 = l_Lean_Parser_symbolNoWsInfo(x_1, x_2); return x_3; } } -lean_object* _init_l_Lean_Parser_Term_proj___closed__3() { +lean_object* _init_l_Lean_Parser_Term_proj___closed__4() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; @@ -31329,33 +31299,23 @@ x_4 = l_Lean_Parser_orelseInfo(x_2, x_3); return x_4; } } -lean_object* _init_l_Lean_Parser_Term_proj___closed__4() { +lean_object* _init_l_Lean_Parser_Term_proj___closed__5() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; x_1 = l_Lean_Parser_Term_namedArgument___elambda__1___closed__3; x_2 = lean_ctor_get(x_1, 0); lean_inc(x_2); -x_3 = l_Lean_Parser_Term_proj___closed__3; +x_3 = l_Lean_Parser_Term_proj___closed__4; x_4 = l_Lean_Parser_orelseInfo(x_3, x_2); return x_4; } } -lean_object* _init_l_Lean_Parser_Term_proj___closed__5() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_proj___closed__2; -x_2 = l_Lean_Parser_Term_proj___closed__4; -x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); -return x_3; -} -} lean_object* _init_l_Lean_Parser_Term_proj___closed__6() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_epsilonInfo; +x_1 = l_Lean_Parser_Term_proj___closed__3; x_2 = l_Lean_Parser_Term_proj___closed__5; x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); return x_3; @@ -31365,26 +31325,36 @@ lean_object* _init_l_Lean_Parser_Term_proj___closed__7() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_proj___elambda__1___closed__2; +x_1 = l_Lean_Parser_epsilonInfo; x_2 = l_Lean_Parser_Term_proj___closed__6; -x_3 = l_Lean_Parser_nodeInfo(x_1, x_2); +x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); return x_3; } } lean_object* _init_l_Lean_Parser_Term_proj___closed__8() { _start: { +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Term_proj___elambda__1___closed__2; +x_2 = l_Lean_Parser_Term_proj___closed__7; +x_3 = l_Lean_Parser_nodeInfo(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Parser_Term_proj___closed__9() { +_start: +{ lean_object* x_1; x_1 = lean_alloc_closure((void*)(l_Lean_Parser_Term_proj___elambda__1), 3, 0); return x_1; } } -lean_object* _init_l_Lean_Parser_Term_proj___closed__9() { +lean_object* _init_l_Lean_Parser_Term_proj___closed__10() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_proj___closed__7; -x_2 = l_Lean_Parser_Term_proj___closed__8; +x_1 = l_Lean_Parser_Term_proj___closed__8; +x_2 = l_Lean_Parser_Term_proj___closed__9; x_3 = lean_alloc_ctor(0, 2, 0); lean_ctor_set(x_3, 0, x_1); lean_ctor_set(x_3, 1, x_2); @@ -31395,7 +31365,7 @@ lean_object* _init_l_Lean_Parser_Term_proj() { _start: { lean_object* x_1; -x_1 = l_Lean_Parser_Term_proj___closed__9; +x_1 = l_Lean_Parser_Term_proj___closed__10; return x_1; } } @@ -31743,7 +31713,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Lean_Parser_Term_listLit___elambda__1___closed__5; -x_2 = l_Lean_Parser_Term_proj___closed__1; +x_2 = l_Lean_Parser_Term_proj___closed__2; x_3 = l_Lean_Parser_symbolNoWsInfo(x_1, x_2); return x_3; } @@ -32364,7 +32334,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Lean_Parser_Term_dollarProj___closed__1; -x_2 = l_Lean_Parser_Term_proj___closed__4; +x_2 = l_Lean_Parser_Term_proj___closed__5; x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); return x_3; } @@ -37856,8 +37826,6 @@ l_Lean_Parser_Term_paren___elambda__1___closed__1 = _init_l_Lean_Parser_Term_par lean_mark_persistent(l_Lean_Parser_Term_paren___elambda__1___closed__1); l_Lean_Parser_Term_paren___elambda__1___closed__2 = _init_l_Lean_Parser_Term_paren___elambda__1___closed__2(); lean_mark_persistent(l_Lean_Parser_Term_paren___elambda__1___closed__2); -l_Lean_Parser_Term_paren___elambda__1___closed__3 = _init_l_Lean_Parser_Term_paren___elambda__1___closed__3(); -lean_mark_persistent(l_Lean_Parser_Term_paren___elambda__1___closed__3); l_Lean_Parser_Term_paren___closed__1 = _init_l_Lean_Parser_Term_paren___closed__1(); lean_mark_persistent(l_Lean_Parser_Term_paren___closed__1); l_Lean_Parser_Term_paren___closed__2 = _init_l_Lean_Parser_Term_paren___closed__2(); @@ -38659,12 +38627,6 @@ l_Lean_Parser_Term_explicitBinder___closed__6 = _init_l_Lean_Parser_Term_explici lean_mark_persistent(l_Lean_Parser_Term_explicitBinder___closed__6); l_Lean_Parser_Term_explicitBinder___closed__7 = _init_l_Lean_Parser_Term_explicitBinder___closed__7(); lean_mark_persistent(l_Lean_Parser_Term_explicitBinder___closed__7); -l_Lean_Parser_Term_explicitBinder___closed__8 = _init_l_Lean_Parser_Term_explicitBinder___closed__8(); -lean_mark_persistent(l_Lean_Parser_Term_explicitBinder___closed__8); -l_Lean_Parser_Term_explicitBinder___closed__9 = _init_l_Lean_Parser_Term_explicitBinder___closed__9(); -lean_mark_persistent(l_Lean_Parser_Term_explicitBinder___closed__9); -l_Lean_Parser_Term_explicitBinder___closed__10 = _init_l_Lean_Parser_Term_explicitBinder___closed__10(); -lean_mark_persistent(l_Lean_Parser_Term_explicitBinder___closed__10); l_Lean_Parser_Term_implicitBinder___elambda__1___closed__1 = _init_l_Lean_Parser_Term_implicitBinder___elambda__1___closed__1(); lean_mark_persistent(l_Lean_Parser_Term_implicitBinder___elambda__1___closed__1); l_Lean_Parser_Term_implicitBinder___elambda__1___closed__2 = _init_l_Lean_Parser_Term_implicitBinder___elambda__1___closed__2(); @@ -39702,6 +39664,8 @@ l_Lean_Parser_Term_proj___closed__8 = _init_l_Lean_Parser_Term_proj___closed__8( lean_mark_persistent(l_Lean_Parser_Term_proj___closed__8); l_Lean_Parser_Term_proj___closed__9 = _init_l_Lean_Parser_Term_proj___closed__9(); lean_mark_persistent(l_Lean_Parser_Term_proj___closed__9); +l_Lean_Parser_Term_proj___closed__10 = _init_l_Lean_Parser_Term_proj___closed__10(); +lean_mark_persistent(l_Lean_Parser_Term_proj___closed__10); l_Lean_Parser_Term_proj = _init_l_Lean_Parser_Term_proj(); lean_mark_persistent(l_Lean_Parser_Term_proj); res = l___regBuiltinParser_Lean_Parser_Term_proj(lean_io_mk_world()); diff --git a/stage0/stdlib/Init/Lean/Parser/Transform.c b/stage0/stdlib/Init/Lean/Parser/Transform.c index 571f08c7bb..8e798bdf9f 100644 --- a/stage0/stdlib/Init/Lean/Parser/Transform.c +++ b/stage0/stdlib/Init/Lean/Parser/Transform.c @@ -27,18 +27,15 @@ extern lean_object* l_Array_forMAux___main___at_Lean_Environment_displayStats___ lean_object* lean_array_fget(lean_object*, lean_object*); uint8_t lean_nat_dec_eq(lean_object*, lean_object*); lean_object* l_Lean_Syntax_removeParen___boxed(lean_object*); -lean_object* l_Lean_Syntax_removeParen___closed__1; lean_object* lean_nat_sub(lean_object*, lean_object*); -lean_object* l_Lean_Syntax_removeParen___closed__2; lean_object* lean_array_get(lean_object*, lean_object*, lean_object*); -lean_object* lean_name_mk_string(lean_object*, lean_object*); lean_object* l_Lean_SourceInfo_truncateTrailing(lean_object*); -extern lean_object* l_Lean_mkAppStx___closed__6; lean_object* l_Lean_Syntax_manyToSepBy(lean_object*, lean_object*); lean_object* l_Array_back___at___private_Init_Lean_Parser_Parser_6__updateCache___spec__1(lean_object*); extern lean_object* l_Option_HasRepr___rarg___closed__3; extern lean_object* l_Lean_Syntax_inhabited; lean_object* l_Lean_Syntax_getNumArgs(lean_object*); +extern lean_object* l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; lean_object* l_Lean_Syntax_removeParen(lean_object*); uint8_t l_Lean_Syntax_isNone(lean_object*); lean_object* l_Array_iterateMAux___main___at_Lean_Syntax_manyToSepBy___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -205,24 +202,6 @@ lean_dec(x_2); return x_6; } } -lean_object* _init_l_Lean_Syntax_removeParen___closed__1() { -_start: -{ -lean_object* x_1; -x_1 = lean_mk_string("paren"); -return x_1; -} -} -lean_object* _init_l_Lean_Syntax_removeParen___closed__2() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_mkAppStx___closed__6; -x_2 = l_Lean_Syntax_removeParen___closed__1; -x_3 = lean_name_mk_string(x_1, x_2); -return x_3; -} -} lean_object* l_Lean_Syntax_removeParen(lean_object* x_1) { _start: { @@ -231,7 +210,7 @@ if (lean_obj_tag(x_1) == 1) lean_object* x_2; lean_object* x_3; lean_object* x_4; uint8_t x_5; x_2 = lean_ctor_get(x_1, 0); x_3 = lean_ctor_get(x_1, 1); -x_4 = l_Lean_Syntax_removeParen___closed__2; +x_4 = l___private_Init_Lean_Parser_Parser_24__antiquotNestedExpr___elambda__1___rarg___closed__2; x_5 = lean_name_eq(x_2, x_4); if (x_5 == 0) { @@ -580,10 +559,6 @@ lean_dec_ref(res); res = initialize_Init_Lean_Parser_Parser(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -l_Lean_Syntax_removeParen___closed__1 = _init_l_Lean_Syntax_removeParen___closed__1(); -lean_mark_persistent(l_Lean_Syntax_removeParen___closed__1); -l_Lean_Syntax_removeParen___closed__2 = _init_l_Lean_Syntax_removeParen___closed__2(); -lean_mark_persistent(l_Lean_Syntax_removeParen___closed__2); return lean_mk_io_result(lean_box(0)); } #ifdef __cplusplus