diff --git a/library/Init/Lean/Compiler/IR/UnreachBranches.lean b/library/Init/Lean/Compiler/IR/UnreachBranches.lean index d13a005891..c3b7251f07 100644 --- a/library/Init/Lean/Compiler/IR/UnreachBranches.lean +++ b/library/Init/Lean/Compiler/IR/UnreachBranches.lean @@ -221,6 +221,7 @@ partial def interpFnBody : FnBody → M Unit def inferStep : M Bool := do ctx ← read; + modify $ fun s => { assignments := ctx.decls.map $ fun _ => {}, .. s }; ctx.decls.size.mfold (fun idx modified => do match ctx.decls.get! idx with | Decl.fdecl fid ys _ b => do