chore: update stage0

stage0/src/Lean/Parser/Syntax.lean

@@ -17,16 +17,9 @@ builtin_initialize
   registerBuiltinParserAttribute `builtinPrecParser `prec (leadingIdentAsSymbol := true)
   registerBuiltinDynamicParserAttribute `precParser `prec
 
-builtin_initialize
-  registerBuiltinParserAttribute `builtinPrioParser `prio (leadingIdentAsSymbol := true)
-  registerBuiltinDynamicParserAttribute `prioParser `prio
-
 @[inline] def precedenceParser (rbp : Nat := 0) : Parser :=
   categoryParser `prec rbp
 
-@[inline] def priorityParser (rbp : Nat := 0) : Parser :=
-  categoryParser `prio rbp
-
 @[inline] def syntaxParser (rbp : Nat := 0) : Parser :=
   categoryParser `stx rbp
 
@@ -36,9 +29,6 @@ def optPrecedence := optional (atomic «precedence»)
 namespace Syntax
 @[builtinPrecParser] def numPrec := checkPrec maxPrec >> numLit
 
-@[builtinPrioParser] def numPrio  := checkPrec maxPrec >> numLit
-@[builtinPrioParser] def highPrio := parser!:maxPrec nonReservedSymbol "high"
-
 @[builtinSyntaxParser] def paren           := parser! "(" >> many1 syntaxParser >> ")"
 @[builtinSyntaxParser] def cat             := parser! ident >> optPrecedence
 @[builtinSyntaxParser] def unary           := parser! ident >> checkNoWsBefore >> "(" >> many1 syntaxParser >> ")"
@@ -58,10 +48,6 @@ namespace Term
 
 end Term
 
-namespace AttrParam
-@[builtinAttrParamParser] def prio  := parser!:maxPrec "priority: " >> priorityParser maxPrec
-end AttrParam
-
 namespace Command
 
 def optPrio   := optional ("[" >> priorityParser >> "]")

stage0/src/Lean/Parser/Term.lean

@@ -13,6 +13,10 @@ builtin_initialize
   registerBuiltinParserAttribute `builtinTacticParser `tactic (leadingIdentAsSymbol := true)
   registerBuiltinDynamicParserAttribute `tacticParser `tactic
 
+builtin_initialize
+  registerBuiltinParserAttribute `builtinPrioParser `prio (leadingIdentAsSymbol := true)
+  registerBuiltinDynamicParserAttribute `prioParser `prio
+
 builtin_initialize
   registerBuiltinParserAttribute `builtinAttrParamParser `attrParam (leadingIdentAsSymbol := true)
   registerBuiltinDynamicParserAttribute `attrParamParser `attrParam
@@ -20,6 +24,9 @@ builtin_initialize
 @[inline] def tacticParser (rbp : Nat := 0) : Parser :=
   categoryParser `tactic rbp
 
+@[inline] def priorityParser (rbp : Nat := 0) : Parser :=
+  categoryParser `prio rbp
+
 @[inline] def attrParamParser (rbp : Nat := 0) : Parser :=
   categoryParser `attrParam rbp
 
@@ -40,10 +47,16 @@ end Tactic
 
 def darrow : Parser := " => "
 
+namespace Priority
+@[builtinPrioParser] def numPrio  := checkPrec maxPrec >> numLit
+@[builtinPrioParser] def highPrio := parser!:maxPrec nonReservedSymbol "high"
+end Priority
+
 namespace AttrParam
 @[builtinAttrParamParser] def ident := checkPrec maxPrec >> Parser.ident
 @[builtinAttrParamParser] def str   := checkPrec maxPrec >> strLit
 @[builtinAttrParamParser] def num   := checkPrec maxPrec >> numLit
+@[builtinAttrParamParser] def prio  := parser!:maxPrec "priority: " >> priorityParser maxPrec
 end AttrParam
 
 namespace Term

stage0/stdlib/Lean/Parser/Do.c

@@ -1012,6 +1012,7 @@ extern lean_object* l_Lean_Parser_Term_match___elambda__1___closed__4;
 lean_object* l_Lean_Parser_Term_leftArrow___elambda__1___closed__3;
 extern lean_object* l_Lean_PrettyPrinter_Formatter_formatterAliasesRef;
 lean_object* l_Lean_Parser_Term_doSeqBracketed___closed__6;
+extern lean_object* l_Lean_Parser_Priority_highPrio___elambda__1___closed__7;
 lean_object* l_Lean_Parser_Term_doIf_parenthesizer___closed__18;
 lean_object* l_Lean_Parser_Term_doFor___closed__10;
 lean_object* l_Lean_Parser_Term_doLetArrow_parenthesizer___closed__3;
@@ -1438,7 +1439,6 @@ lean_object* l_Lean_Parser_Term_doBreak___closed__3;
 lean_object* l_Lean_Parser_Term_doLetArrow_formatter___closed__4;
 lean_object* l_Lean_Parser_Term_doIf___elambda__1___closed__2;
 lean_object* l___regBuiltin_Lean_Parser_Term_liftMethod_parenthesizer___closed__1;
-extern lean_object* l_Lean_Parser_Term_fun___elambda__1___closed__10;
 lean_object* l___regBuiltin_Lean_Parser_Term_doContinue_parenthesizer___closed__1;
 lean_object* l_Lean_Parser_Term_doCatchMatch_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_Parser_Term_doUnless___elambda__1(lean_object*, lean_object*);
@@ -16207,7 +16207,7 @@ static lean_object* _init_l_Lean_Parser_Term_do___elambda__1___closed__4() {
 _start:
 {
 lean_object* x_1; lean_object* x_2; lean_object* x_3; 
-x_1 = l_Lean_Parser_Term_fun___elambda__1___closed__10;
+x_1 = l_Lean_Parser_Priority_highPrio___elambda__1___closed__7;
 x_2 = l_Lean_Parser_Term_do___elambda__1___closed__3;
 x_3 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2);
 lean_closure_set(x_3, 0, x_1);