We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 52cfb7c commit 30bf42aCopy full SHA for 30bf42a
src/Lean/Compiler/LCNF/FloatLetIn.lean
@@ -229,10 +229,10 @@ def float (decl : CodeDecl) : FloatM Unit := do
229
where
230
goFVar (fvar : FVarId) (arm : Decision) : FloatM Unit := do
231
let some decision := (← get).decision[fvar]? | return ()
232
- if decision != arm then
233
- modify fun s => { s with decision := s.decision.insert fvar .dont }
234
- else if decision == .unknown then
+ if decision == .unknown then
235
modify fun s => { s with decision := s.decision.insert fvar arm }
+ else if decision != arm then
+ modify fun s => { s with decision := s.decision.insert fvar .dont }
236
237
/--
238
Iterate through `decl`, pushing local declarations that are only used in one
0 commit comments