@@ -4445,21 +4445,12 @@ let rec GetCompletionForItem (ncenv: NameResolver) (nenv: NameResolutionEnv) m a
44454445else Seq.empty)
44464446
44474447// Look for values called 'id' that accept the dot-notation
4448- let values , isItemVal =
4449- ( if nenv.eUnqualifiedItems.ContainsKey( id) then
4450- // v.lookup : member of a value
4451- let v = nenv.eUnqualifiedItems.[ id]
4452- match vwith
4453- | Item.Value x->
4454- let typ = x.Type
4455- let typ = if x.BaseOrThisInfo= CtorThisVal&& isRefCellTy g typthen destRefCellTy g typelse typ
4456- ( ResolvePartialLongIdentInTypeForItem ncenv nenv m adfalse rest item typ), true
4457- | _ -> Seq.empty, false
4458- else Seq.empty, false )
4459-
4460- yield ! values
4461-
4462- if not isItemValthen
4448+ match Map.tryFind id nenv.eUnqualifiedItemswith
4449+ | Some( Item.Value x) ->
4450+ let typ = x.Type
4451+ let typ = if x.BaseOrThisInfo= CtorThisVal&& isRefCellTy g typthen destRefCellTy g typelse typ
4452+ yield ! ResolvePartialLongIdentInTypeForItem ncenv nenv m adfalse rest item typ
4453+ | _ ->
44634454// type.lookup : lookup a static something in a type
44644455for tcrefin LookupTypeNameInEnvNoArity OpenQualified id nenvdo
44654456let tcref = ResolveNestedTypeThroughAbbreviation ncenv tcref m