fix build problem of #756

dotnet · Dec 8, 2015 · 52d4e00 · 52d4e00
1 parent c1e0bc8
commit 52d4e00
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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