what if we don't bind twice? (#9198)

b5d41c08 · Steffen Forkmann · GitHub · 8e7a1e64 · b5d41c08
隐藏空白更改
内联并排

Showing with 0 addition and 1 deletion

src/fsharp/Optimizer.fs src/fsharp/Optimizer.fs +0 -1

未找到文件。
--- 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