From b5d41c080f0acf8cdeffc484a9ffc3f024071809 Mon Sep 17 00:00:00 2001
From: Steffen Forkmann <steffen.forkmann@msu-solutions.de>
Date: Sat, 16 May 2020 05:04:36 +0200
Subject: [PATCH] what if we don't bind twice? (#9198)

---
 src/fsharp/Optimizer.fs | 1 -
 1 file changed, 1 deletion(-)

diff --git a/src/fsharp/Optimizer.fs b/src/fsharp/Optimizer.fs
index 1b6d8fc20..2aa555df7 100644
--- a/src/fsharp/Optimizer.fs
+++ b/src/fsharp/Optimizer.fs
@@ -2912,7 +2912,6 @@ and OptimizeLambdas (vspec: Val option) cenv env topValInfo e ety =
         let env = Option.foldBack (BindInternalValToUnknown cenv) baseValOpt env
         let env = BindTypeVarsToUnknown tps env
         let env = List.foldBack (BindInternalValsToUnknown cenv) vsl env
-        let env = BindInternalValsToUnknown cenv (Option.toList baseValOpt) env
         let bodyR, bodyinfo = OptimizeExpr cenv env body
         let exprR = mkMemberLambdas m tps ctorThisValOpt baseValOpt vsl (bodyR, bodyty)
         let arities = vsl.Length
-- 
GitLab