diff --git a/src/Lean/Compiler/LCNF/Main.lean b/src/Lean/Compiler/LCNF/Main.lean index 5ae19a7a99..b679c9a1a2 100644 --- a/src/Lean/Compiler/LCNF/Main.lean +++ b/src/Lean/Compiler/LCNF/Main.lean @@ -49,7 +49,8 @@ def checkpoint (stepName : Name) (decls : Array Decl) : CompilerM Unit := do Lean.addTrace clsName m!"size: {decl.size}\n{← ppDecl decl}" if compiler.check.get (← getOptions) then decl.check - checkDeadLocalDecls decls + if compiler.check.get (← getOptions) then + checkDeadLocalDecls decls namespace PassManager