From a989745de27f0fce9c6a17d66519752aac56748f Mon Sep 17 00:00:00 2001
From: Max Malook <community@malook.de>
Date: Sun, 6 Dec 2015 23:12:07 +0100
Subject: [PATCH] fix build problem of #756

---
 src/fsharp/TastOps.fs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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