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

feat: support let_fun in new compiler

Browse source
This commit is contained in:
Gabriel Ebner 2022-10-12 09:28:02 -07:00
parent 79569c9003
commit fb6cb05465
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Lean/Compiler/LCNF/ToLCNF.lean
View file

@ -714,7 +714,9 @@ where
return .fvar funDecl.fvarId
visitMData (mdata : MData) (e : Expr) : M Expr := do
if isCompilerRelevantMData mdata then
if let some (.app (.lam n t b ..) v) := letFunAnnotation? e then
visitLet (.letE n t v b (nonDep := true)) #[]
else if isCompilerRelevantMData mdata then
mkAuxLetDecl <| .mdata mdata (← visit e)
else
visit e