max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

chore: naming convention

Browse source
This commit is contained in:
Leonardo de Moura 2020-10-27 12:56:54 -07:00
parent 738987e4ff
commit d6418299c7
3 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Init/LeanInit.lean
View file

@ -248,7 +248,7 @@ def getKind (stx : Syntax) : SyntaxNodeKind :=
| Syntax.atom _ v => mkNameSimple v
| Syntax.ident _ _ _ _ => identKind
def updateKind (stx : Syntax) (k : SyntaxNodeKind) : Syntax :=
def setKind (stx : Syntax) (k : SyntaxNodeKind) : Syntax :=
match stx with
| Syntax.node _ args => Syntax.node k args
| _ => stx

4
src/Lean/Elab/Binders.lean
View file

@ -507,8 +507,8 @@ def elabLetDeclCore (stx : Syntax) (expectedType? : Option Expr) (useLetExpr : B
let stxNew ← `(let x : $type := $val; match x with | $pat => $body)
let stxNew := match useLetExpr, elabBodyFirst with
| true, false => stxNew
| true, true => stxNew.updateKind `Lean.Parser.Term.«let*»
| false, true => stxNew.updateKind `Lean.Parser.Term.«let!»
| true, true => stxNew.setKind `Lean.Parser.Term.«let*»
| false, true => stxNew.setKind `Lean.Parser.Term.«let!»
| false, false => unreachable!
withMacroExpansion stx stxNew $ elabTerm stxNew expectedType?
else if letDecl.getKind == `Lean.Parser.Term.letEqnsDecl then

4
src/Lean/Elab/Tactic/Match.lean
View file

@ -17,7 +17,7 @@ private def mkAuxiliaryMatchTermAux (parentTag : Name) (matchTac : Syntax) : Sta
let matchAlts := matchTac[4]
let alts := matchAlts[1].getArgs
let newAlts ← alts.mapSepElemsM fun alt => do
let alt := alt.updateKind `Lean.Parser.Term.matchAlt
let alt := alt.setKind `Lean.Parser.Term.matchAlt
let holeOrTacticSeq := alt[2]
if holeOrTacticSeq.isOfKind `Lean.Parser.Term.syntheticHole then
pure alt
@ -33,7 +33,7 @@ private def mkAuxiliaryMatchTermAux (parentTag : Name) (matchTac : Syntax) : Sta
let newCase ← `(tactic| case $newHoleId => $holeOrTacticSeq:tacticSeq )
modify fun s => { s with cases := s.cases.push newCase }
pure $ alt.setArg 2 newHole
let result := matchTac.updateKind `Lean.Parser.Term.«match»
let result := matchTac.setKind `Lean.Parser.Term.«match»
let result := result.setArg 4 (matchAlts.setArg 1 (mkNullNode newAlts))
pure result