@@ -25,6 +25,7 @@ open Microsoft.FSharp.Compiler.Lib
2525open Microsoft.FSharp .Compiler .Infos
2626open Microsoft.FSharp .Compiler .PrettyNaming
2727open Microsoft.FSharp .Compiler .Infos .AccessibilityLogic
28+ open Microsoft.FSharp .Compiler .Nameres
2829
2930#if EXTENSIONTYPING
3031open Microsoft.FSharp .Compiler .ExtensionTyping
@@ -1727,10 +1728,11 @@ type CalledMeth<'T>
17271728let pminst = freshenMethInfo m pminfo
17281729 Choice1Of2( AssignedItemSetter( id, AssignedPropSetter( pinfo, pminfo, pminst), e))
17291730| _ ->
1730- let epinfos = match nameEnvwith
1731- | Some( ne) -> Microsoft.FSharp.Compiler.Nameres.ExtensionPropInfosOfTypeInScope infoReader ne( Some( nm), ad) m returnedObjTy
1732- | _ -> []
1733- match epinfoswith // need to hide ?
1731+ let epinfos =
1732+ match nameEnvwith
1733+ | Some( ne) -> ExtensionPropInfosOfTypeInScope infoReader ne( Some( nm), ad) m returnedObjTy
1734+ | _ -> []
1735+ match epinfoswith
17341736| [ pinfo] when pinfo.HasSetter&& not pinfo.IsIndexer->
17351737let pminfo = pinfo.SetterMethod
17361738let pminst = freshenMethInfo m pminfo