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

fix: bug introduced today

Browse source
This commit is contained in:
Leonardo de Moura 2020-08-26 14:49:20 -07:00
parent 5d036d0ca3
commit 89bd5d6da2
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -465,7 +465,8 @@ else if letDecl.getKind == `Lean.Parser.Term.letPatDecl then do
let stxNew := if useLetExpr then stxNew else stxNew.updateKind `Lean.Parser.Term.«let!»;
withMacroExpansion stx stxNew $ elabTerm stxNew expectedType?
else if letDecl.getKind == `Lean.Parser.Term.letEqnsDecl then do
declNew ← liftMacroM $ expandLetEqnsDecl letDecl;
letDeclIdNew ← liftMacroM $ expandLetEqnsDecl letDecl;
let declNew := (stx.getArg 1).setArg 0 letDeclIdNew;
let stxNew := stx.setArg 1 declNew;
withMacroExpansion stx stxNew $ elabTerm stxNew expectedType?
else