diff --git a/src/fsharp/TastOps.fs b/src/fsharp/TastOps.fs index b93f7720be9..cf5bc9ba1f9 100644 --- a/src/fsharp/TastOps.fs +++ b/src/fsharp/TastOps.fs @@ -7764,9 +7764,9 @@ let (|CompiledForEachExpr|_|) g expr = when valRefEq g (mkLocalValRef enumerableVar) enumerableVar2 && enumerableVar.IsCompilerGenerated && enumeratorVar.IsCompilerGenerated && - let fvs = (freeInExpr CollectLocals bodyExpr) + (let fvs = (freeInExpr CollectLocals bodyExpr) not (Zset.contains enumerableVar fvs.FreeLocals) && - not (Zset.contains enumeratorVar fvs.FreeLocals) -> + not (Zset.contains enumeratorVar fvs.FreeLocals)) -> // Extract useful ranges let m = enumerableExpr.Range