We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 09e8079 commit ed860dfCopy full SHA for ed860df
src/Lean/Compiler/IR/RC.lean
@@ -272,9 +272,8 @@ partial def visitFnBody : FnBody → Context → (FnBody × LiveVarSet)
272
partial def visitDecl (env : Environment) (decls : Array Decl) (d : Decl) : Decl :=
273
match d with
274
| .fdecl (xs := xs) (body := b) .. =>
275
- let ctx : Context := { env := env, decls := decls }
276
- let ctx := updateVarInfoWithParams ctx xs
277
- let (b, bLiveVars) := visitFnBody b ctx
+ let ctx := updateVarInfoWithParams { env, decls } xs
+ let ⟨b, bLiveVars⟩ := visitFnBody b ctx
278
let b := addDecForDeadParams ctx xs b bLiveVars
279
d.updateBody! b
280
| other => other
0 commit comments