anchor.diff:                      documentContext = documentContext
                       lineToCaret = lineToCaret
                       completionChar = completionChar
  -                    ctrlSpace = ctrlSpace
                       } = context
   
                   let parsedDocument = documentContext.TryGetFSharpParsedDocument()
  
positive.code:                             match (bbAllBases |> Seq.tryFind (fun a -> a.IsEffectivelySameAs aa)) with
                              | Some _ ->  1
                              | _ -> aa.DisplayName.CompareTo(bb.DisplayName)
                      comparisonResult
                  | a, b -> a.DisplayName.CompareTo(b.DisplayName)
              | _ -> -1
  
negative.code:                 let! (typedParseResults: ParseAndCheckResults option) =
                      lock parseLock (fun() ->
                          async {
                              match parsedDocument with
                              | Some document -> 
                                  match document.ParsedLocation with
                                  | Some location ->
                                      if location.Line = context.line && location.Column > lineToCaret.LastIndexOf("->") then
  