anchor.diff:                  let! (typedParseResults: ParseAndCheckResults option) =
                       lock parseLock (fun() ->
                           async {
  -                            match parsedDocument, ctrlSpace with
  -                            | Some document, false  -> 
  +                            match parsedDocument with
  +                            | Some document -> 
                                   match document.ParsedLocation with
                                   | Some location ->
                                       if location.Line = context.line && location.Column > lineToCaret.LastIndexOf("->") then
  
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:                     documentContext = documentContext
                      lineToCaret = lineToCaret
                      completionChar = completionChar
                      } = context
  
                  let parsedDocument = documentContext.TryGetFSharpParsedDocument()
  