Oversimplified attempt to fix dotnet#212

forki · Feb 4, 2015 · f3f91f1 · f3f91f1
1 parent d922c48
commit f3f91f1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/fsharp/tastops.fs b/src/fsharp/tastops.fs
@@ -5834,7 +5834,7 @@ let permuteExpr (sigma:int[]) (expr: Expr[]) (typ: TType[]) (names:string[]) =
         existsR 0 (i' - 1) (fun j' -> invSigma.[j'] > i)
 
     let rewrite i rbinds (xi:Expr) =
-        if liftPosition i then
+        if true || liftPosition i then
             let tmpv,tmpe = mkCompGenLocal xi.Range names.[i] typ.[i]
             let bind = mkCompGenBind tmpv xi
             bind :: rbinds,tmpe